A
Alex
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).EntireRow.Hidden =
True
.PrintOut
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.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
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).EntireRow.Hidden =
True
.PrintOut
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.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