Status Message Using OnAfterPrint Event Handler
Sub OnAfterPrint()
Dim filelist
filelist = ""
For Each fn In Context("FileList").items
filelist = filelist & fn & vbCrLf
Next
MsgBox "Your document was created." & vbCrLf & vbCrLf & _
Context("OutputFileName") & vbCrLf & vbCrLf & _
"It contains " & Context("PageCount") & " pages in " & _
Context("FileCount") & " files." & vbCrLf & vbCrLf & _
"Output files:" & vbCrLf & filelist
End Sub
Download Example Files
You can download and run the example yourself. The files needed are available here.
The VBS file must be placed in the macros sub folder of the PDF writer installation.
You can use the MacroDir setting to change the location of the VBS files if needed.
Example files (zip archive)
|
