Résolu Savoir si l'imprimante par défaut est une imprimante PDF

benjaminxls

XLDnaute Nouveau
Bonjour,

Savez-vous s'il existe une fonction permettant de détecter si l'imprimante par défaut est une imprimante PDF quelle qu'elle soit ?

Je voudrais éviter un doublon export PDF + impression PDF qui provoque des erreurs et n'est pas utile mais je souhaite garder un export PDF + impression papier sur l'imprimante physique par défaut

Il est aussi possible, si ça existe, de détecter si l'imprimante par défaut est bien une imprimante physique avant d'envoyer l'impression.

Merci d'avance.
 

soan

XLDnaute Accro
Bonjour benjaminxls,

ceci est juste une piste :
VB:
Sub Essai()
  MsgBox Application.ActivePrinter
End Sub
ce code VBA affiche le nom de l'imprimante par défaut, et sur quel port ;
si c'est une imprimante virtuelle pdf, y'aura sûrement pdf dans le nom.

(sinon, c'est que ça doit être une imprimante physique ! 😜)


soan
 

patricktoulon

XLDnaute Barbatruc
bonjour
VB:
Function IsPdfPrinterActive() As Boolean
IsPdfPrinterActive = CBool(InStr(1, ActivePrinter, "pdf", vbTextCompare) > 0)
End Function

Sub test()
MsgBox IsPdfPrinterActive
End Sub
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonjour,

Savez-vous s'il existe une fonction permettant de détecter si l'imprimante par défaut est une imprimante PDF quelle qu'elle soit ?
voir également ce lien :
 

benjaminxls

XLDnaute Nouveau
Ok, merci à vous je vais utiliser la fonction permettant de regarder dans la chaîne la présence de "pdf". Je pensais qu'une fonction intégrée existait à l'air de la dématérialisation ;)
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas