// 打印单元;版本:1.0,1998.8.13-8. //作者:王永涛; 本单元主要实现了按纸张实际尺寸,以指定位置(单位0.1毫米),字距,行局,是否折行进行打印 WordSpace :integer;//字距 LineSPace :integer;//行距 MaxLength :integer;//行宽 WordWrap :boolean;//是否折行 Alignment :TAlignment;//对齐方式 Function GetPaperWidth:integer;//纸的实际宽度,单位:0.1毫米 Function GetPaperHeight:integer;//纸的实际高度,单位:0.1毫米 Function GetWidth:integer;// 纸的实际宽度,单位:point Function GetHeight:integer; //纸的实际长度,单位:point Function GetOffSetX:integer;//纸的左边距 Function GetOffSetY:integer;//纸的右边距 Function PToPX(value:integer):integer;//将X轴实际尺寸转化为点距(单位:0.1毫米) Function PToPY(value:integer):integer;//将Y轴实际尺寸转化为点距(单位:0.1毫米) FUnction GetPixelsX:integer; //取得水平方向分辨率 Function GetPixelsY:integer; procedure PrintText(x,y:integer;Text:string);// 以指定位置(单位0.1毫米),字距,行局,打印一行 procedure ExtPrint(x,y:integer;Text:string);//WordSpace:字距;以指定位置(单位0.1毫米),字距,行局,是否折行打印多行