xxxxxxxxxx
'Print all worksheets
Worksheets.PrintOut
xxxxxxxxxx
'Print Sheet2 and Sheet3
Worksheets(Array("Sheet2", "Sheet3")).PrintOut
xxxxxxxxxx
'Print Sheet1 exactly one page wide and tall
With Worksheets("Sheet1").PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With