Sub SetPrintArea()
Dim sh as Worksheet, rng as Range
for each sh in worksheets
set rng = sh.Range(sh.Cells(1,1),sh.Cells(rows.count,1).End( xlup))
sh.pageSetup.PrintArea = rng.Resize(,19).Address(external:=True)
Next
End Sub

Assuming that column A does not contain formulas but contains Data.

--
Regards,
Tom Ogilvy


"wilson@irco" wrote in message
...
Thank you Tom. Unfortunately not that simple. The data does always start
in
A1, but due to the condition that additional lines are added next mo.
formulas extend beyond this month's print range. There are also column
breaks (H,L and Q). The end column remains constant (S).

"Tom Ogilvy" wrote:

What determines the extent of the print range?

does the upper left corner never change and can we assume the print
ranges
are contiguous blocks of data separated from other data by the edge of
the
sheet or blank rows and columns. If so

Worksheets("Sheet2").Select
Range("B9").CurrentRegion.Select


--
Regards,
Tom Ogilvy

"wilson@irco" wrote in message
...
I have multiple spreadsheets with varying print ranges that change
monthly.
I'm trying to figure out the macro using sendkeys, but not working
very
well.
Any suggestions?