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?