Print Page Using VBA in Excel

[Davis10]

I have been trying to print the worksheet using a command button. As of now I have the code :

Private Sub CommandButton2_Click()
Dim wSht As Worksheet
Set wSht = Worksheets("Define COAs")
With wSht.PageSetup
.PrintArea = "$A$1:$G$12"
.PaperSize = xlPaperLetter
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
wSht.PrintOut
End Sub

This works to print out my worksheet but it prints on two pages and I need it to print on only one page. Any Ideas on how I can do this?

 

[sugrue]

I just had a similar situation. I had originally recorded a macro to handle the printing, but within the "With...End With" block, it had dozens of entries that were not needed and made my script run very long. I removed the lines I thought weren't needed and it worked fine except it did not keep everything on 1 page wide, even though I had:
.FitToPagesWide = 1
.FitToPagesTall = False

What fixed it was to add:
.Zoom = False

Try that and see if it fixes things.

 

[Davis10]

Yes that worked perfectly! Thank you!