Macro to include number of copies option (MS Word

Topic

New Reply

I have recorded a macro to print page 1 then page 2 on a non-duplex printer. I would like to have a box appear when I click on the Print Page 1 or Page 2 buttons in which I can type the number of copies required. Can I be advised please on how to do this?

This is the recorded macro:

Sub Printpage1()
‘
‘ Printpage1 Macro
‘ Macro recorded Thursday, 28 April 2005 by ME Walker
‘
Application.PrintOut FileName:=””, Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=”1″, PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
Sub Printpage2()
‘
‘ Printpage2 Macro
‘ Macro recorded Thursday, 28 April 2005 by ME Walker
‘
Application.PrintOut FileName:=””, Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=”2″, PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Reply | Quote

Replies

Try this:

Sub Printpage1()
‘
‘ Printpage1 Macro
‘ Macro recorded Thursday, 28 April 2005 by ME Walker
‘
Dim lngCopies As Long
lngCopies = Val(InputBox(“Enter the number of copies to be printed.”, , “1”))
If lngCopies <= 0 Then
Exit Sub
End If
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=lngCopies, Pages:="1", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

and similar for the other one.

Reply | Quote

Thank you for your quick response. Once I grasped the difference between 1 (one) & l (ell) in lngCopies (the default font is TNR in my VB Editor) the improved macro worked AOK.

Thank you again for your help – it is very much appreciated.

Reply | Quote