Prev: numbers in a column are not sorting ascending
Next: Need to bring back 2 vlookup values
From: Opal on 7 Apr 2010 19:25
Thanks, I wish I could, but the information in it
is proprietary. The only thing we were thinking
was maybe our IS Dept has failed to install
a Microsoft update..... :-(

From: Opal on 8 Apr 2010 09:08
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.

First  |  Prev  | 
Pages: 1 2 3
Prev: numbers in a column are not sorting ascending
Next: Need to bring back 2 vlookup values