Custom the width of a range to fit in one page for printing

[MariaPap]

Hello

I use this code to print a report.

Private Sub CommandButton2_Click()
Dim vbConfirm
vbConfirm = MsgBox("print;", vbQuestion + vbYesNo, "something")
If Not vbConfirm = vbYes Then Exit Sub
vbConfirm = MsgBox("are you sure??", vbQuestion + vbYesNo, "something")
If Not vbConfirm = vbYes Then Exit Sub

     Dim LR As Long
    LR = Sheets("Pr_es").Range("q" & Rows.Count).End(xlUp).row
    Dim rng As Range
    Set rng = Sheets("Pr_es").Range("q1:aa" & LR)
    rng.PrintOut
End Sub

The width of the range is too big and split the report in 2 pieces. How can we force the print to be in 1 page(width)?

Thanks in advance for any assistance.