Bonjour,
je réalise une appli windows et j'aurais besoin de connaître l'imprimante par défaut.
Sur la FAQ VB, j'ai trouvé le code suivant :
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
Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" _
                                          (ByVal lpAppName As String, ByVal lpKeyName As String, _
                                          ByVal lpDefault As String, ByVal lpReturnedString As String, _
                                          ByVal nSize As Long) As Long
 
'Renvoie l'imprimante par défaut
 
Public Function ImprimanteParDefaut() As String
 
    Dim def As String, di As Long
 
    def = String(128, 0)
    di = GetProfileString("WINDOWS", "DEVICE", "", def, 127)
    If di Then ImprimanteParDefaut = Left$(def, di - 1)
 
End Function
Mais d'une part, je ne le comprends pas, et d'autre part, il n'est pas pour VB.NET.

Quelq'un peut-il m'aider à comprendre ce code pour le traduire en VB.NET ou me dire comment obtenir l'imprimante par défaut?

Merci de votre aide.

Botanique