Macro - Multiple printing
 

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

Macro - Multiple printing
 

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

"qualityxpert" wrote:

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

Macro - Multiple printing
 

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