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