hide rows in specific range before printing

[already]

Hello

I want to hide rows with empty data in a column (D) but only in a specific part(range A11:D39) of the worksheet before printing. I though that following part of code could do the job but I'm wrong

With ActiveSheet

On Error Resume Next
Set rng = Sheets("Sheet1").Range("A11:D39")
.Columns("d").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
.PrintOut
.Columns("d").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
On Error GoTo 0
End With

Any help will be appreciated

kind regards

Al

 

[sykes]

Dim cl As Range
Dim rng As Range
With ActiveSheet

On Error Resume Next
Set rng = Sheets("Sheet1").Range("D11:D39")
For Each cl In rng
If cl.Value = "" Then cl.EntireRow.Hidden = True
Next
.PrintOut
For Each cl In rng
cl.EntireRow.Hidden = False
Next

On Error GoTo 0
End With

 

[AlphaFrog]

Sub Hide_Blank_DRows()

    Dim rng As Range, c as Range
    
    Set rng = Sheets("Sheet1").Range("A11:D39")
    For each c in rng
         If IsBlank(c) Then c.EntireRow.Hidden = True
    Next c
    ActiveSheet.PrintOut
    rng.EntireRow.Hidden = False

End Sub

 

[sykes]

...........I think AlphaFrog's will pick up the blank cells in the other columns - possibly hiding rows you wish to keep visible (as per your original code) but I believe you only actually wish to hide rows with blanks in column D.
However, the specialcells method's cleaner, so this is a sawn-off version of my previous:

Dim rng As Range

    With ActiveSheet
        On Error Resume Next
            Set rng = Sheets("Sheet1").Range("D11:D39")
            rng.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
            .PrintOut
            rng.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
        On Error GoTo 0
    End With

 

[already]

Hi

Working fine

Thanks for your help!!!

Have a nice WE

Al