vb-VB检测打印机状态的函数总是返回空值?请问如何调用

问题描述

VB检测打印机状态的函数总是返回空值?请问如何调用

请教各位一个小问题:

Public Function GetPrnStat(ByVal LptPort As String) As Long
Dim PrnAddr As Long
On Error Resume Next
If IOStat = False Then IOStat = InitializeWinIo()
If IOStat Then
If UCase(LptPort) = "LPT1:" Then PrnAddr = &H379
Else:If UCase(LptPort) = "LPT2:" Then PrnAddr = &H279
End If
GetPortVal PrnAddr, GetPrnStat, 1
Else GetPrnStat = &HFF
End If
GetPrnStat = GetPrnStat And &HF8
Select Case GetPrnStat
Case &H68, &H58, &H70
GetPrnStat = 1 '缺纸
Case &H78
GetPrnStat = 2 '无联系
Case &HD8
GetPrnStat = 0 '正常
Case Else:
GetPrnStat = 3 '异常
End Select
End Function

这个函数检测打印机状态,我如何才能获得打印机状态,如何调用这个函数,我总是得不到GetPrnStat返回的值我对VB只知皮毛,请各位赐教,谢谢 我使用下面语句,来判断打印机状态,但是始终是空值,就是装了打印机但是判断不出来,不能转入frmscl7.PrintForm 打印.请教如何解决?
If GetPrnStat() <> 0 Then

MsgBox "你的打印机没有安装或没有正常联接,请检查打印机状态后重新打印!", vbCritical, "提示"
Else

frmscl7.PrintForm
End If

时间: 2016-08-24

vb-VB检测打印机状态的函数总是返回空值?请问如何调用的相关文章

vb.net 获取打印机状态

问题描述 求助高手!1.获取电脑是否有联机打印机,并将联机打印机设置为默认打印机(状态为"就绪"的打印机).2.获取打印机状态,如果缺纸.缺墨.卡纸点.3.可以初始化打印机一些参数(打印机首选项) 解决方案 解决方案二:单纯的网页想获取本地一切硬件信息都是徒劳无功的...只能通过ocx....解决方案三:是应用程序,并非WEB程序.解决方案四:有人能帮我吗?解决方案五:获取打印机状态vb源码:不知你是否下载过,这个对USB打印机没有作用解决方案六:不止以上那些,还要看看各个类型的打印机

简单介绍如何使用PowerMock和Mockito来mock 1. 构造函数 2. 静态函数 3. 枚举实现的单例 4. 选择参数值做为函数的返回值(转)

本文将简单介绍如何使用PowerMock和Mockito来mock1. 构造函数2. 静态函数3. 枚举实现的单例4. 选择参数值做为函数的返回值5. 在调用mock出来的方法中,改变方法参数的值 一点简要说明:Mockito其实已经可以满足大部分的需求,但是它的实现机制是使用cglib来动态创建接口的类的实例.但是这种实现方式不能用于构造函数和静态函数,因为那需要使用类的字节码(比如使用javassist). 所以我们才需要结合使用PowerMock. 1. mock构造函数, 如果有代码没有

asp.net(vb.net)获取真实IP的函数

aspx vb.net获取真实IP的函数如下: 复制代码 代码如下: <script runat="server"> Public Function CheckIp(ByVal ip As String) As Boolean Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" Dim reg As Regex = New Regex(pat) if ip = "

关于ASP,ASP.NET,VB.NET里的MD5加密函数

asp.net|函数|加密 在ASP中,我们使用过如动网论坛等用的ASP中MD5函数加密出的字符串则如:1165d25d8cd021d5 而在Asp.Net中下面的方法: 代码 System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(password.Text,"MD5") 进行MD5加密出来的结果却是:12C403B91165D25D8CD021D5F9B5BB7F 究其原因,是因为,在AS

vb.net中能不能把函数或者过程作为数组

问题描述 就像题目中所问一样,我要做的是Thr_test(1)=NewSystem.Threading.Thread(AddressOftest1)Thr_test(2)=NewSystem.Threading.Thread(AddressOftest2)Thr_test(3)=NewSystem.Threading.Thread(AddressOftest3)..............想问问各位高人,我创建了N个线程,每个线程对应一个过程或者函数,能不能把这些过程test1,test2,te

VB怎么自己写一个MSGBOX函数,定时关闭自己,并且可以选择一个默认的命令?

问题描述 VB怎么自己写一个MSGBOX函数,定时关闭自己,并且可以选择一个默认的命令? VB怎么自己写一个MSGBOX函数,定时关闭自己,并且可以选择一个默认的命令? 解决方案 方法一: 自己建一个窗体,通过showmodal方式模拟弹出窗口,这个是最简单的. 方法二: moduls.pas Option Explicit Private Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVa

需要解答………~-vb.net访问js中的函数

问题描述 vb.net访问js中的函数 vb.net和百度地图交互时,怎样直接调用avascript中的函数,达到操作百度地图的效果????? 解决方案 通过webbrowser访问 webBrowser1.Document.InvokeScript http://laputaliya.blog.51cto.com/751941/627200/ 解决方案二: VB.net常用函数Vb.net常用函数vb.net常用函数

动态调用dll-C#如何动态调用VB编译的dll里的函数

问题描述 C#如何动态调用VB编译的dll里的函数 有一个VB的工程项目,里面有很多类,每个类里都有相同的函数: 比如 a工程:类模块里有 b类,c类:而b类和c类都有相同的函数d: 我怎么在C#里动态调用b类的d函数呢? 因为是动态调用,所以不能是直接引用dll,再"对象名.函数名": DLLImport和反射都尝试过,关键是我要定位到某个类的那个函数,就不知道怎么弄,麻烦大神帮帮忙

程序启动过程-vb.net中在执行form_load()函数之前都会对程序函数执行什么操作?

问题描述 vb.net中在执行form_load()函数之前都会对程序函数执行什么操作? 为啥我用于写.txt文件的Public的函数会在form_load之前执行导致.txt文件数据被删除? 解决方案 贴出你的代码. 在运行 form_load 前会执行 form的构造函数(New函数) 解决方案二: form.loader 之前你是不是以创建的打开了文件?