Is this easy enough?

Sub printwhatarea()
myrow = InputBox("row number")
Range("a2:f" & myrow).PrintPreview
End Sub

--
Don Guillett
SalesAid Software

"reno" wrote in message
...
i got no takers first time.
i have a worksheet that lists all zipcodes w/in a specified radius 5, 10,
15
20 and 25 miles, then a run a macro to place them in ascending order, then
i
want to print only the sorted data that meet the spec.

in some cases it could be one or upwards of 100 or so that would run to
two
pages.

if i were to do a calculation to put say an "x" in the far right column to
indicate the lower right of the print range, is there a way a macro could
print from A1: "x", w/out having to highlight each and every time...there
are
about 50 sheets to print.
thanks