Print Macro Reducing Page layout the more info gets added to worksheet

I have a spreadsheet that has Columns from “A thru U” and my rows continue down the sheet depending on the amount of information at any given time. As you add more info going down the column it has formulas that calculate “A thru U”.

My problem is I have a macro to Print the page (I did not write) when you need to as you go along but my issue is that when I have about 100 entries going down the page it prints fine and keeps the print to about 8 ½ x 11” Portrait and it is easy to read.

The problem is that as more info gets entered at some point when you print it bunches the spreadsheet much narrower and there is large spacing all around the sheet and make it difficult to read. Can you look at the code and give any suggestions?

Sub Survey()
ActiveSheet.PageSetup.PrintArea = Range("A1:U" & Range("b65536").End(xlUp).Row).Address
Application.Dialogs(xlDialogPrint).Show
End Sub


I have included a screen shot of each for you to view.