cree une page pdf avec une select de feuil excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : cree une page pdf avec une select de feuil excel

pikamo

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 :

Private Sub cmdpdf_Click()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator" )
NomExcel = ThisWorkbook.Name
NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup" ) = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave" ) = 1
.cOption("UseAutisaveDirectory" ) = 1
.cOption("AutosaveDirectory" ) = ThisWorkbook.Path
.cOption("AutosaveFilename" ) = NomPdf
.cOption("AutosaveFormat" ) = 0
.cClearCache
End With
ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
End Sub

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

Publicité

gilou

Modérateur
Modzilla

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

cree une page pdf avec une select de feuil excel

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

Page générée en 0.045 secondes