Status Message Using OnAfterPrint Event Handler / PDF Printer
-
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 Printer installation. You can use the MacroDir setting to change the location of the VBS files if needed. See setting MacroDir in section Settings for further details.
Downloads
Attachment | Size |
---|---|
Example file | 458 Bytes |