VBA/Word/Excel97/Imprimer un pdf sans ouvrir acrobat

[ouskel'n'or]

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

Code :

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

Je souhaite pouvoir imprimer le pdf sans ouvrir Acrobat.

Argyronet me propose…

Code :

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

Ça coince sur les lignes suivantes :

'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

Et là, un certain nombre d'arguments n'existent pas dans ma version...

Application.PrintOut FileName:=PDFFileName, Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False,]

PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

Ça coince à partir de PrintZoomColumn

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+

[argyronet]

Attention !
Ce que j'ai suggéré à lorbond est pour Word...
Pour Excel c'est pas tout à fait pareil...

Code :

ActiveWorkbook.PrintOut

ou bien

Code :

ActiveWindow.SelectedSheets.PrintOut

Argy

[argyronet]

Oui effectivement, sous 97 il ya qq problèmes je vais regarder ça de + près...

Argy