OK i have 3 questions. I thought i had one of the 3 figured out but i guess not.
1st one: Is there a simpler way to clean up this code. What i am after is i have 3 worksheets and i need one collumn hidden and unhidden for prints. So say the first sheet to get printed is 90 & 91 Coll. I need collum AF unhidden for 1 print, and then hidden for 2 prints. same thing for the other 2 sheets. I know the copies only say 1 for the hidden section that is a no brainer :P
Second One: Again just looking for a simpler way to print without having to watch the workbook select each sheet and print. These are just print the active shee which is fine if there is nothing to do with it.
Last but not least: I thought in the VB editor you could double click on say This Workbook and type in code you want automatically ran everytime this work book is open. IE.. everytime the workbook is opened i want it to go to the "Home" worksheet which is where i have all the nifty buttons i created for the other macro's and what not to use for navigation and printing sorting blah blah blah. I tried doing that but it didnt seem to work. Any ideas as to what im doing wrong?
1st one: Is there a simpler way to clean up this code. What i am after is i have 3 worksheets and i need one collumn hidden and unhidden for prints. So say the first sheet to get printed is 90 & 91 Coll. I need collum AF unhidden for 1 print, and then hidden for 2 prints. same thing for the other 2 sheets. I know the copies only say 1 for the hidden section that is a no brainer :P
Code:
Sub Print_col_sheets()
'Print Collection Sheets
Sheets("#90 & 91 Coll").Select
Columns("AE:AG").Select
Selection.EntireColumn.Hidden = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Columns("AF:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("DSA COLL").Select
Columns("Z:Z").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Columns("Y:AA").Select
Selection.EntireColumn.Hidden = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("BCRF Coll").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Columns("AE:AG").Select
Selection.EntireColumn.Hidden = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Home").Select
End Sub
Second One: Again just looking for a simpler way to print without having to watch the workbook select each sheet and print. These are just print the active shee which is fine if there is nothing to do with it.
Code:
Sub Print_Wk_totals()
'Print Weekly Totals
Sheets("#90 & 91 Weekly").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("DSA WEEKLY").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("BCRF Weekly").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Home").Select
End Sub
Last but not least: I thought in the VB editor you could double click on say This Workbook and type in code you want automatically ran everytime this work book is open. IE.. everytime the workbook is opened i want it to go to the "Home" worksheet which is where i have all the nifty buttons i created for the other macro's and what not to use for navigation and printing sorting blah blah blah. I tried doing that but it didnt seem to work. Any ideas as to what im doing wrong?