Print a different number of copies of a Word doc.

[John B]

Hello to everybody.

In a document of 2 pages how may I:
- print 1 copy of page 1
- print 4 copies of page 2

At the moment I have two separate files, but is there any chance do to
everything in a same document.
I am using Word 97.

Many thanks in advance.
Regards
John

 

[Rob Schneider]

Put cursor in the relevant page (1 then 2).
Menu: File/Print ... on this box pick "print current Page", and on
setting number of copies, pick relevant number(1 for p2 and 4 for p 2).

Hope this is useful to you. Let us know.

rms

 

[John B]

Put cursor in the relevant page (1 then 2).
Menu: File/Print ... on this box pick "print current Page", and on
setting number of copies, pick relevant number(1 for p2 and 4 for p 2).

Hope this is useful to you. Let us know.

rms

Many thanks for the answer.
However how, may I do this with a single click on a button: recorder a macro
or try to write a few line of VBA? In this case I am really out.
Thanks again.
Regards
John

 

[Rob Schneider]

Oh. You didn't ask that. Did you try doing this manually with the
macro recorder on, and then look at the recorded macro? I did this.
Result shown below. You can clean it up to remove the unnecessary
settings that are automatically recorded.

Basically, it was

GoTo Page 1
Print current page 1 copy
GoTo Page 2
Print current page 4 copies

Assign this macro to a button, or something.

Read more in "Help" about macro recording.

Sub Macro5()
'
' Macro5 Macro
' Macro recorded 28/06/2004 by Rob Schneider
'
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
ActivePrinter = "PostScript File"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveWindow.ActivePane.LargeScroll Down:=2
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
Selection.Find.ClearFormatting
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=4, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub