printing rows that meet criteria

[achiarotto]

Hello all,

I have a small form with 2 columns(A,B) and 40 rows,
I only want to print row X if cell BX has data in it.
Is there an easy way to automate that or is the only way to manually hide the rows I don't want to have printed?

Any help would be appreciated.
Thanks

 

[SteveO59L]

Try an auto filter, and use the custom option, where rows arent equal to

 

[Lewiy]

Perhaps this:

Sub PrintAreas()
Dim Limit As Long
Dim c As Long
Dim sh As Worksheet
Set sh = Worksheets("Sheet1")
With sh
    Limit = .Cells(Rows.Count, 1).End(xlUp).Row
    For c = Limit To 1 Step -1
        If .Cells(c, 2) = "" Then
            .Rows(c).Hidden = True
        End If
    Next c
    .PageSetup.PrintArea = "$A$1:$B$" & Limit
End With
End Sub

 

[Lewiy]

You can then stick a sh.PrintOut at the end if you want the macro to print it as well.

 

[achiarotto]

Sorry I should have stated that I have very basic excel knowledge.
Where would I place that VB Script?

 

[Lewiy]

Hit Alt+F11 to open the VB Editor. From here select Insert>Module and then paste the code into the big white screen!

You can then close the VB Editor and run the code like a Macro (Tools>Macro>Macros)