How to print all pages from summary sheet using VBA with one command

[Goalexcel]

Please advice, if possible to print with one command, multiples 100 pages from a layout report summary sheet2, when I input a section number 1 to 100 will appear the data from sheet1. I'm using below code, when I input the section number only print one page of one section only . Also, if able to make a single file PDF with the 100 pages, before I send to print.

Sub Print_Sheet2()
Dim LastRow As Long

'Detect where the last row of data is in Column D("Section #")
LastRow = Sheets("Sheet2").Range("D" & Rows.Count).End(xlUp).Row

'Set print area based on where the last row of data is
Sheets("Sheet2").PageSetup.PrintArea = "$D$1:$K$" & LastRow

'Set print area to fit in all columns
Sheets("Sheet2").PageSetup.FitToPagesWide = 1

'Print Sheet2
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

]

 

[Goalexcel]

Updated: Please advice, if possible to print with one command, multiples 100 pages from a layout report summary sheet2, when I input a section number 1 to 100 will appear the data from sheet1. Please below excel file. Thank you.

Mar Pav sent you 1 item.