Thanks, two add'l questions...can this be changed to Print instead of
PrintPreview to save time?

Second, can you code be added to this sorting macro?
Sub dist_sort()
'
' dist_sort Macro
' Macro recorded 1/23/2007 by Bob Bridwell
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
Range("A8:AC113").Select
ActiveWindow.SmallScroll Down:=-102
ActiveWindow.SmallScroll ToRight:=-4
Selection.Sort Key1:=Range("H8"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
end sub

and it doesn't get much easier!!

"Don Guillett" wrote:

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