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? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set print range for individual sheets (ranged) in workbook.
How about just doing one worksheet at a time:
Sub Auto_prnt_setup() dim wks as worksheet Dim lLastRow As Long for each wks in activeworkbook.worksheets 'or 'for each wks in activewindow.selectedsheets with wks 'I usually use just a single column lLastRow = .Range("e65536:g65536").End(xlUp).Row .PageSetup.PrintArea = .Range("a1:j" & lLastRow).Address end with next wks ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub "J.W. Aldridge" wrote: 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? -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set print range for individual sheets (ranged) in workbook.
.....worked GREAT !!!! THANx |
Reply |
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 |