View Single Post
  #12   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Opal Opal is offline
external usenet poster
 
Posts: 59
Default 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.