1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Option Compare Database
Option Explicit
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 Integer) As Integer
'Renvoie l'imprimante par défaut
Public Function ImprimanteParDefaut() As String
Dim ASpliter() As String
Dim def As String, di As Long
Dim Tampon As String
def = String(128, 0)
di = GetProfileString("WINDOWS", "DEVICE", "", def, 127)
If di Then Tampon = Left$(def, di - 1)
ASpliter = Split(Tampon, ",")
ImprimanteParDefaut = ASpliter(0)
End Function |
Partager