PDF creator

[Claudy]

Bonjour,
j'ai une procédure qui contient ceci:

ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

La macro fonctionne très bien à un détail près:

Elle imprime aussi sur mon imprimante!
Comment l'en empêcher?
Merci d'avance,
Claudy

 

[RENAUDER]

Re : PDF creator

Bonjour,
Je viens de faire un test.
Chez moi, ça n'imprime pas de feuille sur l'imprimante. (XL2003 et XP)

Sinon tu vas dans le répertoire C:\Program Files\PDFCreator\COM\MS Office, tu as des exemples pour imprimer un fichier Excel avec PDF Creator.

 

[Staple1600]

Re : PDF creator

Bonjour



En mettant ton imprimante hors tension par exemple non ?

 

[Brigitte]

Re : PDF creator

Bonjour,

Pour apporter ma pierre au moulin, si besoin et faire une bise à l'ami Eric (ca va ti ?), je dirais que j'ai fait deux tests chez moi :

- premier, copié la macro telle que et comme je n'ai pas PDF CREATOR, ca imprime

- deuxième, copié la macro et remplacé par MON imprimante virtuelle Cutepdf writer et là ca fait un pdf et seulement un pdf... dans le répertoire choisi.

Voilou.

Conclusion : as tu PDF Creator et surtout comment est intitulé son nom (important à mon avis : pdfcreator, pdf_creator, pdf creator...) ??

Edit : je rajoute une bise à jeanmarie (tu permets ?)

 

[Claudy]

Re : PDF creator

Bonjour et merci à tous....
Précision: mon PDFCreator fonctionne bien car la macro a pour but d'envoyer par mail, en attachment une zone d'impression avec PDFCreator.
Et ça marche...ouf
Et malheureusement il m'imprime aussi sur mon imprimante.

Brigitte,
Comment remplacer mon imprimante par une imprimante virtuelle?

Staple1600,
Mettre hors tension par macro?

Ci dessous
une partie de mon code:

sNomPDF = "Résultats .pdf"
sCheminPDF = ActiveWorkbook.Path & Application.PathSeparator
If Range("L8") = 0 Then
commentaire = "Pas de chance, ça ira mieux la prochaine fois...."
Else
commentaire = "Félicitation, vous avez gagné : " & Range("L8").Value & " Euros."
End If

If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")

With JobPDF
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sCheminPDF
.cOption("AutosaveFilename") = sNomPDF

' 0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
.cOption("AutosaveFormat") = 0

.cClearCache
End With

ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

'Fichier dans la file d'attente
Do Until JobPDF.cCountOfPrintjobs = 1
DoEvents
Loop
JobPDF.cPrinterStop = False

'Attendre que la file d'attente soit vide
Do Until JobPDF.cCountOfPrintjobs = 0
DoEvents
Loop

Do Until Dir(sCheminPDF & sNomPDF) <> ""
DoEvents
Loop

JobPDF.cClose
Set JobPDF = Nothing

A+
Claudy

 

[Brigitte]

Re : PDF creator

Re,

Ben Claudy, je ne peux te dire. Ce que je voulais dire : j'ai remplacé dans TA MACRO, le mot pdfcreator par cutepdf writer... Et ca a bien marché, ca n'a pas imprimé en vrai. Donc après te dire pourquoi... malheureusement, yonosé.
Bon courage.