Print non blanks

[louvaek]

I posted this thread half an hour ago, but I could only open it in printable view (so I make a new one, admins can delete the one before)

In attachment a file, already containing a macro.
But I need help on a second one.

In the first sheet (Ritvakken) I have COL B & C compared with F & G. If not the same value ==> they go into COL J & K
In second sheet (Print 1) there's an overview of those J & K values, but in another order.
In last sheet (Print 2), all values from J & K are shown, but on other font sizes (that's what the excisting marcro already does).

In Sheet Ritvakken, there's a button to 'Print'. First of all, it should print the entire page 'Print 1' (allready done in code), but then it should also print the pages from sheet 'Print 2'.
You'll see it coming, only the pages that are not blank! (otherwhise it will print 132 pages everytime)

Can someone help me out on this one please?
Thx !!

[louvaek]

Found it ...

Sub Print_Excluding_Blanks()
Dim Cell As Range, rColA As Range

Application.ScreenUpdating = False
Set rColA = Range("A1", Range("A" & Rows.Count).End(xlUp))
rColA.EntireRow.Hidden = True
For Each Cell In rColA
If Cell.Value <> "" Then
Cell.EntireRow.Hidden = False
ActiveSheet.PrintPreview '.PrintOut
Cell.EntireRow.Hidden = True
End If
Next Cell
rColA.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub