阿泰的软件实用主义

水晶报表/BOE
博客园 首页 新随笔 联系 订阅 管理
  155 Posts :: 9 Stories :: 1844 Comments :: 37 Trackbacks
[票据打印]打印走纸控制(2) - 代码实现

本文为的票据打印系列的最后一篇，主要是代码实现。
本文中的纸型设置请参考前一篇文章 http://www.cnblogs.com/babyt/articles/116792.html 。
套打实现思路请参考这篇 http://www.cnblogs.com/babyt/articles/116794.html
本文的方法适用于Epson  / Star  / Tally 全系列针式打印机，
需要注意的是部分打印机使用自带程序反而不能很好的控制住走纸，对于以下打印机：
Star AR 3200 / 3200+ , Star AR 6400 , Tally 2660 需要使用Epson 1600K的驱动程序。


核心代码
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If MsgBox("要进行打印吗?", vbOKCancel + vbDefaultButton1, "打印提示") = vbOK Then
            '取消背景图片
            Me.Picture = LoadPicture("")
            '设置纸型
            Call SelectForm("固定电话帐单", Me.hwnd)
            '打印
            Me.PrintForm
            '卸载窗体
            Unload Me
        End If
    End If
End Sub

其中SelectForm为纸型选择函数，使用了老外的一个函数，呵呵。

不多说了，具体请参见完整代码。
代码下载 ，WINRAR3.1压缩,密码:WWW.FACESUN.CN
posted on 2005-03-11 12:51 阿泰 阅读(2564) 评论(11)  编辑 收藏

Feedback

#1楼  2005-08-03 23:24 笑阁 [未注册用户]
我需要打印控制程序源码.不能下载
  回复  引用    

#2楼 [楼主] 2005-08-04 01:57 阿泰      
下载地址修正了,重新下吧
  回复  引用  查看    

#3楼  2005-10-04 16:09 豆腐干 [未注册用户]
密码是错误的
请更正
谢谢
  回复  引用    

#4楼  2006-03-21 09:10 南辛庄 [未注册用户]
阿泰，代码下载的链接又无小了，请费心看看好吗？
  回复  引用    

#5楼  2006-05-28 19:57 super [未注册用户]
不能下载能否发份给我谢谢superghy@126.com
  回复  引用    

#6楼  2006-06-29 12:27 hahar [未注册用户]
代码已经不能下载了,能不能给我发送一份,谢谢!
76693223@163.com
  回复  引用    

#7楼  2006-07-13 17:04 liuzhiyu [未注册用户]
阿泰，麻烦发份代码给我吧，急着用...谢谢！
liuzhiyu5@126.com
  回复  引用    

#8楼  2006-07-17 11:21 san [未注册用户]
无法下载麻烦发份给我！wxm780@sohu.com
  回复  引用    

#9楼  2006-07-29 09:25 libydwei [未注册用户]
li_21_wei@163.com
谢谢了
  回复  引用    

#10楼  2006-10-03 23:45 彭伟 [未注册用户]
阿泰，麻烦发份代码给我吧，急着用。特别是SelectForm函数
cq_hunter@163.com
  回复  引用    

#11楼  2006-10-15 02:22 lxf [未注册用户]
lanxue_fei@yahoo.com.cn
谢谢了
  回复  引用    


标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
网站首页

新闻频道

社区

小组

博问

网摘

闪存

找找看
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
该文被作者在 2008-05-19 10:03 编辑过
"五向定位"职业成长路线公开课(上海、南京、大连)
Google站内搜索


相关链接:

最新IT新闻:
MySpace推自助广告平台MyAds
Facebook创始人:信息共享或存摩尔定律
微软承认Vista用户账户控制功能有问题
资本寒冬侵袭中国视频网站 营销春天或不远
金融风暴波及全球创业板 中国概念股难独善其身