Statusermittlung über 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
Beispieldatei Download
Sie können den Beispielcode herunterladen. Die darin enthaltene VBS-Macrodatei verschieben Sie nach dem Entpacken bitte in den macros Ordner des PDF-Druckers (im Installationsverzeichnis). Sie können auch mit der Einstellung MacroDir ein anderes Verzeichnis festlegen.
Codebeispiel herunterladen