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

Goalexcel

New Member
Joined
Dec 28, 2020
Messages
29
Office Version
  1. 2016
Platform
  1. Windows
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.


VBA Code:
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
]
 

Some videos you may like

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).

Watch MrExcel Video

Forum statistics

Threads
1,122,530
Messages
5,596,699
Members
414,088
Latest member
rodriboraun

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top