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