检测打印机待打印文档

检测打印机待打印文档 306络络络络络络络络络络络络络络络络、如何得知某一台网打印机尚有几份等待打印的 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf , 307络 、如何天下每Internet 络络络络络络络络络络络络络络上某一个网中的片来更桌面的案,308络络络络络络络、如何呼叫系的控制面板, 309络络络络络络络络络、如何完全模系的控制面板, 310络络 、如何定MsgBox 络络络络络络络络络络络络络络在若干之后若无回自, 306络络络络络络络络络络络络络络络络 、如何得知某一台网打印机尚有几份等待打印的表, 当我要打印表,如果打印机是本机的打印机的,当然上就会将表络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络打印出来,反正打印机就只有您一个人在使用而已:但是如果是在一个人数很多的公司或企,往往就络络络络络络 必很多人来分享某一部打印机了,而且打印机也不一定就放在目可及之:络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络当您将表到网打印机之后,由于不一定看得到打印机,您必特到络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络放打印机的地方去拿表,候您最心的,就是表印了没有,如果没有的,络络络络络络络络络络络络络络络络络络络络络络络络络络络络那有几份没打印的表排在您的表之前呢,络络络络络络络络络络络络络络络络络络络络络 下面一段程序,可以您知道某一台网打印机尚有几份等待打印的表,络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络在您的程序出表的同,您可以告您的络络络络络络络络络络络络络络络 User络络络络络络络络,他的表排在第几份:' 在.bas 络络文件中加入以下声明及模: 'Constants Definition Public Const CCHDEVICENAME = 32Public Const CCHFORMNAME = 32Public Const PRINTER_ACCESS_ADMINISTER = &H4 Public Const PRINTER_ACCESS_USE = &H8'Types Definition Public Type DEVMODE dmDeviceName As String * CCHDEVICENAMEdmSpecVersion As Integer dmDriverVersion As Integer 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 * CCHFORMNAMEdmUnusedPadding As Integer dmBitsPerPel As Long dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type Public Type PRINTER_DEFAULTSpDatatype As String pDevMode As DEVMODE DesiredAccess As Long End Type 'API Declarations Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long Public Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal HPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long ' 取得指定的打印机,目前有多少Jobs (络络 最大128) ' 打印机的名称可以是mapping 络络络络络络络络络 的网路径名称,例如:"\\myserver\myprinter"Function GetPrinterQueue(PrinterName As String) As LongDim PrinterStruct As PRINTER_DEFAULTS Dim HPrinter As Long Dim ret As Boolean Dim JobStruct(0 To 127) As Byte Dim pcbNeeded As Long Dim pcReturned As Long Dim TempByte As Byte '络 定Printer structure 络初 PrinterStruct.pDatatype = vbNullString PrinterStruct.pDevMode.dmSize = Len(PrinterStruct.pDevMode)PrinterStruct.DesiredAccess = PRINTER_ACCESS_USE' 取得打印机的Handle ret = OpenPrinter(PrinterName, HPrinter, PrinterStruct)' 取得打印机的active jobs ret = EnumJobs(HPrinter, 0, 127, 1, TempByte, 0, pcbNeeded, pcReturned) If pcbNeeded = 0 Then GetPrinterQueue = 0 Else ret = EnumJobs(HPrinter, 0, 127, 1, JobStruct(0), pcbNeeded, pcbNeeded, pcReturned) GetPrinterQueue = pcReturned End If '络络打印机 ret = CloseHandle(HPrinter) End Function '络络络络络 在表中放一个CommandButton络络络络,程序如下: Private Sub Command1_Click() '络络络络 打印机的Queue (Printer.DeviceName) Msgbox " 打印机中尚有" & GetPrinterQueue(Printer.DeviceName) & " 络络份表", 64, "络息"End Sub '络络络络络好了,看吧: 307络 、如何天下每Internet 络络络络络络络络络络络络络络上某一个网中的片来更桌面的案, 有些理片的件,尤其是可以理桌面片的件,会提供您络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络天自到每 Internet 络络络络络络络络络络络络络络络络络上的某一个网址,去下它的网站所提供,天更的片,来更改桌面的底,每 络络络 是一个很炫的功能,而我用VB 络络络络络络络络络络络也可以很容易的做到的功能,您相信, 络络络络络络络络络络络络络络络络络络个主会运用到之前我提的几个功能: 络络: 络络络络 如何程序在Windows 络络络络络络络 启自行, 络络: 如何从Internet 络络络络络络络络络络 上下某一个网的内容, 络络: 络络 如何移除或更改桌面背景的底色案(Wallpaper) , 络络络络络络络络络我直接来吧: '络 在.BAS 中加入以下声明: Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Const SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = &H1 Const SPIF_SENDWININICHANGE = &H2 '络络络络络络络 在表中放入一个TextBox 及一个Internet Transfer Control Private Sub Form_Load() Dim Pos As Integer Dim Pos2 As Integer Dim Bilden() As Byte Dim NrString As String Text1.Text = Inet1.OpenURL(";) 'Download the page.Pos = InStr(1, Text1.Text, "/preblem/61-80") Pos2 = InStr(Pos, Text1.Text, ".gif") NrString = Mid(Text1.Text, Pos, Pos2 - Pos) Text1.Text = "" + NrString + ".gif" ' Debug filenameBilden() = Inet1.OpenURL("" + NrString + ".gif", icByteArray) ' Download picture. Open "C:\dilbert.gif" For Binary Access Write As #1 ' Save the file.Put #1, , Bilden() Close #1 Picture1.Picture = LoadPicture("c:\dilbert.gif") 'Reload it To PictureBoxSavePicture Picture1.Picture, "c:\dilbert.bmp" 'Converted To bmp..Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\dilbert.bmp", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) 'Change the wallpaper.Unload Me ' Exit program End Sub 至于其中的网址及片的文件名,自行更改。若是您直接使用以上的程序的,络络络络络络络络络络络络络络络络络络络络络络络络络络络络络 也可以,您天都可以看到一篇漫画每 !! 308络络络络络络络、如何呼叫系的控制面板, 在 Windows 络络络络络络络络络络络络络络络络络络络络络络络络络络的系中,从很多地方,您有很多方式去叫出系的控制面板, 例如从【我的】、【源管理器】或是【始】功能表中的【置】中都可以看到控制面板。络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络 使用 VB 络络络络络络络络络络络络络络络络络您也可以在程序中叫出控制面板来使用:而且程序很,只要一行就可以了,如下: Private Sub Command1_Click() Shell "rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocusEnd Sub 上面的程序,不管您是使用络络络络络络络络 Windows 95/98/NT 都可以适用的: 309络络络络络络络络络、如何完全模系的控制面板, 在上一个主:如何呼叫系的控制面板,中,我告您如何直接叫用系的络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络 控制面板,但是,如果您只是想要叫用控制面板中的某一个一功能定画面的,您也可以做到的:络络络络络络络络络络络络络络络络络络络 其,控制面板的那多的功能,是分叫用您中的一些展文件名络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络络 .CPL 络络络络络 的文件,些文件在Windows 95/98/NT 络络络络络络中存放的位置有一些不同,分明如下: Windows 95/98 :文件位置在c:\windows\system Windows NT :文件位置在c:\winnt\system32 下面的程序以络络 Windows98 络络络络络络络络络 例来明,如果您是在Windows NT 络络络络络络络中,自行稍微修改。在表上放一个络络络络络 CommandButton 及一个FileListBox络络络络,程序如下: Private Sub Form_Load() File1.Pattern = "*.CPL" File1.FileName = "C:\WINdows\SYSTEM" ' 若是NT 络络络络络的改里 End Sub Private Sub Command1_Click() Shell "rundll32.exe shell32.dll,Control_RunDLL " & File1.FileName, vbNormalFocus End Sub 好了,惊,程序就是短而已:先在络络络络络络络络络络络络络络络络络络 FileListBox 络络络络络中一个文件,一个文每件分代表控制面板中的某一个功能定程序,然后按下络络络络络络络络络络络络络络络络络络络络络络络 Command1 络络就可以行了: 310络络 、如何定MsgBox 络络络络络络络络络络络络络络在若干之后若无回自, 在我的印象中,络络络络络络VB 所提供的MsgBox 络络络络络络络络络络络络络络络是一个制回的窗,您一定要按了其中的某强 一个 CommandButton 络络络络络络络络络络络络络络络络络络络络络之后,它才会:但是在某些体中,我会看到,明明是 使用系的络络 MsgBox络络络络络络络络络络络络络络络络络络络,可是您如果不理它,几秒之后,它就自行了:人是如何做到的呢,个偶而会出在区中,有的人会回答:络络络络络络络络络络络络络络络络络络络络络络 只要自己做一个似络络 MsgBox 络络络络络络络络络 的窗,就可以自己用Timer 络络络络络络络络络络络来控制个窗何要了:但是,其不用麻的,只要使用系的络络络络络络络络络络络络络络络络 MsgBox 再加一个Timer 就可以控制了:我都知道络络络络 MsgBox 络络络络络络络络络络络络络络络络络络络络络络络可以定成很多不同的子,可以有很多不同的示,不 同的按,其中控制按的部份,可以定的常数如下:络络络络络络络络络络络络络络络络络络络络络络 常数明 络 络 vbOKOnly 0 络络 只示OK 络络 按。 VbOKCancel 1 络 示OK 及Cancel 络络 按。 VbAbortRetryIgnore 2 络 示Abort 、Retry 及Ignore 络络 按。 VbYesNoCancel 3 络 示Yes、No 及Cancel 络络 按。 VbYesNo 4 络 示Yes 及No 络络 按。 VbRetryCancel 5 络 示Retry 及Cancel 络络 按。 络络络络络络络 什要特提到MsgBox 络络络络络络络络络络络络络络络络络络络络的常数呢,因下面我要告您的 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 ,是有一点点限 制的:当您定的常数是络络络络络络 VbAbortRetryIgnore 或VbYesNo 络,下面的方法也是没用的:'络络络络络络络络络络络络络在表的声明区中加入以下的声明 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_CLOSE = &H10 Private Const MsgTitle As String = "Test Message"'络络络络络络 在表中加入一个CommandButton 及一个Timer 络络络络络络络络络络控制,加入以下程序:Private Sub Command1_Click() Dim nRet As Long Timer1.Interval = 3000 Timer1.Enabled = True nRet = MsgBox("络络络络若您不回的,3 秒后此MsgBox 络络络会自", 64, MsgTitle)Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Dim hWnd As Long hWnd = FindWindow(vbNullString, MsgTitle)Call SendMessage(hWnd, WM_CLOSE, 0, ByVal 0&)End Sub 好了,很吧:您行程序,当络络络络络络络络络络络络 MsgBox 络 出3 络络络络络秒之后,就会自了:注意:此方法的限制明:络络络 1络络络 、当常数定VbAbortRetryIgnore 或VbYesNo 络,无效: 2 、在Design Time 络络 ,无效,必Make EXE 之后才有效: