.net如何实现小票打印？如果测试成功，给100分

[youth0826]

目前，做一个用.NET实现小票打印的程序，从目前网上找到的各个版本来讲，都不能很好满足.NET小票打印。

以下程序，不执行打印命令，说是“没有连接打印机或者打印机端口不是LPT1”

到底LPT是否可以用？请高手解决，谢谢。


<%@ import Namespace="System.IO"%>
<script language="vb" runat="server">


Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Const OPEN_EXISTING = 3

Private yhflag = 0
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As IntPtr

Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim iHandle As IntPtr
iHandle = CreateFile（"LPT", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)

If (iHandle.ToInt32 = -1) Then
MsgBox("没有连接打印机或者打印机端口不是LPT1")
Exit Sub
Else
Dim fs As New FileStream(iHandle, FileAccess.ReadWrite)
Dim sr As New StreamReader(fs) '读数据
Dim sw As New StreamWriter(fs, System.Text.Encoding.Default) '写数据

sw.Write("打印了还等什么")
sw.WriteLine() ''得让他分行
sw.WriteLine()

sw.Write((Chr(27)).ToString() + "p" + (Chr(0)).ToString() + ((Chr(60))).ToString() + ((Chr(255))).ToString()) '''''''开钱箱
sw.Close()
fs.Close()
End If


Catch ex As Exception
MsgBox("没有连接打印机！")
End Try

End Sub

</script>

[zgke]

看你的代码是服务端的打印机? 如果是客户端的打印.

可以考虑最后输出为TXT文件.制作AX控件发送TXT数据到打印机.

[youth0826]

[Quote=引用 1 楼 zgke 的回复:]
看你的代码是服务端的打印机? 如果是客户端的打印.

可以考虑最后输出为TXT文件.制作AX控件发送TXT数据到打印机.
[/Quote]

如果是客户端的打印，能否给具体一点的指导，或则源代码

[evaa006]

我用的是GDI给出底图，再用坐标控制打印出来

[阿云ivan]

focus

[youth0826]

自己顶下啊，希望高手帮帮忙啊

[wuyq11]

iHandle = CreateFile("LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)

[qmialo]

UP

[owen52773956]

顶上去！

[youth0826]

[Quote=引用 6 楼 wuyq11 的回复:]
iHandle = CreateFile("LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
         
[/Quote]
这个一样的，还是没有反应。请问我的这个程序，别的还有什么问题？

[youth0826]

高手呢，这个问题网上找了很多，都没有确切的资料。
高手给个解决方案啊

[youth0826]

高手去哪了啊

[AIRFLYNET]

如果是用IE控制针式打印机进行"行打印",是个难道,
建议用 ActiveX控件取得数据后进行打印.

[AIRFLYNET]

以上有程序应不是代码出了问题,而是IE的权限不足引起的,
如果IE直接利用脚本就能执行"CreateFile"API的话,我想我们的电脑早就被人控制了.

[xsm545]

没用过..帮顶下

[Kkiki]

没有用过 顶

[gaijf]

顶

[luhk1985]

asp.net下，这个问题不是太难，只要用一个SMSX插件就可以实现，然后在IFRAME框架里写需要打印的页面，当然这个打印页面里面的内容，需要设置格式，格式参考你需要打印的小票格式。

[mzhao]

试试
iHandle = CreateFile("LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0, CREATE_ALWAYS, 0, 0)
CREATE_ALWAYS的值自己查MSDN或windows.h

另外，对13楼，这些代码不是页面脚本，是ASP.NET后台代码。
还有，楼主，ISUR_*****、NetworkUser、ASP.NET账户 的权限可能不够

[liudongwei1987]

顶！各位！

[paul9137]

MARK