162.htm

vb功能实例介绍。详细、很好的实例说明。

<p>建立你自己的浏览器－打印设置</p>
<p></p>
<p>Insert these declarations into your form declaration section</p>
<p></p>
<p>Private Declare Function PrinterProperties Lib “winspool.drv” _</p>
<p>(ByVal hWnd As Long, ByVal hPrinter As Long) As Long</p>
<p>Private Declare Function OpenPrinter Lib “winspool.drv” _</p>
<p>Alias “OpenPrinterA” (ByVal pPrinterName As String, _</p>
<p>phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long</p>
<p></p>
<p>Private Declare Function ClosePrinter Lib “winspool.drv” _</p>
<p>(ByVal hPrinter As Long) As Long</p>
<p>Private Type PRINTER_DEFAULTS</p>
<p>pDatatype As Long ‘ String</p>
<p>pDevMode As Long</p>
<p>pDesiredAccess As Long</p>
<p>End Type</p>
<p>Private Const STANDARD_RIGHTS_REQUIRED = &HF0000</p>
<p>Private Const PRINTER_ACCESS_ADMINISTER = &H4</p>
<p>Private Const PRINTER_ACCESS_USE = &H8</p>
<p>Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _</p>
<p>PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)</p>
<p></p>
<p>Then Insert these coding into your Click Event:</p>
<p></p>
<p>On Error Resume Next</p>
<p>Dim retval As Long, hPrinter As Long</p>
<p>Dim PD As PRINTER_DEFAULTS</p>
<p>PD.pDatatype = 0</p>
<p>PD.pDesiredAccess = STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_USE</p>
<p>PD.pDevMode = 0</p>
<p>retval = OpenPrinter(Printer.DeviceName, hPrinter, PD)</p>
<p>If retval = 0 Then</p>
<p>MsgBox “Printer Not Found”</p>
<p>Else</p>
<p>retval = PrinterProperties(Me.hWnd, hPrinter) retval = ClosePrinter(hPrinter)</p>
<p>End If</p>
<p> </p>