Develop Your Own Browser - Part 1
Insert these declarations into your form declaration section
Private Declare Function PrinterProperties _ Lib winspool.drv _(ByVal hWnd As Long, ByVal hPrinter As Long) _ As LongPrivate Declare Function OpenPrinter _ Lib winspool.drv _Alias OpenPrinterA (ByVal pPrinterName _ As String, _phPrinter As Long, pDefault As PRINTER_DEFAULTS) _ As LongPrivate Declare Function ClosePrinter _ Lib winspool.drv _(ByVal hPrinter As Long) As LongPrivate Type PRINTER_DEFAULTSpDatatype As Long StringpDevMode As LongpDesiredAccess As LongEnd TypePrivate Const STANDARD_RIGHTS_REQUIRED = &HF0000Private Const PRINTER_ACCESS_ADMINISTER = &H4Private Const PRINTER_ACCESS_USE = &H8Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)
Then Insert these coding into your Click Event:
On Error Resume NextDim retval As Long, hPrinter As LongDim PD As PRINTER_DEFAULTSPD.pDatatype = 0PD.pDesiredAccess = STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_USEPD.pDevMode = 0retval = OpenPrinter(Printer.DeviceName, hPrinter, PD)If retval = 0 ThenMsgBox Printer Not FoundElseretval = PrinterProperties(Me.hWnd, hPrinter) retval = ClosePrinter(hPrinter)End If
Page 3 of 7
This article was originally published on November 20, 2002