Try this Roger

Sub printtest()
Endrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("a1:a" & Endrow).PrintOut
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Roger March" wrote in message news:6RmOb.148898$JQ1.42673@pd7tw1no...
I need help in creating a macro to find the last entry in a colum after I
have sorted a range. (range changes every time) What i have is a order
entry sheet , I have a macro to
sort the range by the entry column, now I need to find the last entry and
print from last entry to A1. A macro attach'd to a button would be the cats
ass.
help Please

tks

Roger