Discussion :

[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

voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
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."


merci d'avance

[kiki29]

Salut,cela pourrait dépendre de ta version de PDFCreator
sinon ajouter qqch comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub KillPDFCreator()
Dim Rep As Long
    '   Parametres Taskkill
    '   http://technet.microsoft.com/en-us/library/bb491009.aspx
    Rep= Shell("Taskkill /im PDFCreator.exe /f", 0)
End Sub

[pikamo]

merci kiki29

rien meme message

[kiki29]

Re,j'ai utilisé ce Kill sur les versions 0.9.x mais depuis les versions 1.2.x ce problème semble avoir disparu

[pikamo]

salut
j'ai trouve ca aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
'Start PFF Creator
 
'Check if PDFCreator is already (or still) running and attempt to kill the process if so
Do
bRestart = False
Set pdfjob = New PDFCreator.clsPDFCreator
If pdfjob.cStart("/NoProcessingAtStartup", True) = False Then
'PDF Creator is already running. Kill the existing process
Shell "taskkill /f /im PDFCreator.exe", vbHide
DoEvents
Set pdfjob = Nothing
bRestart = True
End If
Loop Until bRestart = False

mais aussi il a marche une fois et le 2éme rien ne se passe

[kiki29]

Re, mets en commentaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With pdfjob
  If .cstart("/NoProcessingAtStartup") = False Then
  MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
  Exit Sub
End If

et essaie ?