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

benjaminxls · 22 Novembre 2020

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 · 22 Novembre 2020

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 · 22 Novembre 2020

bonjour

VB:

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

Sub test()
MsgBox IsPdfPrinterActive
End Sub

Modeste geedee · 22 Novembre 2020

Bonsour®

benjaminxls à dit:
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 · 22 Novembre 2020

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

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

benjaminxls

XLDnaute Nouveau

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

benjaminxls

XLDnaute Nouveau

Discussions similaires