I am tring to print a range on 1 page

This code prints the correct range, except it prints it over 4 pages.

Sub PrintMacro905()
Dim rPrintRange As Range
Dim PrintSheetName As String
Set pshtSheet2 = Sheet2
Set rPrintRange = Range("A1", "N85")
With pshtSheet2.PageSetup
..PrintArea = rPrintRange.Address
..FitToPagesTall = 1
..FitToPagesWide = 1
End With
pshtSheet2.PrintOut
End Sub

Any ideas would be appreciated.


--
kixelsid
------------------------------------------------------------------------
kixelsid's Profile: http://www.excelforum.com/member.php...o&userid=31901
View this thread: http://www.excelforum.com/showthread...hreadid=555112