PrintExcelSelection.bas

' Helps set print area of a worksheet so that print preview doesn't overflow
Public Sub PrintExcelSelection()

  Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
  With ws.PageSetup
      .Orientation = xlLandscape
      .Zoom = False
      .FitToPagesTall = 1
      .FitToPagesWide = 1
      .PrintArea = ActiveCell.CurrentRegion.Address
  End With

End Sub