Macro - Multiple printing

[Guest]

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

 

[Guest]

hi,
need to know more about this "list" of values. what values will be in the
list? Are you wanting to print different sheets or different ranges on the
same sheet?

regards
FSt1

 

[Gary Keramidas]

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