If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Macro
Hi
i have the following macro set up & linked to a customised button on my toolbar: Sub Ken_Full_Screen_View() ' ' Ken_View Macro ' Macro recorded 01/04/2009 by lois ' ' ActiveWindow.Zoom = 400 ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Array("Cover Sheet", "FAULTS BY Nº", "FAULTS BY COST", "Summary", "No 1", _ "No 2", "No 3", "No 4", "No 5", "No 6", "No 7", "No 8")).Select Sheets("Cover Sheet").Activate ActiveWindow.SelectedSheets.PrintPreview End Sub is there any way to generalise it so that i can use it on any workbook? -- Lois |
#2
|
|||
|
|||
Macro
ActiveWindow.Zoom = 400
ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets.Select Sheets(1).Activate ActiveWindow.SelectedSheets.PrintPreview If this post helps click Yes --------------- Jacob Skaria "Lois" wrote: Hi i have the following macro set up & linked to a customised button on my toolbar: Sub Ken_Full_Screen_View() ' ' Ken_View Macro ' Macro recorded 01/04/2009 by lois ' ' ActiveWindow.Zoom = 400 ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Array("Cover Sheet", "FAULTS BY Nº", "FAULTS BY COST", "Summary", "No 1", _ "No 2", "No 3", "No 4", "No 5", "No 6", "No 7", "No 8")).Select Sheets("Cover Sheet").Activate ActiveWindow.SelectedSheets.PrintPreview End Sub is there any way to generalise it so that i can use it on any workbook? -- Lois |
#3
|
|||
|
|||
Macro
thanks,
is there a macro that i can use when i click close on the print preview screen, to zoom the workbook back to 100 & ungroup all the sheets? -- Lois "Jacob Skaria" wrote: ActiveWindow.Zoom = 400 ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets.Select Sheets(1).Activate ActiveWindow.SelectedSheets.PrintPreview If this post helps click Yes --------------- Jacob Skaria "Lois" wrote: Hi i have the following macro set up & linked to a customised button on my toolbar: Sub Ken_Full_Screen_View() ' ' Ken_View Macro ' Macro recorded 01/04/2009 by lois ' ' ActiveWindow.Zoom = 400 ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Array("Cover Sheet", "FAULTS BY Nº", "FAULTS BY COST", "Summary", "No 1", _ "No 2", "No 3", "No 4", "No 5", "No 6", "No 7", "No 8")).Select Sheets("Cover Sheet").Activate ActiveWindow.SelectedSheets.PrintPreview End Sub is there any way to generalise it so that i can use it on any workbook? -- Lois |
#4
|
|||
|
|||
Macro
Hi,
i have copied the macro unto another workbook & tried to run it, but it wont run as it doesnt like the 'Sheets.Select' why has this happened & is there any way to fix it?? -- Lois "Jacob Skaria" wrote: ActiveWindow.Zoom = 400 ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets.Select Sheets(1).Activate ActiveWindow.SelectedSheets.PrintPreview If this post helps click Yes --------------- Jacob Skaria "Lois" wrote: Hi i have the following macro set up & linked to a customised button on my toolbar: Sub Ken_Full_Screen_View() ' ' Ken_View Macro ' Macro recorded 01/04/2009 by lois ' ' ActiveWindow.Zoom = 400 ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Array("Cover Sheet", "FAULTS BY Nº", "FAULTS BY COST", "Summary", "No 1", _ "No 2", "No 3", "No 4", "No 5", "No 6", "No 7", "No 8")).Select Sheets("Cover Sheet").Activate ActiveWindow.SelectedSheets.PrintPreview End Sub is there any way to generalise it so that i can use it on any workbook? -- Lois |
Thread Tools | |
Display Modes | |
|
|