Repeating rows not wanted
I came up with a work around.
Utilizing the following placed in ThisWorkbook
from Ron DeBruin
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet 1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.Rows("22:23").EntireRow.Hidden = False
.PrintOut
.Rows("22:23").EntireRow.Hidden = True
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
I copied rows 12:13 to 22:23 where I need them
and used the above code. It works. The only issue
I will have is if the rows increase on page one of the
report I may have to adjust where I put 22:23.
|