Copy&paste Print loop help please

Hi,

I'm not very experienced in writing VBA at all and so find myself stuggling with what seems to be a simple task.

I have a template which basically has a vlookup to a list (grni sheet). What im trying to do is to get excel to print the template and then copy and paste the next cell down from the list "grni sheet" and print again until it reaches the bottom of the list

All I have so far is:

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("grni").Select
ActiveCell.Offset(1, 0).Range("A1").Select 'i need this to work it's way down the list to the end'
Selection.Copy
Sheets("Manual Adjustment Form").Select
ActiveCell.Offset(-4, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(4, 1).Range("A1").Select
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

If i can get this to work it is going to save so much time so any help or suggestions would be appreciated.

Thanks

Please take a few moments to re-read the forum rules and add CODE tags to your code example.

While you're at it, please upload a sample workbook so the problem and data can be seen together in context.

Regards

Maybe this will do what you want:

Please Login or Register  to view this content.

Regards

You're welcome.

If this has answered your question, please mark your thread as solved. See my signature for details or the FAQ.

Regards