Discussion :

[Godzestla]

Bonjour,

je souhaite vérifier si un imprimante a bien été installée.
Je suppose que le nom est le nom standard, à savoir "CutePDF Writer"

Je ne sais pas s'il faut ou pas utiliser la registry.

Voici ce que je trouve dans le registry pour cette imprimante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
[HKEY_CURRENT_USER\Printers\Settings]
"CutePDF Writer"=hex:07,00,00,00,0d,00,0b,00,03,00,14,00,16,00,10,00,02,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  etc. etc. etc.

et aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
[HKEY_CURRENT_USER\Printers\DevModes2]
"CutePDF Writer"=hex:43,00,75,00,74,00,65,00,50,00,44,00,46,00,20,00,57,00,72,\
  00,69,00,74,00,65,00,72,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
etc.etc.etc.

Merci pour votre aide.

[gwinyam]

Ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function PrintersCount() As Integer
    PrintersCount = Printers.Count
End Function

Ne suffit-t'il pas?


Tu peux lister les imprimantes avec ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function PrintersList() As String
    Dim lp As Printer
    For Each lp In Printers
        PrintersList = PrintersList & lp.DeviceName & ";"
    Next
End Function

[Godzestla]

Salut gwinyam,

merci pour ta réponse.

j'ai essayé ton code mais la compilation calle sur l'instruction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function PrintersList() As String
    Dim lp As Printer
    For Each lp In Printers
        PrintersList = PrintersList & lp.DeviceName & ";"
    Next
End Function

avec l'erreur "user-defined type not defined."

[gwinyam]

Ah c'est embêtant... j'ai du zapper un truc... A moins que ça ne fonctionne que sous Access

Je te redis ça

[Godzestla]

C'est résolu.

j'ai trouvé une solution dans la faq (Imprimante ?) que j'ai adapté.

Voici le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function Check_CutePdf_Writer() As Boolean
Dim objWMIService As Object, colInstalledPrinters As Object, objPrinter As Object
Dim nomPC As String, Resultat As String
nomPC = "."
 
Set objWMIService = GetObject("winmgmts:" & _
    "{impersonationLevel=impersonate}!\\" & nomPC & "\root\cimv2")
Set colInstalledPrinters = objWMIService.execQuery("Select * from Win32_Printer")
 
For Each objPrinter In colInstalledPrinters
   If Trim(objPrinter.Name = "CutePDF Writer") Then
      Check_CutePdf_Writer = True
      Exit Function
   End If
Next
Check_CutePdf_Writer = False
 
End Function

Merci pour ton aide gwinyam