Bom dia!!!

Somente com essas informações..então segue.

With ActiveSheet.PageSetup
  .LeftHeader = Format(Now(), "dd/mm/yy")
  .LeftFooter = "%P"
End With
Private Sub Comprintpatrol_Click()

    Range("A1").AutoFilter Field:=1, Criteria1:=Format(Date + 1, Range("A2").NumberFormatLocal)
    ActiveSheet.PrintOut
    ' or
    Range("A1").CurrentRegion.PrintOut
    Range("A1").AutoFilter
End Sub