Sub printeachrow()
Application.ActivePrinter = "hp officejet 5500 series on Ne00:"


For i = 1 To cells(rows.count,"a').end(xlup).row '750
Range(Cells(i, "a"), Cells(i, "k")).Printout
Next i
End Sub

--
Don Guillett
SalesAid Software

"jnjwilliams94" <u25776@uwe wrote in message news:6558417c7c6b1@uwe...
I would like to be able to loop my macro. I have 750 rows and need to
print
out 1 row at a time each on a seperate piece of paper. My macro is the
following:
Range("A2:K2").Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$K$2"
Application.ActivePrinter = "hp officejet 5500 series on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"hp officejet 5500 series on Ne00:", Collate:=True

End Sub

Can someone tell me how to get this to continue to "A725:K725"