Bonjour,
Je cherche du code VBA pour exporter au format PDF des états à partir de MS-Access 2002 en pilotant Adobe Distiller ou Adobe Elements.
Il s'agit d'utiliser la référence Acrobat Distillerdans le projet et de manipuler un objet déclaré de type PdfDistiller
J'ai des exemples avec Word et Excel mais pas avec Ms-Access !!
Merci de votre aide
Exemple code VBA pour Excel:
Sub CSFB_PDF()
'
Dim Acro As New ACRODISTXLib.PdfDistiller
Dim exportExcel As String
Dim importPDF As String
Dim KPathPs As String
Dim KPathtxt As String
Set Acro = New ACRODISTXLib.PdfDistiller
Acro.bShowWindow = False
exportExcel = "P:\groups\collections\Daily Statistics\Delinquency Statistics - CSFB DVL"
importPDF = "P:\groups\collections\SandraPDFTest\"
Application.ActivePrinter = "Acrobat Distiller on Ne01:"
'create ps file
ActiveWorkbook.PrintOut Copies:=1, PrintToFile:=True, Collate _
:=True, PrToFileName:=importPDF & "Delinquency Statistics - CSFB DVL" & ".ps"
'create pdf
Acro.FileToPDF exportExcel & "ps", importPDF & "Delinquency Statistics - CSFB DVL" & ".pdf", ""
KPathPs = importPDF & "Delinquency Statistics - CSFB DVL" & ".ps"
KPathTxt = importPDF & "Delinquency Statistics - CSFB DVL" & ".txt"
'remove ps file
Kill KPathPs
Kill KPathtxt
Set Acro = Nothing
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
webcyril