Imp forcer pdf

[tf1]

Bonjour,

j'ai sur mon pc une imprimante et PDF creator.

Si j'imprime une feuille avec l'imprimante, excel reste sur cette imprimante.
Dés lors que je lance ma macro ci dessous pour imprimer en PDF sa bloque et doit alors lancer une impression en pdf depuis le menu excel pour que l'imprimante change en PDF et puis la macro marche alors.....

Comment SVP faire pourque PDF creator soit pris quelque soit l'imprimante utiliser auparavant.

j'ai rajouter cette ligne dans ma macro:

Application.ActivePrinter = "PDFCreator sur Ne01:"

Sa marche pas de problème, mais si j'ouvre mon fichier sur un autre pc je doit changer le port " Ne01"
c'est pas pratique

Application.ActivePrinter = "PDFCreator sur Ne01:"

Dim CREATION_PDF As PDFCreator.clsPDFCreator
Dim NOM_PDF As String
Dim DESTINATION As String
With ActiveSheet
NOM_PDF = ActiveSheet.Cells(1, 1).Value & "facture.pdf"
DESTINATION = Range("BASE!AC53")

Donc comment faire pour que PDF creator soit pris.

Merci

 

[tf1]

Re : Imp forcer pdf

hello

Qui pourrait m'apporter une solutoin svp

 

[tf1]

Re : Imp forcer pdf

Salut

Y a t'il une solution?

Merci

 

[tf1]

Re : Imp forcer pdf

bcp de visiteur mais pas de reponsse

 

[Gelinotte]

Re : Imp forcer pdf

Bonsoir,

Tous ces visiteurs espèrent sûrement, comme moi, lire la réponse pour l'appliquer sur leurs chiffriers 🙄

Geli

 

[tf1]

Re : Imp forcer pdf

ok je suis en attentte

merci

 

[Gelinotte]

Re : Imp forcer pdf

Bonsoir,

Sous quelle version de Excel tentes-tu d'imprimer ?


Geli

 

[Gelinotte]

Re : Imp forcer pdf

Bonsoir,

Une piste qui semble intéressante :
https://www.excel-downloads.com/threads/determiner-un-port-dimprimante-excel-vba.104612/

Geli

P.S. en fait, pas du tout. Je n'avais pas testé. 8- ((((

 

[job75]

Re : Imp forcer pdf

Bonjour tf1, Gelinotte,

A essayer :

Dim i As Byte, p As String
'-----
On Error Resume Next
For i = 0 To 20
  p = "PDFCreator sur Ne" & Format(i, "00") & ":"
  ActivePrinter = p
  If ActivePrinter = p Then Exit For
Next
On Error GoTo 0
'-----

Je n'ai pas testé.

A+

 

[tf1]

Re : Imp forcer pdf

ok merci a rajoute dans m'as macro svp.

 

[job75]

Re : Imp forcer pdf

ok merci a rajoute dans m'as macro svp.

Un peu sans-gêne non ?

Dans votre macro (qui marche paraît-il) il suffit de mettre mon code à la place de :

Application.ActivePrinter = "PDFCreator sur Ne01:"

Edit : je pense qu'il est même superflu de sortir de la boucle :

Dim i As Byte
'-----
On Error Resume Next
For i = 0 To 20
   ActivePrinter = "PDFCreator sur Ne" & Format(i, "00:")
Next
On Error GoTo 0
'-----

A+