Print selection and fit all colums to one page

[forfiett]

Good day,

I have bellow code for printing two copies of selected range

Sub Print()

Sheets("Table").Select
LR = Range("H" & Rows.Count).End(xlUp).Row

For icell = LR To 1 Step -1
If Range("H" & icell).Value > 0 Then
Range("A6:W" & icell).Select

Exit For
End If
Next icell


Selection.PrintOut Copies:=2, Collate:=True

but I need to fit all columns to one page (A4 ladscape orientation).

How to do that?

[ExcelTab]

Hello forfiett,

Just add this before your Selection.Printout:

Please Login or Register  to view this content.

Have fun!

[forfiett]

my code that is woking:

Sub ALL()

Sheets("Table").Select
LR = Range("Q" & Rows.Count).End(xlUp).Row

For icell = LR To 1 Step -1
If Range("Q" & icell).Value > 0 Then
Range("A2:W" & icell).Select

Exit For
End If
Next icell

'

ActiveSheet.PageSetup.PrintArea = "A2:W" & icell
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With


'ActiveWindow.SelectedSheets.PrintPreview ' Print on screen

ActiveWindow.SelectedSheets.PrintOut Copies:=2 ' Print on paper




End Sub

Many thanks for help