>

>    ActiveSheet.PivotTables("PivotTable").PivotFields("title").Subtotals = Array( _
>        False, False, False, False, False, False, False, False, False, False, False, False)
>
>	    With ActiveSheet.PivotTables("PivotTable").PivotFields("line_numbr")
>	        .LayoutBlankLine = False
>	        .LayoutForm = xlTabular
>            End With
>

>
>i tried
>oPivotTable.PivotFields("line_numbr").subtotals=.f. && OLE ERROR parameter incorrect
>
>oPivotTable.PivotFields("line_numbr").layoutform=xlTabular && it fires a error message xlTabular not found ,what is the value of xlTabular
>
>TIA

I looked up xlTabular in Excel's object browser and its value is 0.
You just have to define it that way, i.e. #define xlTabular 0
HTH,