Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Unique print macro question
Excel 2003 -
Workbook has many sheets - all but three are hidden. "shtInput" is always visible What I want to do is to control which sheet get printed first and I want the sheet that has a sheet name ending in "v" print first and the other sheet to print second. There will always be only one visible sheet that has a sheet name ending if "v". Below is the working macro that I would like to add to. Any help would be greatly appreciated. Sub Print_pages() Dim sht As Worksheet shtAgent.Visible = False For Each sht In Worksheets If sht.Name < shtInput.Name And sht.Visible = True Then sht.PrintOut End If Next End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Unique print macro question
Okay I got this far
Sub Print_pages() Dim sht As Worksheet Dim page1 As String Dim page2 As String shtAgent.Visible = False For Each sht In Worksheets If sht.Name < shtInput.Name And sht.Visible = True Then If (Right(sht.CodeName, 1) = "V") Then page1 = sht.Name Else page2 = sht.Name ' sht.PrintOut End If End If Next ' page1.PrintOut ' page2.PrintOut End Sub But how do I tell it to print out page1 and page2? Get an error message with page1.printout "Brad" wrote: Excel 2003 - Workbook has many sheets - all but three are hidden. "shtInput" is always visible What I want to do is to control which sheet get printed first and I want the sheet that has a sheet name ending in "v" print first and the other sheet to print second. There will always be only one visible sheet that has a sheet name ending if "v". Below is the working macro that I would like to add to. Any help would be greatly appreciated. Sub Print_pages() Dim sht As Worksheet shtAgent.Visible = False For Each sht In Worksheets If sht.Name < shtInput.Name And sht.Visible = True Then sht.PrintOut End If Next End Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Unique print macro question
Got it
Replace the last two lines with worksheet(page1).printout worksheet(page2).printout "Brad" wrote: Excel 2003 - Workbook has many sheets - all but three are hidden. "shtInput" is always visible What I want to do is to control which sheet get printed first and I want the sheet that has a sheet name ending in "v" print first and the other sheet to print second. There will always be only one visible sheet that has a sheet name ending if "v". Below is the working macro that I would like to add to. Any help would be greatly appreciated. Sub Print_pages() Dim sht As Worksheet shtAgent.Visible = False For Each sht In Worksheets If sht.Name < shtInput.Name And sht.Visible = True Then sht.PrintOut End If Next End Sub |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Unique print macro question
try For Each sht In Worksheets If sht.Name < shtInput.Name And sht.Visible = True Then If (Right(sht.CodeName, 1) = "V") Then sht.printout end if next For Each sht In Worksheets If sht.Name < shtInput.Name And sht.Visible = True Then If (Right(sht.CodeName, 1) < "V") Then sht.printout end if next "Brad" wrote: Okay I got this far Sub Print_pages() Dim sht As Worksheet Dim page1 As String Dim page2 As String shtAgent.Visible = False For Each sht In Worksheets If sht.Name < shtInput.Name And sht.Visible = True Then If (Right(sht.CodeName, 1) = "V") Then page1 = sht.Name Else page2 = sht.Name ' sht.PrintOut End If End If Next ' page1.PrintOut ' page2.PrintOut End Sub But how do I tell it to print out page1 and page2? Get an error message with page1.printout "Brad" wrote: Excel 2003 - Workbook has many sheets - all but three are hidden. "shtInput" is always visible What I want to do is to control which sheet get printed first and I want the sheet that has a sheet name ending in "v" print first and the other sheet to print second. There will always be only one visible sheet that has a sheet name ending if "v". Below is the working macro that I would like to add to. Any help would be greatly appreciated. Sub Print_pages() Dim sht As Worksheet shtAgent.Visible = False For Each sht In Worksheets If sht.Name < shtInput.Name And sht.Visible = True Then sht.PrintOut End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Question with existing print macro | Excel Discussion (Misc queries) | |||
Display Unique Values Question | Excel Worksheet Functions | |||
how to print a page many times but add a unique reference on each | Excel Worksheet Functions | |||
Print unique values | Excel Worksheet Functions | |||
Pivot Table macro to set print area and print details of drill down data | Excel Discussion (Misc queries) |