向银行这种票据,有固定格式,并且都以印制好的票据,并且怎样使那些数据精确的打印在固定位置呢,打印程序和打印机有关系吗,请各位给各解决方案,怎么来实现
解决方案 »
- fastreport 链式纸打印时,前几张对准了,后面的就对不准了,会有偏差, 是怎么回事?
- Image控件怎么响应键盘信息???
- 关于查寻问题,请高手指教
- 郁闷!不知道该不该跳槽!
- win2k english , 怎么使用汉字输入法(大虾请入)
- 谁能介绍一个批量像图像上加日期的程序
- 一个关于xp的简单问题
- 怎样通过ADO来实现decision cube联系制作char
- 有没有类似于PPT里的编辑控件啊,像Edit一样,你点中它,周边就有一个框框起来,可以在里面编辑,可拖动(不能拖动的也行),背景透明的。
- ado的问题,谢谢!!!!!
- 请教一问题(顶者有分)
- 写一个可以多进程操作的栈(先进先出,后进先出),列表类,用内存映射文件实现,请大家指教改进
Delphi中票据凭证的精确打印
Var dc : HDC; //设备环境句柄
dc := GetDC(0); //屏幕的环境句柄
S_ScaleX:=GetDeviceCaps(dc, LOGPIXELSX)/ 25.4; //屏幕X方向上每毫米的像素个数;
S_ScaleY:=GetDeviceCapsdc, LOGPIXELSY) / 25.4; //屏幕Y方向上每毫米的像素个数;
dc:= Printer.Canvas.Handle; //打印机的环境句柄
P_ScaleX:=GetDeviceCaps(dc, LOGPIXELSX)/ 25.4;//打印机X方向上每毫米的像素个数
P_ScaleY:=GetDeviceCaps(dc, LOGPIXELSY)/25.4;//打印机Y方向上每毫米的像素个数[2]。