[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! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
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
  3. wrd.Visible = False
  4. wrd.ScreenUpdating = False
  5. wrd.ActivePrinter = "Acrobat Distiller"
  6. 'ouvrir le document Word
  7. Set doc = wrd.Documents.Open("worddoc.doc" )
  8. 'convertir en fichier PostScript
  9. doc.PrintOut False, False, , "c:\test.ps", , , , , , , True
  10. doc.Close False
  11. wrd.Quit False
  12. Set doc = Nothing
  13. Set wrd = Nothing
  14. 'convertir PostScript en Pdf
  15. Dim acr As New ACRODISTXLib.PdfDistiller
  16. acr.bShowWindow = False
  17. acr.FileToPDF "c:\test.ps", "pdfdoc.pdf", ""
  18. Set acr = Nothing
  19. 'supprimer le fichier PostScript
  20. 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! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Sujets relatifs:

Leave a Replay

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