Avoid Excel Print blank pages

[Toadstool]

I'm looking for a function/formula or 1-off change solution to stop Excel printing blank pages.

I have 100 rows of data and formulae, in case there is that many data entries to make, but most of the time there will be 10 or 12 data entries which should fit one page, the other rows returning null "" from their formulae. It seems like Excel wants to print the blank pages because they have formulae, but this sheet will be used by a non-expert so I'd like to make it:

1. Print the necessary page(s) without them having to do a Set Print area each time.
2. Avoid VBA, Macros or Sub-Totals, rather some function or Excel setting to change once.

I've found a way to dynamically change the Print_Area by setting a Name to a calculated result (i.e. only rows with displayable data) but it will get unset if the operator ever uses Set Print area or Clear Print area, and you know they will...
Here's an example of the challenge:

Any ideas?

 

[JLGWhiz]

If you put your code for the dynamic pagenation in the workbook_beforeprint event, the user would have to change the code to avoid the print set up.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'code to set print area here
End Sub

The code goes in the ThisWorkbook code module.

 

[Toadstool]

JLGWhiz, Thanks but I was looking to "Avoid VBA, Macros or Sub-Totals".