Whatever code you are using couldn't you just add something like:

If ***Your Criteria Prints Just Page One*** Then

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Else

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
End With

End If

Hopefully this should work.

-Brian

Shawn wrote:
I have a .xls file that has data that spreads across two printed pages (or
that I want to spread across two printed pages). If certain critrea are met,
page 1 prints. If other criteria are met, page 1 and page 2 are printed. I
need a code that will continue to do the above but fit page 1 on one printed
page and if both pages are to be printed, then fit page 1 and page 2 on 2
printed pages. Right now, the first page may run over one or two lines onto
a second printed page. I hope this makes sence.


--
Thanks
Shawn

Use also Zoom

With sh.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.Orientation = xlLandscape
End With

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Brian B." wrote in message oups.com...
Whatever code you are using couldn't you just add something like:

If ***Your Criteria Prints Just Page One*** Then

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Else

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
End With

End If

Hopefully this should work.

-Brian

Shawn wrote:
I have a .xls file that has data that spreads across two printed pages (or
that I want to spread across two printed pages). If certain critrea are met,
page 1 prints. If other criteria are met, page 1 and page 2 are printed. I
need a code that will continue to do the above but fit page 1 on one printed
page and if both pages are to be printed, then fit page 1 and page 2 on 2
printed pages. Right now, the first page may run over one or two lines onto
a second printed page. I hope this makes sence.


--
Thanks
Shawn

Try this tester for the selection

I will preview the printout
Delete preview:=True when it is working correct

Sub test()
With ActiveSheet.PageSetup
.PrintArea = Selection.Address
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.Orientation = xlLandscape
End With
ActiveSheet.PrintOut preview:=True
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Shawn" wrote in message ...
I tried this but it didn't work:

With Selection
.FitToPagesWide = 1
.PrintOut copies:=1, collate:=True
End With


--
Thanks
Shawn


"Ron de Bruin" wrote:

Use also Zoom

With sh.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.Orientation = xlLandscape
End With

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Brian B." wrote in message oups.com...
Whatever code you are using couldn't you just add something like:

If ***Your Criteria Prints Just Page One*** Then

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Else

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
End With

End If

Hopefully this should work.

-Brian

Shawn wrote:
I have a .xls file that has data that spreads across two printed pages (or
that I want to spread across two printed pages). If certain critrea are met,
page 1 prints. If other criteria are met, page 1 and page 2 are printed. I
need a code that will continue to do the above but fit page 1 on one printed
page and if both pages are to be printed, then fit page 1 and page 2 on 2
printed pages. Right now, the first page may run over one or two lines onto
a second printed page. I hope this makes sence.


--
Thanks
Shawn