Discussion :

[gom378]

Bonsoir a tous !

Mon petit problème de la soirée et l'impression d'un fichier Word en PDF via PDFCreator dans sa version COM.
J'ai déjà un code qui fonctionne pas trop mal, seulement, il ne fonctionne plus, ou alors, j'ai un souci dans la gestion des permissions car mes fichiers Words sont tous refuser a la conversion. (J'avais réussi a le faire fonctionner avant pourtant)

Je bloque donc au moment ou je fait ceci:

Code :

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

If Not myPDFCreator.cIsPrintable(fi.FullName)

Si quelqu'un a une petite idée, voici le code utilisé:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub ImprimerPDFCreator()
 
Dim myPDFCreator As PDFCreator.clsPDFCreator
Dim fname As String, fi As FileInfo, DefaultPrinter As String
Dim opt As PDFCreator.clsPDFCreatorOptions
Dim Filetyp As Integer
 
Filetyp = 0 '0 pour le PDF
 
myPDFCreator = New PDFCreator.clsPDFCreator
opt = New PDFCreator.clsPDFCreatorOptions
 
If myPDFCreator.cStart("/NoProcessingAtStartup") = False Then
MsgBox("Impossible d'initialiser PDFCreator", vbCritical, "")
Exit Sub
End If
 
fi = New FileInfo("C:\chemin\LOGO.DOC")
 
If InStr(fi.Name, ".", CompareMethod.Text) > 1 Then
fname = Mid(fi.Name, 1, InStr(fi.Name,".", CompareMethod.Text) - 1)
Else
fname = fi.Name
End If
 
If Not myPDFCreator.cIsPrintable(fi.FullName) Then
MsgBox(
"File '" & fi.FullName & "' is not printable!", MsgBoxStyle.Exclamation, "")
Exit Sub
End If
 
opt = myPDFCreator.cOptions
opt.UseAutosave = 1
opt.UseAutosaveDirectory = 1
opt.AutosaveDirectory ="C:\chemin\"
opt.AutosaveFormat = Filetyp
opt.AutosaveFilename = fname
myPDFCreator.cOptions = opt
myPDFCreator.cSaveOptions()
myPDFCreator.cClearCache()
DefaultPrinter = myPDFCreator.cDefaultPrinter
myPDFCreator.cDefaultPrinter ="PDFCreator"
myPDFCreator.cPrintFile(fi.FullName)
myPDFCreator.cPrinterStop =False
myPDFCreator.cPrinterStop =True
myPDFCreator.cDefaultPrinter = DefaultPrinter
myPDFCreator.cClose()
myPDFCreator =Nothing
 
End Sub

Je suis sur que l'un d'entre vous a deja rencontrer ce problème !

[infosam76]

Bonjour,

As tu pensés à tester l'impression de ton pdf à partir de PdfCreator sans passé par programmation ?

Cela pourrait te mettre sur la piste en cas de dysfonctionnements

[gom378]

Oui et aucun problème avec PDFCreator en passant par le logiciel.

[infosam76]

Essaie un peu ceci :

Code :

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

1
2
 
fi = New FileInfo("C:\\chemin\\LOGO.DOC")

[gom378]

Ce qui m’étonne c'est que dans PDFCreator il existe déjà des exemples tout fait et qui ont fonctionné une fois au moins sur la machine.

Le chemin etait le bon, ce matin tout marche presque niquel, va savoir pourquoi !

Si j'utilise la DLL de PDFCreator, j'ai le word qui plante

[infosam76]

J'ai eu un cas un peu particulier ce matin en démarrant mon pc (pour ca que j'ai aussi pensé à la solution que je t'ai donné).

Via programmation, je n'avais plus accès à un fichier txt qui se trouvait dans c:\.
J'ai été voir via l'explorateur de dossier et après ca a fonctionné (J'étais sous Win8). J'ai pas eu le temps de regarder plus loin car je devais partir au boulot mais je jetterais un œil ce soir.