not exactly sure what you want, but i've used something like this. this prints
out 2 copies, i actually use an inputbox to ask for the number of copies, but i
simplified it here.

you can add a variable or array within the for next loop to change the value.

Set rng = ws.Range("E1:M45")
For i = 1 To 2
With ws.PageSetup
.Orientation = xlLandscape
.CenterHorizontally = True
.FooterMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.5)
.LeftMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.75)
.PrintArea = rng.Address
.HeaderMargin = Application.InchesToPoints(0.25)
.RightHeader = "&B&16 " & Date
.CenterHeader = "&B&16 Sheet 1"
End With

ws.PrintOut Copies:=1, Collate:=True

Next
--


Gary


"qualityxpert" wrote in message
...
I need to develop a macro to print a spreadsheet, then change a value in a
cell to the next value from a list and print the new spreadsheet and continue
for all values on the list.
Any ideas
--
Alan Jung
Triumph Structures
Chatsworth, CA 91311