Dim cell as Range
for each cell in Range("Table").columns(1).Cells
cell.Resize(1,Range("Table").columns.count).copy _
Destination:=worksheets("Form").Range("A3")
Worksheets("Form").Printout
Next

--
Regards,
Tom Ogilvy


"Rick Billingsley" <Rick wrote in
message ...
I have a macro that copies/pastes data from a row into a form then prints
the
form. How do get this to repeat for all of the rows in the table?

TIA