Need print code please

R

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
 
R

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
 
T

Tom Ogilvy

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