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

[benjaminxls]

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]

Bonjour benjaminxls,

ceci est juste une piste :

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]

bonjour

Function IsPdfPrinterActive() As Boolean
IsPdfPrinterActive = CBool(InStr(1, ActivePrinter, "pdf", vbTextCompare) > 0)
End Function

Sub test()
MsgBox IsPdfPrinterActive
End Sub

 

[Modeste geedee]

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 :

https://www.excel-downloads.com/threads/impression-sur-imprimante-reseau.20027322/#post-20206859

 

[benjaminxls]

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 😉