Setting print area

[Md1]

Hi all

I'm sure this is something simple......but

I have two pivot tables which depending on which criteria I select, change size, one one of them the 'print area' changes size when the pivot changes size and the other doesn't meaning I have to manually change the print area.

The pivots have exactly the same info in and have been set with the same margins etc but for some reason only one of them prints without me having to manually change the print area. As the prints are all macro driven this is causing a real pain.

Any help would be great

regards

Md1

 

[Andrew Poulsom]

This will set the PrintArea on Sheet1 to range occupied by the first PivotTable:

Sub Test()
    With Worksheets("Sheet1")
        .PageSetup.PrintArea = .PivotTables(1).TableRange2.Address
    End With
End Sub

The TableRange2 property includes the Page Fields. TableRange1 excludes them.

 

[Md1]

Hi

I have created the same pivot table from scratch and it seems to be working perfectly again - not sure why it didn't like the previous table.

If it does it again I will use your code.

many thanks

Md1