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

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December

Watch MrExcel Video

Forum statistics

Threads
1,122,364
Messages
5,595,721
Members
414,013
Latest member
tnobbs

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