|
printpreview
I'm using the following code to prevent the empty rows printing.
Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Initiatives" Then Cancel = True Application.EnableEvents = False Application.ScreenUpdating = False With ActiveSheet On Error Resume Next .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = True .PrintOut .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = False On Error GoTo 0 End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub But, when I'm trying to use the code below to get a preprint report it's not working. ActiveWindow.SelectedSheets.PrintPreview Could anybody advise how I could make it's working? Thanks |
printpreview
Hi Alex
Try to disable the events Application.EnableEvents = False ActiveWindow.SelectedSheets.PrintPreview Application.EnableEvents = True -- Regards Ron de Bruin http://www.rondebruin.nl "Alex" wrote in message ... I'm using the following code to prevent the empty rows printing. Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Initiatives" Then Cancel = True Application.EnableEvents = False Application.ScreenUpdating = False With ActiveSheet On Error Resume Next .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = True .PrintOut .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = False On Error GoTo 0 End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub But, when I'm trying to use the code below to get a preprint report it's not working. ActiveWindow.SelectedSheets.PrintPreview Could anybody advise how I could make it's working? Thanks |
printpreview
Thanks a lot, Ron.
Now, it's working. "Ron de Bruin" wrote: Hi Alex Try to disable the events Application.EnableEvents = False ActiveWindow.SelectedSheets.PrintPreview Application.EnableEvents = True -- Regards Ron de Bruin http://www.rondebruin.nl "Alex" wrote in message ... I'm using the following code to prevent the empty rows printing. Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Initiatives" Then Cancel = True Application.EnableEvents = False Application.ScreenUpdating = False With ActiveSheet On Error Resume Next .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = True .PrintOut .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = False On Error GoTo 0 End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub But, when I'm trying to use the code below to get a preprint report it's not working. ActiveWindow.SelectedSheets.PrintPreview Could anybody advise how I could make it's working? Thanks |
printpreview
Sorry, Ron.
I've reported it as done. But, now I'm getting all pages not just filled rows as before. The Private Sub Workbook_BeforePrint(Cancel As Boolean) is not working. (the code in the post below ) "Ron de Bruin" wrote: Hi Alex Try to disable the events Application.EnableEvents = False ActiveWindow.SelectedSheets.PrintPreview Application.EnableEvents = True -- Regards Ron de Bruin http://www.rondebruin.nl "Alex" wrote in message ... I'm using the following code to prevent the empty rows printing. Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Initiatives" Then Cancel = True Application.EnableEvents = False Application.ScreenUpdating = False With ActiveSheet On Error Resume Next .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = True .PrintOut .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = False On Error GoTo 0 End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub But, when I'm trying to use the code below to get a preprint report it's not working. ActiveWindow.SelectedSheets.PrintPreview Could anybody advise how I could make it's working? Thanks |
printpreview
I've reported it as done. But, now I'm getting all pages not just filled
rows as before. That's correct What did you expect If you only want to preview then use Sub test() With Sheets("Initiatives") On Error Resume Next .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = True .PrintPreview .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = False On Error GoTo 0 End With End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Alex" wrote in message ... Sorry, Ron. I've reported it as done. But, now I'm getting all pages not just filled rows as before. The Private Sub Workbook_BeforePrint(Cancel As Boolean) is not working. (the code in the post below ) "Ron de Bruin" wrote: Hi Alex Try to disable the events Application.EnableEvents = False ActiveWindow.SelectedSheets.PrintPreview Application.EnableEvents = True -- Regards Ron de Bruin http://www.rondebruin.nl "Alex" wrote in message ... I'm using the following code to prevent the empty rows printing. Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Initiatives" Then Cancel = True Application.EnableEvents = False Application.ScreenUpdating = False With ActiveSheet On Error Resume Next .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = True .PrintOut .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = False On Error GoTo 0 End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub But, when I'm trying to use the code below to get a preprint report it's not working. ActiveWindow.SelectedSheets.PrintPreview Could anybody advise how I could make it's working? Thanks |
printpreview
Thank you very much. It's working
"Ron de Bruin" wrote: I've reported it as done. But, now I'm getting all pages not just filled rows as before. That's correct What did you expect If you only want to preview then use Sub test() With Sheets("Initiatives") On Error Resume Next .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = True .PrintPreview .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = False On Error GoTo 0 End With End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Alex" wrote in message ... Sorry, Ron. I've reported it as done. But, now I'm getting all pages not just filled rows as before. The Private Sub Workbook_BeforePrint(Cancel As Boolean) is not working. (the code in the post below ) "Ron de Bruin" wrote: Hi Alex Try to disable the events Application.EnableEvents = False ActiveWindow.SelectedSheets.PrintPreview Application.EnableEvents = True -- Regards Ron de Bruin http://www.rondebruin.nl "Alex" wrote in message ... I'm using the following code to prevent the empty rows printing. Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Initiatives" Then Cancel = True Application.EnableEvents = False Application.ScreenUpdating = False With ActiveSheet On Error Resume Next .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = True .PrintOut .Columns("A").SpecialCells(xlCellTypeBlanks).Entir eRow.Hidden = False On Error GoTo 0 End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub But, when I'm trying to use the code below to get a preprint report it's not working. ActiveWindow.SelectedSheets.PrintPreview Could anybody advise how I could make it's working? Thanks |
| All times are GMT +1. The time now is 04:52 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com