I have this code:
Private Sub Commandbutton1_Click()
With ActiveSheet
Select Case UCase(.Range("c1").Value)
Case Is = "1"
.Range("c2:h92").PrintOut preview:=True
Case Is = "2"
.Range("j2:o92").PrintOut preview:=True

End Select
End With

End Sub

It works fine, but it shrinks the resulting printout donw to one page. I
originally wanted to do this, entered the code, then changed my mind and
deleted it. However, it keeps forcing this to print on only one page.....and
too small to read.