Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print visible sheets - ordering
Hi Guys, I have simple VB that prints all sheets in my workbook - see below. Problem is that the order that it prints the sheets is not the way they are visible - For example it prints Appendix G before Appendix A, yet A is visible before G. To complicate Matters there are hidden sheets (which it ignores). So question, how can I tell Excel the order of sheets to print, or just to print them as they are visible, instead of when they were created? (I'M assuming appendix G was created before appendix A) Regards D Sub PrintVisibleSheets_2() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets If ws.Visible = xlSheetVisible Then If ws.Name < "Grading_guid" Then ws.PrintOut Copies:=1, Collate:=True End If End If Next End Sub *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print visible sheets - ordering
Hi Darin:
Try using a for loop and stepping through the serquence as in the following Sub PrintVisibleSheets_2() dim lShtNr as long dim ws as worksheet with ActiveWorkbook For lShtNr= 1 to .Worksheets.count set ws = .worksheets(lShtNr) If ws.Visible = xlSheetVisible and ws.Name < "Grading_guid" Then ws.PrintOut Copies:=1, Collate:=True End If Next lShtNr End With End Sub -- Hope this helps Martin Fishlock, Bangkok, Thailand Please do not forget to rate this reply. "Darin Kramer" wrote: Hi Guys, I have simple VB that prints all sheets in my workbook - see below. Problem is that the order that it prints the sheets is not the way they are visible - For example it prints Appendix G before Appendix A, yet A is visible before G. To complicate Matters there are hidden sheets (which it ignores). So question, how can I tell Excel the order of sheets to print, or just to print them as they are visible, instead of when they were created? (I'M assuming appendix G was created before appendix A) Regards D Sub PrintVisibleSheets_2() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets If ws.Visible = xlSheetVisible Then If ws.Name < "Grading_guid" Then ws.PrintOut Copies:=1, Collate:=True End If End If Next End Sub *** Sent via Developersdex http://www.developersdex.com *** |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print visible sheets - ordering
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Ordering of sheets in a workbook | New Users to Excel | |||
Print Visible Sheets Macro | Excel Discussion (Misc queries) | |||
Visible sheets | Excel Programming | |||
Autoshapes not visible on spreadsheet but visible in print preview | Excel Discussion (Misc queries) | |||
Need Help w/ Print Macro to Print All Visible Sheets (including Charts) in a Workbook | Excel Programming |