DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: deliping
今日帖子: 2
在线用户: 1
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 yysfleet (YYSFLEET) ★☆☆☆☆ -
盒子活跃会员
2004/2/5 18:56:39
标题:
怎么打印出像超市哪种结帐的小票? 浏览:1824
加入我的收藏
楼主: 本人很菜,菜的你想不到,你能说多细就说多细,非常感激!!!
----------------------------------------------
人在江湖漂,哪能不挨刀!
作者:
男 yysfleet (YYSFLEET) ★☆☆☆☆ -
盒子活跃会员
2004/2/5 19:01:07
1楼: 补充一下:
目的是比如点结帐按钮就打印。
----------------------------------------------
人在江湖漂,哪能不挨刀!
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/5 19:04:10
2楼: 偶说不出
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 yysfleet (YYSFLEET) ★☆☆☆☆ -
盒子活跃会员
2004/2/5 22:23:24
3楼: 谢谢biso,
有人知道吗?
----------------------------------------------
人在江湖漂,哪能不挨刀!
作者:
女 caocaocao ( ) ★☆☆☆☆ -
普通会员
2004/2/5 22:33:30
4楼: 首先当然要定义小票的内容.票头,票尾.最后一张小票.同时注意与打印机的连接端口,编写相应硬件接口程序.
----------------------------------------------
我是一棵小小草!
作者:
男 yysfleet (YYSFLEET) ★☆☆☆☆ -
盒子活跃会员
2004/2/5 22:44:57
5楼: 老大!
首先怎么定义小票的内容?
同时怎么注意与打印机的连接端口?
其次怎么编写程序?
我是才学DELPHI的菜鸟,请耐心解答,非常感激!!!!
----------------------------------------------
人在江湖漂,哪能不挨刀!
作者:
男 zhangjw9 (zhangjw9) ★☆☆☆☆ -
盒子活跃会员
2004/2/6 3:15:13
6楼: 建议你先买本书看看
----------------------------------------------
-我们一直在努力
作者:
男 yysfleet (YYSFLEET) ★☆☆☆☆ -
盒子活跃会员
2004/2/6 3:36:01
7楼: 能推荐一本吗?我手头的这些书没有讲解这方面的!谢谢!!!
----------------------------------------------
人在江湖漂,哪能不挨刀!
作者:
男 bjdribllec ( ) ★☆☆☆☆ -
盒子活跃会员
2004/2/6 8:15:28
8楼: 首先一点,了解你现有的硬件,你的打印机与相连是通过串口,还是通过并口;
“定义小票的内容”就是说你那小票上打印哪些东西,格式,数据。
----------------------------------------------
-
作者:
女 haikely (阿) ★☆☆☆☆ -
盒子活跃会员
2004/2/6 8:23:44
9楼: 利用内存表来实现比较容易。
----------------------------------------------
-
作者:
男 firerose (华鸿世纪-火玫瑰) ★☆☆☆☆ -
盒子活跃会员
2004/2/6 8:44:25
10楼: 你的软件是用在收银机上还是普通电脑上?是不是想直接打印而不出现预览窗口?
----------------------------------------------
Delphi 免费组件提供 http://www.delphi-free.com
作者:
男 waterstone (waterstone) ★☆☆☆☆ -
盒子活跃会员
2004/2/6 9:04:53
11楼: 比一般报表简单!
建议先找本教材学学!

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com
作者:
男 fwjindream (fwjindream) ★☆☆☆☆ -
盒子活跃会员
2004/2/6 15:09:16
12楼: 不知道你想实现怎么样的,
在delphi中定义好报表,然后用特定大小的纸张就能打了。
其实关键在于做报表时各个字段的微调,不用什么接口,
也不要什么特别的知识。
我做的一些系统就用到了关于票据打印的东西,
找个打印机多调试几下就行了,对了,
好像只能是针打有用,激打和喷打不行。
----------------------------------------------
我是鸟菜
作者:
男 jasonmao (jason) ★☆☆☆☆ -
普通会员
2004/2/6 15:15:25
13楼: 应该是用报表设计器就行了.然后用票剧打印机打就OK.
----------------------------------------------
我真的很菜啊。
作者:
男 yysfleet (YYSFLEET) ★☆☆☆☆ -
盒子活跃会员
2004/2/6 23:39:06
14楼: firerose (华鸿世纪-火玫瑰) ★ 普通会员 编辑  
 2004-2-6 8:44:25  
10楼: 你的软件是用在收银机上还是普通电脑上?是不是想直接打印而不出现预览窗口? 
======================================================================= 
是在一般的PC上,不是POS机,我就是想直接打印出来不通过预览窗口,而且是像超市哪种,录入一个商品后就打一个,最后再打出总金额等什么的。
----------------------------------------------
人在江湖漂,哪能不挨刀!
作者:
男 yysfleet (YYSFLEET) ★☆☆☆☆ -
盒子活跃会员
2004/2/7 13:53:27
15楼: 来人啊~~~~~救救我吧!!!!!!!!
----------------------------------------------
人在江湖漂,哪能不挨刀!
作者:
男 yangfp (fp) ★☆☆☆☆ -
普通会员
2004/2/7 15:44:18
16楼: 首先确定用的是什么打印机,装好驱动程序。以下通用,不过去掉一些代码,商业机密。不过可以参考一下。利用DELPHI就可实现。

  with printer do
  begin
    BeginDoc;
    canvas.Font.Name :='宋体 8.9cpi';
    canvas.font.size:=16;
    canvas.textout(100,1,'小票标题'); 
    canvas.font.size:=10;
    canvas.textout(0,32,'收款员:  xxx'+ 流水号:'+xxxxxx);
    canvas.textout(0,48,'机器号:'+xxx+' '+dateTimetostr(NOW));
    canvas.textout(0,64,'名称/编码'+'     单价'+'   数量' +'  金额');
    Canvas.TEXTOUT(0,80,'========================================');
    space:=80;
       //要打印的明细或SQL语句,具体实现较简单根据实际情况

     space:=space+16;//打印间隔
     canvas.textout(0,space,barc+' '+DJ1+' '+SL1+'+JE);//打印输出的内容格式,内为输出格式
    
     space:=space+16;
     canvas.textout(0,space,NA+'折扣:'+zkp);

  end;

    space:=space+16;
    Canvas.TEXTOUT(1,space,'--------------------------------------------');
    space:=space+16;
    canvas.TEXTOUT(1,space,'累计金额:'+LabelTotal.Caption);
    space:=space+16;
    canvas.textout(1,space,'折扣: '+sqlform.EditSumZK.Text+'        合计: '+sqlform.LabelSumJE.Caption );
    space:=space+16;
    canvas.textout(1,space,'--------------------------------------------');
{    space:=space+16;
     canvas.textout(10,space,'优惠卡号');    }
    space:=space+16;

    canvas.textout(1,space,'应找金额: '+LabelReturn.Caption);
    space:=space+16;
    canvas.Font.Name :='宋体 8.9cpi';
    canvas.font.size:=12;
    canvas.textout(100,space,sqlform.SCtile); 
//可以从自定义一个文件中取得
   endDoc;
  end;
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行728.5156毫秒 RSS