Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Jun 12, 1999

ShowPrinterProperties - Display printer's Properties dialog

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

Private Type PRINTER_DEFAULTS
    pDatatype As String
    pDevMode As Long
    pDesiredAccess As Long
End Type

' Display the Printer Properties dialog box.
' The DeviceName argument is the DeviceName property of the Printer object or
' an item in the Printers collection.
' ParentHWnd is the handle of the window that owns the dialog box.
'
' Returns True if the function succedes.

Function ShowPrinterProperties(ByVal DeviceName As String, _
    ByVal ParentHWnd As Long) As Boolean
    Dim PrinterDef As PRINTER_DEFAULTS
    Dim hPrinter As Long
    Const PRINTER_ALL_ACCESS = &HF000C
    
    PrinterDef.pDesiredAccess = PRINTER_ALL_ACCESS
    
    If OpenPrinter(DeviceName, hPrinter, PrinterDef) Then
        ShowPrinterProperties = PrinterProperties(ParentHWnd, hPrinter)
        ClosePrinter hPrinter
    End If
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap