Sub Macro1()
For i = 1 To 20
Range("A1").Value = i
Application.Calculate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub

The Calculate is in there just to be sure the print occurs after the dust
has settled.
--
Gary''s Student - gsnu200727


"qualityxpert" wrote:

I need some ideas to develope a macro.
I have a large spreadsheet, and would like to print, then change a cell to
the next value on a list, and then print this spreadsheet, and continue until
all the items on the list have been used.
Any ideas
--
Alan Jung
Triumph Structures
Chatsworth, CA 91311