Set print area as multiple ranges

Hi TPDave

Do you wish the Code to be attached to the Print Button in the User Form?

Hi TPDave

If I understand your issue, this Code appears to do as you require...set the indicated Parameters...

Option Explicit
Private Sub PrintButton_Click()
  Dim ws As Worksheet
  Dim LR As Long

  Set ws = Sheets("Sheet1")

  With ws
    LR = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), SearchOrder:=xlByRows, _
                     SearchDirection:=xlPrevious).Row

    .Range("A2:P" & LR).AutoFilter Field:=13, Criteria1:="<>"
    .Range("A2:P" & LR).AutoFilter Field:=16, Criteria1:="="

    With ws.PageSetup
      .PaperSize = xlPaperA4  'Set these parameters
      .FitToPagesWide = 1    'Set these parameters
      .FitToPagesTall = 1    'Set these parameters
    End With

    .Range("A1:H" & LR).PrintOut
    .AutoFilterMode = False
  End With
End Sub

You're welcome...glad I could help. Thanks for the Rep.