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

Goalexcel

Board Regular
Joined
Dec 28, 2020
Messages
101
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
]
 

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"

Forum statistics

Threads
1,213,510
Messages
6,114,048
Members
448,543
Latest member
MartinLarkin

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
Back
Top