Hiding rows when printing

[DHallam]

Hi all,

I have this code that works really well for hiding rows when they do
not have anything in. However the rows I need to hide all have
formulas in as they pull data from other worksheets and therefore this
code doesnt work. Does anyone know how i can get over this?

The code i currently have is this:

Sub Hide_Print_Unhide()
Dim rw As Long
Application.ScreenUpdating = False

With Sheets("Sheet1")
For rw = 1 To 30
If Application.WorksheetFunction.CountA( _
..Cells(rw, 1).Range("A1:G1")) = 0 Then _
..Rows(rw).Hidden = True
Next rw
..PrintPreview
..Range("A1:A30").EntireRow.Hidden = False
End With

Application.ScreenUpdating = True
End Sub

 

[Roger Govier]

Hi

You could try changing the test for the blank lines to

If Application.WorksheetFunction.CountBlank( _
Cells(rw, 1).Range("A1:G1")) = 7 Then _
Rows(rw).Hidden = True