Ejemplos usando el Api de windows para Visual basic

219 - Abrir el cuadro de diálogo de propiedades de una impresora

Ejemplo que usa las funciones OpenPrinter y PrinterProperties, para desplegar el cuadro de diálogo de propiedades de la impresora indicada

El formulario de ejemplo tiene un ListBox donde se listan las impresoras instaladas en el sistema. Luego al seleccionar una, y presionar un CommandButton, se llama a la rutina "Mostrar_Dialogo" , para desplegar el diálogo de propiedades de la impresora elegida

por ejemplo

Mostrar_Dialogo (Me.hwnd, "Nombre de la impresora ")

Controles

Colocar un ListBox y un CommandButton

Formulario

vista del formulario con las impresoras del sistema

Código fuente en el formulario

Option Explicit 'Declaraciones api ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Declare Function PrinterProperties Lib "winspool.drv" ( _ ByVal hwnd As Long, _ ByVal hPrinter As Long) As Long Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" ( _ ByVal pPrinterName As String, _ phPrinter As Long, _ pDefault As PRINTER_DEFAULTS) As Long Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long ' Udt que requiere la función api OpenPrinter ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Type PRINTER_DEFAULTS pDatatype As Long pDevMode As Long pDesiredAccess As Long End Type ' constantes '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Const STANDARD_RIGHTS_REQUIRED = &HF0000 Private Const PRINTER_ACCESS_ADMINISTER = &H4 Private Const PRINTER_ACCESS_USE = &H8 Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _ PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE) ' abre el diálogo de propiedades de la impresora indicada ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Mostrar_Dialogo(HwmdForm As Long, _ Impresora As String) As Boolean On Error GoTo Error_function Dim ret As Long Dim hPrinter As Long Dim typPD As PRINTER_DEFAULTS With typPD .pDatatype = 0 .pDesiredAccess = PRINTER_ALL_ACCESS .pDevMode = 0 End With ' abre la impresora indicada ret = OpenPrinter(Impresora, hPrinter, typPD) If ret <> 0 Then ' abre el cuadro de diálgo de propiedades ret = PrinterProperties(HwmdForm, hPrinter) Mostrar_Dialogo = ret <> 0 End If Error_function: If hPrinter <> 0 Then ClosePrinter hPrinter End If If Err.Number <> 0 Then MsgBox Err.Description, vbCritical End If End Function Private Sub Command1_Click() Call Mostrar_Dialogo(Me.hwnd, List1.Text) End Sub Private Sub Form_Load() Dim i As Integer ' lista las impresoras en el ListBox For i = 0 To Printers.Count - 1 List1.AddItem Printers(i).DeviceName Next Command1.Caption = "Abrir cuadro de diálogo" Me.Caption = "Propiedades de impresora" End Sub

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb