I have a variety of macros that create Pivot Tables from a database. Is
there a way to program the default print formatting to landscape and fit on
one page?

Thanks in advance

Figured out the answer to my own question ... but for anyone else that wants
to know:

Sub PrintFormat()
Dim sh As String

sh = ActiveSheet.name

' Formats worksheet to print on one page in Landscape
With Worksheets(sh).PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
.Orientation = xlLandscape
End With
End Sub

"Chaz" wrote:

I have a variety of macros that create Pivot Tables from a database. Is
there a way to program the default print formatting to landscape and fit on
one page?

Thanks in advance