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

S

soan

XLDnaute Barbatruc

Inactif

• 22 Novembre 2020

• #2

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Novembre 2020

• #3

bonjour

VB:

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

Sub test()
MsgBox IsPdfPrinterActive
End Sub

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 22 Novembre 2020

• #4

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 ?

Cliquez pour agrandir...

voir également ce lien :

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

 

Vote positif 0 Vote négatif

B

benjaminxls

XLDnaute Nouveau

• 22 Novembre 2020

• #5

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

Vote positif 0 Vote négatif