Hola nuevamente, durante varios dias he tratado de buscar codigo para que me muestre la ventana de propiedades de la impresora. bueno encontre este codigo en V.6 y lo arregle algunas cosas de declaracion, pero PERSISTE un error de declaracion en "PRINTER" (no se ha declarado el nombre printer) y no se como arreglarlo he intentado de varias maneras pero nada... alguien podria darme una manito..
Public Class Form1
Structure PRINTER_DEFAULTS
Dim pDatatype As Long
Dim pDevMode As Long
Dim DesiredAccess As Long
End Structure
Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long
Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, ByVal phPrinter As Long, ByVal pDefault As Long) As Long
Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim l As Long, hPrinter As Long
'abrimos la impresora por defecto para obtener un handle
l = OpenPrinter(Printer.DeviceName, hPrinter, 0&)
'sacamos la página de propiedades
l = PrinterProperties(Me.Handle, hPrinter)
'cerramos la impresora
l = ClosePrinter(hPrinter)
End Sub
End Class
