J'ai ça qui ouvre Acrobat Distiller et crée le pdf.
Pour l'imprimer, je dois le faire depuis acrobat et fermer ensuite le fichier
Je souhaite pouvoir imprimer le pdf sans ouvrir Acrobat.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 MonImprimanteParDéfaut = Application.ActivePrinter MonImprimantePDF = "Acrobat Distiller sur Ne01:" Application.ActivePrinter = MonImprimantePDF ' on active l'imprimante virtuelle On Error Resume Next ActiveDocument.PrintOut If Err <> 0 Then MsgBox "Création du fichier PDF interrompu", vbOKOnly, "" Err.Clear End If On error goto 0 Application.ActivePrinter = MonImprimanteParDéfaut 'On re-active l'imprimante réseau
Argyronet me propose…
Ça coince sur les lignes suivantes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub subCreatePDFFromReport(ByVal PDFFileName As String) originalPrinter = fnctGetDefaultPrinter() SetDefaultPrinter "Acrobat PDFWriter" subRegistrySetKeyValue rootHKeyCurrentUser, "Software\Adobe\Acrobat PDFWriter\", "PDFFileName", PDFFileName, RRKREGSZ Application.PrintOut FileName:=ActiveDocument.Name, Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 SetDefaultPrinter originalPrinter End Sub Private Sub ImprimerPDF() subCreatePDFFromReport "C:\Documents and Settings\Argyronet\Mes documents\Demandes utilisateurs\lorbond\MonDoc.pdf" End Sub
Et là, un certain nombre d'arguments n'existent pas dans ma version...'originalPrinter = fnctGetDefaultPrinter() 'J'ai pu corriger
'SetDefaultPrinter "Acrobat PDFWriter" 'J'ai pu corriger
'subRegistrySetKeyValue rootHKeyCurrentUser, "Software\Adobe\Acrobat PDFWriter\", "PDFFileName", PDFFileName, RRKREGSZ 'là je ne sais pas quoi mettre
Application.PrintOut FileName:=PDFFileName, Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False,]Ça coince à partir de PrintZoomColumnPrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
Je n'ai que ça à ma disposition :
Application.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint)
Si quelqu'un peut me dire
Par avance, merci
A+
Partager