This will work:

Sub demo()

Dim ws As Worksheet
Set ws = ActiveSheet

ws.PageSetup.PrintArea = ws.Range("a1").Resize(710,
ws.Cells.SpecialCells(xlCellTypeLastCell).Column). Address

End Sub




"manfareed" wrote:

I have finance spreadsheets i.e. P&Ls for different countries. Each of the
spreadsheets has a different last column which has data in it. These reports
are generated from our finance reporting tool. Instead of manually setting a
print range, is there a way of using VBA to set the range which takes into
account the last column with data. The last row in all cases should be
€œ710€�.[egs of print areas : .PrintArea = "$A$1:$BM$710" ; .PrintArea =
"$A$1:$BA$710"]
I dont know what the print range will be until the report has been ran. I
wish to attach the €œmacro€� to the blank template which is used by the
reporting tool. When a country specific report is ran the relevant columns
will be €œpopulated€�.

Thanks