cree une page pdf avec une select de feuil excel

cree une page pdf avec une select de feuil excel - VB/VBA/VBS - Programmation

Marsh Posté le 05-07-2011 à 11:47:27    

salut
j'ai cherche a faire un pdf avec excel vba en cliquant sur un bouton
j'ai trouvé un code qui permet de le faire mais par défaut colonne A jusque à colonne K
 

Code :
  1. Private Sub cmdpdf_Click()
  2. Set pdfjob = CreateObject("PDFCreator.clsPDFCreator" )
  3. NomExcel = ThisWorkbook.Name
  4. NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
  5. With pdfjob
  6. If .cstart("/NoProcessingAtStartup" ) = False Then
  7. MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
  8. Exit Sub
  9. End If
  10. .cOption("UseAutosave" ) = 1
  11. .cOption("UseAutisaveDirectory" ) = 1
  12. .cOption("AutosaveDirectory" ) = ThisWorkbook.Path
  13. .cOption("AutosaveFilename" ) = NomPdf
  14. .cOption("AutosaveFormat" ) = 0
  15. .cClearCache
  16. End With
  17. ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
  18. Do Until pdfjob.cCountOfPrintjobs = 1
  19. DoEvents
  20. Loop
  21. pdfjob.cPrinterStop = False
  22. Do Until pdfjob.cCountOfPrintjobs = 0
  23. DoEvents
  24. Loop
  25. With pdfjob
  26. .cDefaultprinter = DefaultPrinter
  27. .cClearCache
  28. .cClose
  29. End With
  30. Set pdfjob = Nothing
  31. End Sub


ce code fonction une fois et mnt il ne marche plus il m'afiiche toujour ce message:
"Can't initialize PDFCreator."
 

Reply

Marsh Posté le 05-07-2011 à 11:47:27   

Reply

Marsh Posté le 05-07-2011 à 12:01:36    

http://www.vbforums.com/showthread.php?t=444027
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