Supress Rows Before Printing - Toolbar Icons become disable
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 Rows Before Printing - Toolbar Icons become disable
You can delete the .Printout line, and replace it with
Application.Dialogs(xlDialogPrint).Show. That brings up the normal excel print dialog form, which allows you to select printers, page nrs, and to preview. Then remove the period in front of Rows in the next line -- HTH Kassie Replace xxx with hotmail "igbert" wrote: 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 Rows Before Printing - Toolbar Icons become disable
Hi Kassie,
Thanks for the solution. Is there a way to use this macro for printing different worksheets depressing different rows within the same workbook. Thanks, Igbert "Kassie" wrote: You can delete the .Printout line, and replace it with Application.Dialogs(xlDialogPrint).Show. That brings up the normal excel print dialog form, which allows you to select printers, page nrs, and to preview. Then remove the period in front of Rows in the next line -- HTH Kassie Replace xxx with hotmail "igbert" wrote: 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 |
All times are GMT +1. The time now is 06:13 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com