Ejemplos usando el Api de windows para Visual basic

169 - impresora predeterminada

Función de ejemplo que utiliza el Api GetProfileString para recuperar el nombre de la impresora predeterminada del sistema

Descripción :

La función " Impresora " retorna el nombre de la impresora por defecto

Código en un form

Option Explicit 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 Function Impresora() As String Dim buffer As String Dim Ret As Integer buffer = Space(255) Ret = GetProfileString("Windows", ByVal "device", "", _ buffer, Len(buffer)) If Ret Then Impresora = UCase(Left(buffer, _ InStr(buffer, ",") - 1)) End If End Function Private Sub Command1_Click() MsgBox Impresora, vbInformation End Sub

Relacionados

Buscar en Recursos vb