课
程
程
资
讯
讯
综
合
合
获得某一台网络打印机有几份等待打印的报表
当我们要打印报表时，如果打印机是本机的打印机的话，当然马上就会将报表打印出来，反正打印机就只有您一个人在使用而已!但是如果是在一个人数很多的公司或企业时，往往就必须很多人来分享某一部打印机了，而且打印机也不一定就放在举目可及之处!
当您将报表丢到网络打印机之后，由于不一定看得到打印机，您必须特别到摆放打印机的地方去拿报表，这时候您最关心的，就是报表印了没有，如果还没有的话，那还有几份还没打印的报表排在您的报表之前呢?
下面这一段程序，可以让您知道某一台网络打印机尚有几份等待打印的报表?在您的程序丢出报表的同时，您可以告诉您的 User，他的报表排在第几份!
′在 .bas 文件中加入以下声明及模组：
′Constants Definition
Public Const CCHDEVICENAME = 32
Public Const CCHFORMNAME = 32
Public Const PRINTER_ACCESS_ADMINISTER = &H4
Public Const PRINTER_ACCESS_USE = &H8
′Types Definition
Public Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer [NextPage]
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Long
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Public Type PRINTER_DEFAULTS
pDatatype As String
pDevMode As DEVMODE
DesiredAccess As Long
End Type
| 广告合作：400-664-0084 全国热线：400-664-0084 Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号 珠峰网 版权所有 All Rights Reserved 
|
