1. Sub OnAfterPrint()
  2.     Dim filelist
  3.  
  4.     filelist = ""
  5.     For Each fn In Context("FileList").items
  6.         filelist = filelist & fn & vbCrLf
  7.     Next
  8.     MsgBox "Your document was created." & vbCrLf & vbCrLf & _
  9.         Context("OutputFileName") & vbCrLf & vbCrLf & _
  10.         "It contains " & Context("PageCount") & " pages in " & _
  11.         Context("FileCount") & " files." & vbCrLf & vbCrLf & _
  12.         "Output files:" & vbCrLf & filelist
  13. End Sub

Télécharger un exemple de fichier

Vous pouvez télécharger l'exemple de code. Après le déballage, veuillez déplacer le fichier de macro VBS qu'il contient dans le dossier macros de l'imprimante PDF (dans le répertoire d'installation). Vous pouvez également définir un répertoire différent avec le paramètre MacroDir .

Téléchargements

appendice taille
Télécharger l'exemple de code 458 Bytes

Top