如何实现打印完就停,不走空纸?

power401102 2008-09-04 07:52:38
正在开发一个账务系统,想用水晶报表打印小票据、大票单等不等长的表单数据,打印机是老式的那种针式打印机,打印纸是带孔的连续卷纸,现在打印时最后一页无论数据多少都要走完一页才停,现在想实现打印数据完就停止,然后撕纸即可,如何实现啊?
...全文
296 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
yurengang 2008-09-29
  • 打赏
  • 举报
回复
利用水晶报表设计好表格以后,然后通过打印机设置里的服务器属性,添加"自定义张张",然后在打印首选项里指定一下纸张即可.
ymx1121 2008-09-28
  • 打赏
  • 举报
回复
利用水晶报表设计好表格以后,然后通过打印机设置里的服务器属性,添加"自定义张张",然后在打印首选项里指定一下纸张即可.
kingsunmax 2008-09-27
  • 打赏
  • 举报
回复
有个思路,但具体怎么实现没去试过。。试出来告诉一下哈。先上思路
利用程序添加自定义纸张,
先用程序算好纸张有多大,然后在用程序添加自定义纸张,然后报表指定自定义纸张。打印完后删除自定义纸张。
yurengang 2008-09-25
  • 打赏
  • 举报
回复
想飞的狼 2008-09-20
  • 打赏
  • 举报
回复
关注!!!!!!!!!
power401102 2008-09-20
  • 打赏
  • 举报
回复
在dephi区搜到这样一个解答:大家可以试一下,有效的话告诉一声

----****
frjfanding123()回复于 2005-06-18 17:42:01

把qr设定defult 把针式打印机设成自定纸张 这样写代码:
shouyinbbform.QuickRep1.Page.Length:=shouyinbbform.SummaryBand2.Height+shouyinbbform.QRBand3.Height+shouyinbbform.QRBand2.Height+shouyinbbform.QRBand1.Height*shouyinbbform.ADOQuery1.RecordCount+200;
shouyinbbform.QuickRep1.Print;

注:加200是为了纸下面有些空出来的地方
-----***
hzybc 2008-09-05
  • 打赏
  • 举报
回复
是不是设成连续纸打印?
htpower 2008-09-05
  • 打赏
  • 举报
回复
同样期待大大们的精彩代码~
TNT1900 2008-09-05
  • 打赏
  • 举报
回复
搜索一下“打印”,
应该能找到不少参考呢!
TNT1900 2008-09-05
  • 打赏
  • 举报
回复
很简单:
自己写API代码,
完全控制打印机。

前提是:
你得至少有一份行式打印机手册。
--不是使用手册,
而是开发手册,
里面有大量详细控制命令和参数介绍。
清风古韵 2008-09-05
  • 打赏
  • 举报
回复
支持,
zdingyun 2008-09-04
  • 打赏
  • 举报
回复
关注!顶!

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧