Bonjour à tous,
Je dois utiliser un "vieux" code me permettant d'imprimer un PDF. Cependant la passage à la version 2.xx de PDF Creator m'a fait perdre tout un tas d'option.
Quelqu'un pourrait-il m'aider à mettre à jour mon code ?
'ouverture et configuration PDFCreator
Dim PDFCreator1 As PDFCreator.clsPDFCreator
Dim DefaultPrinter As String ' Imprimante par Défaut (mémorisation)
Dim OutputFilename As String ' Nom du Fichier Généré
Set PDFCreator1 = New clsPDFCreator
With PDFCreator1
.cStart "/NoProcessingAtStartup"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = PDFLocation ' Répertoire de stockage du Fichier PDF généré
Debug.Print PDFName ' Remplace par des _ les caractères interdits
.cOption("AutosaveFilename") = PDFName ' Nom de Fichier =
.cOption("AutosaveFormat") = 0 ' 0 = PDF
DefaultPrinter = .cDefaultPrinter ' Mémorise l'Imprimante pas défaut
.cDefaultPrinter = "PDFCreator" ' écrase par PDFCreator
.cClearCache
' Imprimer le fichier
Model.Extension.PrintOut2 vPageArray, copies, collate, "", ""
.cPrinterStop = False
End With
'réinitialisation imprimante par défaut
With PDFCreator1
.cDefaultPrinter = DefaultPrinter
.cClose
End With
Merci beaucoup !