[RESOLVED] Excel VBA - Print only "not empty" pages

[westconn1]

i don't think you can do it as easy as that, but you can test like this, this only test the first page, so you would have to loop through all the pagebreaks to test each range, then print each range

Set s = ThisWorkbook.Sheets("sheet2")
With s
vb = .VPageBreaks(1).Location.Column - 1
hb = .HPageBreaks(1).Location.Row - 1
Set r = .Range(.Cells(1, 1), .Cells(hb, vb))
For Each c In r
    If Not IsEmpty(c) Then notempty = True: Exit For
Next
If notempty Then r.PrintOut