I
igbert
I have used the following Macros from the Discussoion Group in Excel 2007 to
supress printing of Row 1 to 5.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Hide Row 1 to Row 5 when printing
If ActiveSheet.Name = "Adjustment" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.Rows("1:5").EntireRow.Hidden = True
.PrintOut
.Rows("1:5").EntireRow.Hidden = False
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
However, after I clicked "Print Preview", all toolbar icons are disable for
selection. I can only get out from pressing the "Esc' key.
When I take out the above Macro, selection becomes available.
Hope someone can help.
Thanks.
Igbert
supress printing of Row 1 to 5.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Hide Row 1 to Row 5 when printing
If ActiveSheet.Name = "Adjustment" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.Rows("1:5").EntireRow.Hidden = True
.PrintOut
.Rows("1:5").EntireRow.Hidden = False
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
However, after I clicked "Print Preview", all toolbar icons are disable for
selection. I can only get out from pressing the "Esc' key.
When I take out the above Macro, selection becomes available.
Hope someone can help.
Thanks.
Igbert