[VB6] Conversion .doc en .pdf [résolu]

Conversion .doc en .pdf [résolu] [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 08-12-2004 à 11:12:03    

Help
Comment convertir un .doc en .pdf depuis VB6 ?
J'ai adobe Distiller
J'utilise la classe AdobePDFMakerX mais ça ne fonctionne pas : le pdf généré est impossible à ouvrir.
J'ai essayé en lancant l'impression vers l'imprimante pdf depuis word, mais c'est pareil.
HELP C'EST TRES TRES TRES TRES URGENT


Message édité par skyw4lkr le 08-12-2004 à 12:35:23
Reply

Marsh Posté le 08-12-2004 à 11:12:03   

Reply

Marsh Posté le 08-12-2004 à 11:36:39    

Ca a donc l'air d'etre lie a tes parametres du Distiller, si ce qui est genere vers l'imprimante pdf depuis word n'est pas bon. Distiller est correctement installé?
A+,


---------------
There's more than what can be linked! --  Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻
Reply

Marsh Posté le 08-12-2004 à 11:38:58    

j'ai fais une install standard
quand je suis sous word et que je le fais manuellement c'est ok
par contre depuis mon prog vb6 ça marche pas

Reply

Marsh Posté le 08-12-2004 à 12:21:38    

Voilà, j'ai trouvé un source sur VBFRANCE qui fait ça très bien.  :bounce:  
(penser à ajouter la référence "Acrobat Distiller" et aussi "Microsoft Word" )
 

Code :
  1. Dim wrd As New Word.Application
  2. Dim doc As Word.Document
  4. wrd.Visible = False
  5. wrd.ScreenUpdating = False
  6. wrd.ActivePrinter = "Acrobat Distiller"
  8. 'ouvrir le document Word
  9. Set doc = wrd.Documents.Open("worddoc.doc" )
  11. 'convertir en fichier PostScript
  12. doc.PrintOut False, False, , "c:\test.ps", , , , , , , True
  13. doc.Close False
  14. wrd.Quit False
  15. Set doc = Nothing
  16. Set wrd = Nothing
  18. 'convertir PostScript en Pdf
  19. Dim acr As New ACRODISTXLib.PdfDistiller
  20. acr.bShowWindow = False
  21. acr.FileToPDF "c:\test.ps", "pdfdoc.pdf", ""
  22. Set acr = Nothing
  24. 'supprimer le fichier PostScript
  25. Kill "c:\test.ps"


 
merci à JolieFleur pour le code source !  :jap:


Message édité par skyw4lkr le 08-12-2004 à 12:22:55

---------------
Skyw4lkR [:skyw4lkr]
Reply

Marsh Posté le 08-12-2004 à 12:59:34    

Citation :

quand je suis sous word et que je le fais manuellement c'est ok


Ah bon. A lire ton post initial, j'avais compris que ca marchait pas non plus dans ce contexte.
A+,


---------------
There's more than what can be linked! --  Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed