合并多个工作表中的打印范围VBA EXCEL

Question

I am trying to figure out how to print the "ActiveSheet" or Sheet1 along with "Sheet5" (rows 1-6, A:M) being displayed at the bottom with a 2 row space in between the end of Sheet1 and the beginning of data from Sheet5. I've been trying to look up similar questions and read something about a "Union" but I wasn't sure how it would fit here.

Private Sub CommandButton1_Click()
Dim Sel_Manager As String
'Headers repeated at the top
Application.PrintCommunication = False
With ActiveSheet.PageSetup
        .PrintTitleRows = "$2:$2"
        .PrintTitleColumns = "$B:$M"
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
End With

'Manager selection through ComboBox dropdown
 Sel_Manager = ComboBox1
'Inserting autofilters for worksheet
Cells.Select
Selection.AutoFilter
'Manager defined in the dropdown ComboBox
ActiveSheet.Range("B2", Range("M2").End(xlDown)).AutoFilter Field:=1, Criteria1:=Sel_Manager
ActiveSheet.Range("B2", Range("M2").End(xlDown)).AutoFilter Field:=2, Criteria1:="A"
 'Here I select range to be printed and specify manager in filename
ActiveSheet.Range("B2", Range("M2").End(xlDown)).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Sel_Manager + ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

ActiveSheet.ShowAllData
Application.PrintCommunication = True
End Sub

Answer 1

This may give you some ideas.

I created two worksheets. One, called "Main", contains data that has "names" in column B and some As in column C. The other, called "Extra" contains the six rows to appear at the bottom of the filtered data.

I do not use Excel's identifiers when referencing worksheets. The first sheet will have an identifier of Sheet1 and a name of "Sheet1". If you immediately create another sheet it will have an identifier of Sheet2 and a name of "Sheet2". However, if Sheet1 is renamed before the second sheet is created, it will have an identifier of Sheet2 and a name of "Sheet1". It can all get very confusing.

I have hardcoded the selected manager as "Aaaaa" rather than make it a user entered parameter. I have prepared worksheet "Main" for printing but have not output it.

Option Explicit
Sub Test()

  Dim Manager As String
  Dim RngFiltered As Range
  Dim RowSht1Last As Long

  Manager = "Aaaaa"

  With Worksheets("Main")

    .AutoFilterMode = False   ' Switch off auto filtering if on

    ' Find last row containing a value
    RowSht1Last = .Cells.Find("*", .Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row

    With .Range("B2:M2")
      .AutoFilter Field:=1, Criteria1:=Manager
      .AutoFilter Field:=2, Criteria1:="A"
    End With

    Set RngFiltered = .Cells.SpecialCells(xlCellTypeVisible)

    ' Just to show the filtered range.  Note, I cannot find a documented limit
    ' on the number of sub-ranges within a range. If there is a limit, I have
    ' never managed to reach it. However Range.Address has a limit which is a
    ' little under 255.
    Debug.Print Replace(RngFiltered.Address, "$", "")

    Worksheets("Extra").Range("A1:M6").Copy Destination:=.Cells(RowSht1Last + 2, "A")

    ' ###### Output visible rows

    ' Delete rows copied from Sheet5
    .Rows(RowSht1Last + 2 & ":" & RowSht1Last + 8).Delete

  End With

End Sub