Fit to page macro

[kixelsid]

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.

 

[Guest]

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

 

[kixelsid]

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

 

[Guest]

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