Thanx. But I know how to do it that way. I just need to automate the
process because I dont have time to teach/show everyone else how to.
So, if I could just ammend the code to :

(1) self adjust the print area by this criteria -
Range("I65536:K65536").End(xlUp).Row ;

(2) set to landscape

(3) collate the pages (if more than one);

(4) adjust the "fit to" so that each page doesnt not come out small,
but rather large enough for my grandma to read on a semi-bad eye day.

I even found this code that seemingly works, but just need to self-set
the print area and allow for more than one page.

Sub test()
With ActiveSheet.PageSetup
.PrintArea = Selection.Address
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.Orientation = xlLandscape
End With
ActiveSheet.PrintOut preview:=True
End Sub

Thanx