Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print area multiple sheets
Hello all.
I have a spreadsheet Excel 2003 with 20-40 sheets in it, this can vary. What I would like to have happen 1. Set the print area on all sheets in the workbook find the last row on all sheets, then set the print area there up to and including column e the data goes on to column w if that matters Thanks Ian |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print area multiple sheets
Try this
Sub missive() Dim ws As Worksheet For x = 1 To Worksheets.Count LastRow = Worksheets(x).Cells.SpecialCells(xlLastCell).Row Worksheets(x).PageSetup.PrintArea = "$A$1:$E$" & LastRow Next End Sub Mike "ian bartlett" wrote: Hello all. I have a spreadsheet Excel 2003 with 20-40 sheets in it, this can vary. What I would like to have happen 1. Set the print area on all sheets in the workbook find the last row on all sheets, then set the print area there up to and including column e the data goes on to column w if that matters Thanks Ian |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print area multiple sheets
That works great !!
Thanks Ian "ian bartlett" wrote in message news:9VJbk.58308$Jx.19622@pd7urf1no... Hello all. I have a spreadsheet Excel 2003 with 20-40 sheets in it, this can vary. What I would like to have happen 1. Set the print area on all sheets in the workbook find the last row on all sheets, then set the print area there up to and including column e the data goes on to column w if that matters Thanks Ian |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print multiple Area and wrap together | Excel Discussion (Misc queries) | |||
MULTIPLE PRINT AREA | Excel Worksheet Functions | |||
setting page setup/print area for multiple sheets | Excel Discussion (Misc queries) | |||
Multiple print-area | Excel Programming | |||
set the print area print multiple tabs | Excel Discussion (Misc queries) |