- Dec 28, 2020
- Office Version
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