How to set print area to last visible text in row and column?

Question

Worksheet has 100 rows and about 150 columns.

At any given time, only 20/40 of these will be visible.

CTRL+ UP for rows = 100 (row)

Ctrl+LEFT = CS (colu