Hi,
This will work (based on code from a recent answer from Jay Friedman in this
forum):
dim intSaveNumCopies as integer ' will contain numbr of copies printed
Dim dlgPrint As Dialog
Set dlgPrint = Dialogs(wdDialogFilePrint)
With dlgPrint
.Display
' you can check if the user wants to print... lets assume they do
ActiveDocument.PrintOut _
Background:=True, _
Range:=.Range, _
from:=.from, to:=.to, _
Item:=wdPrintDocumentWithMarkup, _
Copies:=.numcopies, _
Pages:=.Pages
intSaveNumCopies = dlgPrint.numcopies
End With
To understand how to set word applications event please read:
http://word.mvps.org/faqs/macrosvba/AppClassEvents.htm
and
http://msdn2.microsoft.com/en-us/library/aa140279(office.10).aspx
I created a routine in the template:
Private Sub AppThatLooksInsideThisEventHandler_DocumentBeforePrint(ByVal Doc
As Document, Cancel As Boolean)
MsgBox "in app event before print app event"
End Sub
I created a subroutine with the following code in the word document:
Sub fileprint()
MsgBox "fp"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
When I opened the document and attached the template with app event this is
the order of what I saw:
1) A msgbox that said "FP"
2) a msgbox that said "in app event before print app event" 'app event
3) The document printed
So intercepting the event won't help because it occurs before the print
(application.printout)
old man
