Discussion :

[botanique]

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

[bidou]

PrinterSettings.PrinterName

[botanique]

Ok, mais cette ligne de code ne marche pas seule, comment l'utiliser?

Merci de ton aide

Botanique

[NicolasG]

Regardes l'aide de System.Drawing.Printing.PrintDocument

Un exemple d'impression montre l'impression d'un document sur l'imprimante par défaut.

[neguib]

Regardes l'aide de System.Drawing.Printing.PrintDocument

Un exemple d'impression montre l'impression d'un document sur l'imprimante par défaut.

+1
Et puis Botanique comme tu n'es pas nouveau sur le forum

[botanique]

Merci pour toutes vos précisions.

Quant à la fonction recherche, c'est vrai que j'ai omis de l'utiliser cette fois-ci car je pensais que tout était dans la FAQ que je ne comprenais pas.

J'ai bien retenu la leçon.

Merci pour tout.

Botanique