vb.net 热敏打印机中怎么检测打印机

来源：蜘蛛抓取(WebSpider) 时间：2017-04-20 04:32 标签： vb.net pdf虚拟打印机
他的最新文章
他的热门文章
您举报文章：
举报原因：
原文地址：
原因补充：
(最多只允许输入30个字)2009年4月 VB大版内专家分月排行榜第三2007年10月 VB大版内专家分月排行榜第三
2009年4月 VB大版内专家分月排行榜第三2007年10月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2009年4月 VB大版内专家分月排行榜第三2007年10月 VB大版内专家分月排行榜第三
2009年4月 VB大版内专家分月排行榜第三2007年10月 VB大版内专家分月排行榜第三
2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
匿名用户不能发表回复！|2010年12月 VB大版内专家分月排行榜第二2010年11月 VB大版内专家分月排行榜第二2009年7月 VB大版内专家分月排行榜第二
匿名用户不能发表回复！|vb.net中怎么直接写并口控制小票打印机 - VB Dotnet当前位置:& &&&vb.net中怎么直接写并口控制小票打印机vb.net中怎么直接写并口控制小票打印机www.MyException.Cn&&网友分享于：&&浏览：349次vb.net中如何直接写并口控制小票打印机? 比如在VB6中
&LPT1: & & For & Output & As & #1
& Print & #1, & Chr$(27); &
&E &; & Chr(&H1B); & Chr(&H26); &
& Close & #1
在vb2005里面就不能用open来打开LPT1了,要用什么办法呢?------解决方案--------------------这是以前用过的,在OKI上:
Imports System.IO
Imports System.Runtime.InteropServices
Public Class DataInfo
Private mLPTPORT As String
'打印机端口
Private mInitText As String
'初始化参数
Private mTexts As String()
'以数组形式输出
Private mText As String
'打印文本
Public Property LPTPORT() As String
Return mLPTPORT
Set(ByVal Value As String)
mLPTPORT = Value
End Property
Public Property ToPrintText() As String
Return mText
Set(ByVal Value As String)
mText = Value
End Property
Public Property InitPrinterText() As String
Return mInitText
Set(ByVal Value As String)
mInitText = Value
End Property
Public Property ToPrintTexts() As String()
Return mTexts
Set(ByVal Value As String())
mTexts = Value
End Property
Public Class Printer
&接口参数 &
Private PARAS As DataInfo
Public WriteOnly Property InputInfo() As DataInfo
Set(ByVal Value As DataInfo)
PARAS = Value
End Property
Private mStatus As Integer
Public ReadOnly Property STATUS() As Integer
Return mStatus
End Property
#End Region
&本地变量 &
Private LPTPORT As String
Private hPortP As IntPtr
'返回句柄
Private retval As Boolean
'关闭打印时返回的句柄
Private outFile As FileStream
'打印字符流
#End Region
Public Sub InitializePrinter()
If PARAS.InitPrinterText.Trim =
& & Then Exit Sub
LPTPORT = PARAS.LPTPORT
hPortP = CreateFile(LPTPORT, GENERIC_READ Or GENERIC_WRITE, 0, IntPtr.Zero, _
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero)
mStatus = hPortP.ToInt32
outFile = New FileStream(hPortP, FileAccess.Write, False)
Dim fileWriter As New StreamWriter(outFile, System.Text.Encoding.Default)
fileWriter.AutoFlush = False
'打印开始
fileWriter.Write(PARAS.InitPrinterText)
fileWriter.Flush()
fileWriter.Close()
outFile.Close()
retval = CloseHandle(hPortP)
Public Sub PrintText()
If PARAS.ToPrintText.Trim =
& & Then Exit Sub
LPTPORT = PARAS.LPTPORT
hPortP = CreateFile(LPTPORT, GENERIC_READ Or GENERIC_WRITE, 0, IntPtr.Zero, _
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero)
mStatus = hPortP.ToInt32
outFile = New FileStream(hPortP, FileAccess.Write, False)
Dim fileWriter As New StreamWriter(outFile, System.Text.Encoding.Default)
fileWriter.AutoFlush = False
'打印单据开始
fileWriter.WriteLine(PARAS.ToPrintText)
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有vb.net中怎么检测打印机_百度知道
vb.net中怎么检测打印机
我有更好的答案
InstalledPrinters.Count - 1
ComboBox1.Items.Clear() For i As Integer = 0 To PrinterSettings.InstalledPrinters添加空间.Items.Add(PrinterSettings：Imports System.Drawing.Printing添加combobx1控件：
采纳率：87%
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 vb.net pdf虚拟打印机 的文章

 

随机推荐