Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
set print area on multiple sheets
I've tried several ways to do this, but haven't been successful yet. Need to run "printareamacro" on all sheets after Ind_brkdwn. Sub PRINTING_PLEASE() Dim sh As Worksheet 'for each sheet in workbook after "ind templates" x = Sheets("IND_BRKDWN").Index For Each sh In ThisWorkbook.Sheets If sh.Index x Then Call printareamacro End If Next 'Application.CutCopyMode = False End Sub ---------------------------------------------------------------------- Sub printareamacro() Cells.Select Cells.EntireColumn.AutoFit Range("A1").Select With ActiveSheet.PageSetup .PrintArea = Range("a1").CurrentRegion.Address .Orientation = xlLandscape .CenterHorizontally = True .CenterVertically = True .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 With Selection.Font .Name = "Arial" .Size = 12 End With End With 'ActiveSheet.PrintPreview Cells.EntireColumn.AutoFit End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
MULTIPLE PRINT AREA | Excel Worksheet Functions | |||
Print area multiple sheets | Excel Programming | |||
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) |