Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1725 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  cree une page pdf avec une select de feuil excel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

cree une page pdf avec une select de feuil excel

n°2087155
pikamo
Posté le 05-07-2011 à 11:47:27  profilanswer
 

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."
 

mood
Publicité
Posté le 05-07-2011 à 11:47:27  profilanswer
 

n°2087161
gilou
Modérateur
Modzilla
Posté le 05-07-2011 à 12:01:36  profilanswer
 

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é!  --

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  cree une page pdf avec une select de feuil excel

 

Sujets relatifs
[sitemesh] [Struts2] exclure pageComparer 2 listes dans 2 onglets via macro VBA (Excel 2007)
feuille de calcul dynamique dans une page htmlInstance Excel
[EXCEL/VBA] Masquer fenêtre DOSEnvoi mail automatique via Excel
Excel et SQL requete avec deux condition?Page d'accueil aléatoire
[Résolu] Affectation de variable/Macro copier coller Excelprobleme excel vba somme
Plus de sujets relatifs à : cree une page pdf avec une select de feuil excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR