When i try i have an error on Cells (a1,Lastrow)
Why?
Thanks

-----Original Message-----
If you don't set the print area, Excel should
automatically print the whole
page - an it should handle hidden rows automatically as
well - so no code
should be required if you remove the print area in
insert=Names=define.

but, if you only want to print column A

Sub print()
LastRow = Range("a65000").End(xlUp).Offset(1, 5)
Cells(A1, LastRow).Select

ActiveSheet.PageSetup.PrintArea = "$A$1:A" & LastRow"
Selection.PrintOut Copies:=1, Collate:=True

But it appears you might want to print 5 columns

ActiveSheet.PageSetup.PrintArea = "$A$1:E" & LastRow"


Regards,
Tom Ogilvy


"Peter" wrote in message
...
Hi,
i have an area to print. It always is not equal, does
every time depend on the extraction of the data that
youare filtered in the report, I have a base of the code
here, as does it have to be correct? Thanks in
advance.Pit


Sub print()
LastRow = Range("a65000").End(xlUp).Offset(1, 5).Select
Cells(A1, LastRow).Select

ActiveSheet.PageSetup.PrintArea = "$A$1:LastRow"
Selection.PrintOut Copies:=1, Collate:=True

End Sub


.