社区
Delphi
帖子详情
谁能给我一点启示吗,关于自己编写打印驱动程序(能完全控制打印,比如进纸等)?
combsky
2001-07-21 04:46:25
本人想编个票据打印,请大家帮帮忙!有源码更好。
本人的mail:combsky@263.net
...全文
167
8
打赏
收藏
谁能给我一点启示吗,关于自己编写打印驱动程序(能完全控制打印,比如进纸等)?
本人想编个票据打印,请大家帮帮忙!有源码更好。 本人的mail:combsky@263.net
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
combsky
2001-07-29
打赏
举报
回复
谢谢你,maomao!
我的电脑有问题,所以一个星期没上网啦,很感谢大家对小弟的关心!
wz2001
2001-07-22
打赏
举报
回复
下面是我曾经做过的一个票据打印机的子程序,已经有一年多了,记不太清除了,如果有兴趣,可以参考一下.
procedure TForm1.PrintTitle(strNumber :String); //打印子程序
var
PointX,PointY : double;
PixelsPerInchX,PixelsPerInchY : integer;
strHospitalName, strDepartmentName, strDateTime: String;
PrintFile : TextFile;
HospitalFile : TextFile;
begin
try
with Printer do begin
//strNumber:=strNumber+'号';
strDateTime:=DateTimetoStr(Now);
AssignFile(HospitalFile,'DZPD.CFG');
ReSet(HospitalFile);
Readln(HospitalFile,strHospitalName);
Readln(HospitalFile,strDepartmentName);
CloseFile(HospitalFile);
AssignPrn(PrintFile);
Rewrite(PrintFile);
PixelsPerInchX:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX);
PixelsPerInchY:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY);
PointX:=PixelsPerInchX/72;
PointY:=PixelsPerInchY/72;
Canvas.Font.Name:='楷体_GB2312';
Canvas.Font.Color:=clBlack;
Canvas.Font.Height:=-Round(PointX*72*0.4);
//strHospitalName :=' '+strHospitalName;
Writeln(PrintFile,strHospitalName);
Canvas.Font.Height:=-Round(PointX*72*0.2);
strDepartmentName :=strDepartmentName + '排队单';
Writeln(PrintFile,strDepartmentName);
write(PrintFile,' ');
Canvas.Font.Name:='黑体';
Canvas.Font.Height:=-Round(PointY*72);
Delete(strNumber,1,1);
Write(PrintFile,strNumber);
Canvas.Font.Name:='楷体_GB2312';
writeln(PrintFile,'号');
Canvas.Font.Height:=-Round(PointX*72*0.2);
strDateTime :=' '+strDateTime;
Writeln(PrintFile,strDateTime);
System.CloseFile(PrintFile);
end;
except
;
end;
end;
brighteast
2001-07-21
打赏
举报
回复
我也想知道这个问题请各位大侠帮帮忙,请回:zx1106@sina.com
combsky
2001-07-21
打赏
举报
回复
是控制程序,能很好的控制打印机。
wz2001
2001-07-21
打赏
举报
回复
你是要编写打印驱动程序还是控制程序?这很关键.
EdwinYeah
2001-07-21
打赏
举报
回复
参考打印机(如epson针打)的相关文档,主要有两种标准命令,名称不记得了.
combsky
2001-07-21
打赏
举报
回复
up!!!
combsky
2001-07-21
打赏
举报
回复
gz
程序员为什么要一直写 bug ?
为了减少bug的产生,程序员会采取一系列的措施,如
编写
详细的文档、进行代码审查、
编写
单元测试和等。同时,他们也会不断学习新的技术和方法,提高自己的编程能力,以减少bug的产生。总的来说,程序员并不是故意写bug的,而是在编程过程中由于各种原因导致bug的产生。他们会尽力避免bug的产生,并采取各种措施来减少bug的数量和影响。
软件工程师面试宝典
软件测试基本理论知识试题汇总 一、判断题 1.软件测试的目的是尽可能多的找出软件的缺陷。( ) 2.Beta测试是验收测试的一种。( ) 3.验收测试是由最终用户来实施的。( ) 4.项目立项前测试人员不需要提交任何工件。( ) 5.单元测试能发现约80%的软件缺陷。( ) 6.代码评审是检查源代码是否达到模块设计的要求。( ) 7.自底向上集成需要测试员
编写
驱动程序
。( ) 8
我了解的软件测试基本概念
题目汇总 共293道题 目录 题目汇总 1 一. 技术类型题目: 4 二. 测试话术: 9 1.什么是兼容性测试?兼容性测试侧重哪些方面? 9 2.正交表测试用例设计方法的特点是什么? 10 3.简述一下缺陷的生命周期? 10 3.画出软件测试的V模型图。 10 4.您所熟悉的测试用例设计方法都有哪些?请分别以具体的例子来说明这些方法在测试用例设计工作中的应用。 10 5.请以您以往的实际工作为例...
我了解的软件测试总结
题目汇总 共293道题 目录 题目汇总 1 一. 技术类型题目: 4 二. 测试话术: 9 1.什么是兼容性测试?兼容性测试侧重哪些方面? 9 2.正交表测试用例设计方法的特点是什么? 10 3.简述一下缺陷的生命周期? 10 3.画出软件测试的V模型图。 10 4.您所熟悉的测试用例设计方法都有哪些?请分别以具体的例子来说明这些方法在测试用例设计工作中的应用。 10 5.请以您以往的实际工作为例...
Delphi
5,927
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章