Specify Number of copies and individual footer for each copy.

[Josh]

I have a document that I need to print exactly 3 copies of. On each copy I
want a different footer, like "Customer Copy", "Our Copy", "File Copy". How
can I do this programatically?

 

[Greg]

Josh,

Put a bookmark in the footer named "Copy"

Run this macro to print:

Sub TriCopy()
Dim Copy As String
Dim i As Integer
Dim rng1 As Range
Set rng1 = ActiveDocument.Bookmarks("Copy").Range
i = 1
For i = 1 To 3
Select Case i
Case Is = 1
Copy = "Customer Copy"
Case Is = 2
Copy = "Our Copy"
Case Is = 3
Copy = "File Copy"
End Select
rng1.Delete
rng1.Text = Copy
ActiveDocument.PrintOut
Next
ActiveDocument.Bookmarks.Add Name:="Copy", Range:=rng1
End Sub

 

[Josh]

Great Thanks,

One more question how can I attach this macro to say the print button?

 

[Greg Maxey]

Josh,

You probably don't want to do that.

Let's say that you are creating these documents using a template that you
have named "Customer Reports." You could attach this macro to a menu item,
icon, or keyboard shortcut stored in that template. See:

http://word.mvps.org/FAQs/Customization/AsgnCmdOrMacroToToolbar.htm
and
http://word.mvps.org/FAQs/Customization/AsgnCmdOrMacroToHotkey.htm