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

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

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

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