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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 05:27 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com