Maybe something like:

option explicit
sub testme01()

dim FirstRow as long
Dim LastRow as long
Dim iRow as long

with worksheets("sheet1")
firstrow = 2
lastrow = .cells(.rows.count,"A").end(xlup).row
for irow = firstrow to lastrow
.rows(irow).copy
.range("a1").pastespecial paste:=xlpastevalues
.range("Print").printout Preview:=true
next irow
end with

end sub

Needy Novice wrote:

I am new to Excel Macros, but not to Excel. I want to write a macro that
will copy the VALUES in a row to row A1, then print the range "Print", return
to the next row in the worksheet and do it again.

When I recorded my macro, it keeps returning to the first row I copied and
does not go down to the next row and repeat the action.

--

Dave Peterson