社区
Delphi
帖子详情
谁能给我一点启示吗,关于自己编写打印驱动程序(能完全控制打印,比如进纸等)?
combsky
2001-07-21 04:46:25
本人想编个票据打印,请大家帮帮忙!有源码更好。
本人的mail:combsky@263.net
...全文
157
8
打赏
收藏
谁能给我一点启示吗,关于自己编写打印驱动程序(能完全控制打印,比如进纸等)?
本人想编个票据打印,请大家帮帮忙!有源码更好。 本人的mail:combsky@263.net
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
我了解的软件测试总结
3、作为被面试者给我打一下分 4、你怎么理解你应聘的职位? 5、喜欢这份工作的哪
一点
? 6、为什么要离职? 7、说说你对行业、技术发展趋势的看法? 8、对工作的期望与目标何在? 9、说说你的家庭。 10、就你申请的这...
软件工程师面试宝典
软件测试基本理论知识试题汇总 一、判断题 1.软件测试的目的是尽可能多的找出软件的缺陷。( ) 2.Beta测试是验收测试的一种。( ) 3.验收测试是由最终用户来实施...7.自底向上集成需要测试员
编写
驱动程序
。( ) 8
《计算机寓言 - 信息时代的
启示
》【转载】
《计算机寓言 - 信息时代的
启示
》声明:本文内容来自⟪编程之道⟫一书, 小赵只负责录入. 所有版权归该书的出版社。本文由原来的三册书组成:⟪编程之道⟫ ⟪编程之禅⟫⟪计算机时代的寓言...
Doom
启示
录(二)------李乃峰所崇拜之 两个约翰!
第一章:摇滚明星 1979年夏天的一个午后,美国加州的罗克林镇,11岁的罗梅洛跨上他的脚踏车,穿过镇...在他看来,没有什么感觉能比站在那些街机前更好了:他拍打着按钮,
控制
着屏幕上的三叉戟飞船在无数小行星中间左躲
什么是整洁代码?大咖程序员们这样说
这是本有关
编写
好程序的书。它充斥着代码。我们要从各个方向来考察这些代码。从顶向下,从底往上,从里而外。读完后,就能知道许多关于代码的事了。 《代码整洁之道》 马丁 著 而且,我们还能说出好代码和糟糕...
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章