PrintArea Fit Into One Page.bas

Sub PrintActiveSheet()
    
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet

    With ws.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
        .PrintArea = "B1:R41"
    End With

End Sub

This was super helpful, thanks. ❤️
I changed
.PrintArea = "B1:R41"
to always set the current selection
.PrintArea = ActiveCell.CurrentRegion.Address

Ref: https://docs.microsoft.com/en-us/office/vba/api/excel.pagesetup.printarea#example