skyw4lkr | Voilà, j'ai trouvé un source sur VBFRANCE qui fait ça très bien. (penser à ajouter la référence "Acrobat Distiller" et aussi "Microsoft Word" )
Code :
- Dim wrd As New Word.Application
- Dim doc As Word.Document
- wrd.Visible = False
- wrd.ScreenUpdating = False
- wrd.ActivePrinter = "Acrobat Distiller"
- 'ouvrir le document Word
- Set doc = wrd.Documents.Open("worddoc.doc" )
- 'convertir en fichier PostScript
- doc.PrintOut False, False, , "c:\test.ps", , , , , , , True
- doc.Close False
- wrd.Quit False
- Set doc = Nothing
- Set wrd = Nothing
- 'convertir PostScript en Pdf
- Dim acr As New ACRODISTXLib.PdfDistiller
- acr.bShowWindow = False
- acr.FileToPDF "c:\test.ps", "pdfdoc.pdf", ""
- Set acr = Nothing
- 'supprimer le fichier PostScript
- Kill "c:\test.ps"
|
merci à JolieFleur pour le code source ! Message édité par skyw4lkr le 08-12-2004 à 12:22:55 ---------------
Skyw4lkR [:skyw4lkr]
|