Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing Grouped Sheets
Hi there....I'm working on creating a macro in Excel 2000 to be able to print grouped sheets. It works fine when I record it, but when I play it back I always only get one sheet - not all the grouped sheets.
This is the code I am using....can you tell me how to make it work? Do I somehow need to combine the selected sheet info and the selected range and how do I do that The code to select it works well and the code to print works well, just not together. Sub PrintAllPayStubs( Dim sh As Objec Dim shArr() As Strin Dim FirstSheet As Objec Dim LastSheet As Objec Set FirstSheet = Sheets("aa" Set LastSheet = Sheets("zz" ReDim shArr(FirstSheet.Index To LastSheet.Index For Each sh In ThisWorkbook.Sheet If sh.Index = FirstSheet.Index And sh.Index <= LastSheet.Index The shArr(sh.Index) = sh.Nam End I Next s Sheets(shArr).Selec Range("B1:L59").Selec With ActiveSheet.PageSetu .LeftHeader = " .CenterHeader = " .RightHeader = " .LeftFooter = " .CenterFooter = " .RightFooter = " .LeftMargin = Application.InchesToPoints(0.5 .RightMargin = Application.InchesToPoints(0.5 .TopMargin = Application.InchesToPoints(1 .BottomMargin = Application.InchesToPoints(1 .HeaderMargin = Application.InchesToPoints(0.5 .FooterMargin = Application.InchesToPoints(0.5 .PrintHeadings = Fals .PrintGridlines = Fals .PrintComments = xlPrintNoComment .PrintQuality = 35 .CenterHorizontally = Fals .CenterVertically = Fals .Orientation = xlPortrai .Draft = Fals .PaperSize = xlPaperLette .FirstPageNumber = xlAutomati .Order = xlDownThenOve .BlackAndWhite = Fals .Zoom = 8 End Wit Selection.PrintOut Copies:=1, Collate:=Tru Range("A1").Selec ActiveWindow.ScrollWorkbookTabs Position:=xlFirs Sheets("Master").Selec Range("B6").Selec End Su Thank |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
not printing grouped columns | Excel Discussion (Misc queries) | |||
printing worksheet with cells grouped | Excel Discussion (Misc queries) | |||
Printing a group that is not grouped | Excel Discussion (Misc queries) | |||
Printing Grouped Sheets | Excel Programming | |||
Sheets(array) method for printing grouped worksheets | Excel Programming |