Fit to page macro
 

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

Fit to page macro
 

Sub Hardcopy()
Sheets("Sheet2").Activate
Range("A1:N85").Select
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("A1").Select
ActiveWindow.SelectedSheets.PrintPreview ' Print on screen
'ActiveWindow.SelectedSheets.PrintOut ' Print on paper
End Sub

Fit to page macro
 

Thanks for the quick reply. I tried that and it still prints out to
pages. Am i doing something wrong? Could there be a global window
setting somewhere that is making it print like that

--
kixelsi
-----------------------------------------------------------------------
kixelsid's Profile: http://www.excelforum.com/member.php...fo&userid=3190
View this thread: http://www.excelforum.com/showthread.php?threadid=55511

Fit to page macro
 

hmm strange

try select range A1:N85
then manuel preview and make it fit to 1 side
and check for papersize too (A4)

otherwise im clouless