Statusermittlung über OnAfterPrint Event Handler / PDF Drucker
- 
                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.
Downloads
| Anhang | Größe | 
|---|---|
| Codebeispiel herunterladen | 458 Bytes |