Scale document to one page if zoom % exceeds one page boundaries

[ThomasOES]

I like to print a grid of data at 120% zoom. However if the grid is large the 120% spills over to another page. How to keep the zoom % but decrease if the grid of data is too large for one page?

My code

[FONT=Verdana]Sub seqprt()
'PRINT PREVIEW FOR SEQUENCE CHART
Sheets("Key").Select
Range("B1", Range("H100").End(xlUp)).Name = "SeqChart"
With Sheets("Key").PageSetup
    .PrintArea = SeqChart
    .LeftHeader = "&""Arial,bold""&10" & Range("Instrument") & "  " & Range("Program")
    .RightHeader = "&""Arial,Bold""&12" & Range("Operator") & "    " & "&""Arial,Bold""&10&D"
    .LeftMargin = Application.InchesToPoints(0.5)
    .RightMargin = Application.InchesToPoints(0.5)
    .TopMargin = Application.InchesToPoints(0.5)
    .BottomMargin = Application.InchesToPoints(0.5)
    .HeaderMargin = Application.InchesToPoints(0.3)
    .FooterMargin = Application.InchesToPoints(0.3)
    .CenterHorizontally = True
    .CenterVertically = False
    .Orientation = xlPortrait
    .Draft = True
    .PaperSize = xlPaperLetter
    .BlackAndWhite = True
    .Zoom = 120
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
Range("SeqChart").PrintPreview
Call Show_LotQual_Ctrl
End Sub[/FONT]

Thanks for any help

Tom