ID: Q118479
2.x 6.00 6.00a 6.00c 7.00 WINDOWS kbusage kbmacro kbhowto
The information in this article applies to:
This article describes how to change the default number of copies in the Print dialog box. (To locate this option, choose Print from the File menu.)
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.
The following macro will change the default number of copies to print to 3. You must name the macro "FilePrint" because it replaces the Word command FilePrint.
Sub MAIN
on error goto out
Dim dlg As FilePrint
GetCurValues dlg
dlg.NumCopies = 3
Dialog dlg
FilePrint dlg
out:
End Sub
You can specify a number other than 3 on the following line
dlg.numcopies = x
where "x" should be replaced with the desired number of copies.
Kbcategory: kbusage kbmacro kbhowto KBSubcategory: Additional reference words: winword2 2.00 2.00a 2.00a-CD 2.00b 2.00c 6.00 word7 word6 winword 6.00c 7.00 word95 6.00a 6.00c fileprint copies number print winword
Version : 2.x 6.00 6.00a 6.00c 7.00
Platform : WINDOWS
Last Reviewed: August 4, 1997