Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set print range for individual sheets (ranged) in workbook.
I tried running several codes to group sheets and then self set the
print area but couldn't get around the first sheet having the dominant / default print area for all of the following sheets. So, I have the following code (below). I need it precede it with a code that says: Locate worksheet named "sheet x" in this workbook. Run this code for each individual sheet after "sheet x". Sub Auto_prnt_setup() Dim lLastRow As Long lLastRow = Range("e65536:g65536").End(xlUp).Row ActiveSheet.PageSetup.PrintArea = Range("a1:j" & lLastRow).Address ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.PrintArea = "" End Sub Any ideas? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Multiple Sheets (Need to create 500 individual sheets in one workbook, pulling DATA | Excel Worksheet Functions | |||
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? | Excel Worksheet Functions | |||
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? | Excel Programming | |||
Need Help w/ Print Macro to Print All Visible Sheets (including Charts) in a Workbook | Excel Programming | |||
Saving workbook sheets to individual excel files | Excel Programming |