Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing certain pages within Active Sheets only
I have the following code to print certain page numbers for all the
sheets in my workbook. Sub Print_All() Dim sht As Variant For Each sht In ThisWorkbook.Sheets sht.PrintOut From:=1, To:=1, Copies:=1, Collate:=True Next sht End Sub But how would I do the same for only the active or sheets selected with my mouse? The other problem I have is that there is not much difference in tab color when I select sheets. Sometimes I make mistakes and type over in other sheets because I could not tell that more than one was selected. IS there a way to adjust the color of the tabs once they are selected? I know I can change the tab colors but not sure if I can do that for just selected tabs. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing certain pages within Active Sheets only
Sub Print_All()
Dim sht As Variant For Each sht In ActiveWindow.SelectedSheets sht.PrintOut From:=1, To:=1, Copies:=1, Collate:=True Next sht End Sub -- Regards, Tom Ogilvy "gtslabs" wrote: I have the following code to print certain page numbers for all the sheets in my workbook. Sub Print_All() Dim sht As Variant For Each sht In ThisWorkbook.Sheets sht.PrintOut From:=1, To:=1, Copies:=1, Collate:=True Next sht End Sub But how would I do the same for only the active or sheets selected with my mouse? The other problem I have is that there is not much difference in tab color when I select sheets. Sometimes I make mistakes and type over in other sheets because I could not tell that more than one was selected. IS there a way to adjust the color of the tabs once they are selected? I know I can change the tab colors but not sure if I can do that for just selected tabs. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2003 printing problem--printing 1 document on 2 pages | Excel Discussion (Misc queries) | |||
How do I delete pages in Excel? Keeps printing blank pages at end. | Charts and Charting in Excel | |||
Printing pages from different sheets in a set order | Excel Programming | |||
In 3 active sheets in wkbk, determine& display the # of sheets that have data | Excel Discussion (Misc queries) | |||
Code to print most (not all) pages within active workbook | Excel Programming |