Need print code please

[Rodders]

Hi all

Could someone let me have some code to print a workbook down as far as the
last used row.

Thanks in advance

 

[Rodders]

Thanks Tom - but I can't delete rows or columns - I guess maybe what I'm
trying to do is change the print area to go down only as far as a row with a
certain value in column A (for instance) and then print

Any ideas please?

Cheers

 

[Tom Ogilvy]

ActiveSheet.PageSetup.PrintArea = Range(cells(1,1),Cells( _
rows.count,1).end(xlup)).Resize(,10).Address(external:=True)
Activesheet.Printout