使用Delphi实现��据�_��打印.

Sun, 09 Apr 2006 10:13:00 GMT

一、概�q?br />在银行，�E�务�Q�邮政等行业的实际工作中�Q�经常涉及到在印刷好��h��固定格式的汇�Ƒ֍��Q�储蓄凭证，
�E�票�{�单据上的确定位�|�打印输出相关的信息。在此类需求中�Q�精��地定位单据�q�打印相关信息，
是解决问题的关键。一般情况下�Q�开发者都是通过在打印机上通过重复的测试来辑ֈ�实际需求�?br />那么�Q�有没有��单有效而又灉|��的方法实��C��q�功能呢�Q?br />二、基本思�\

分析上述单据的特征，可以发现�Q�此�c�L��印输出的信息一般比较简短，不涉及到文字�q�长的折行处理，
另外�Q�其打印输出的位�|�相对固定。因此，我们可以通过用尺子以毫米为单位，��量好每个输��Z��息位�|?br />的横向和�U�向坐标,作�ؓ信息输出的位�|�。但�׃��不同打印机在实际输出效果上，��L��存在理论和实际位�|?br />的偏差，因此�Q�要求程序具有一定的灉|��性，供最�l�用��h��据需要，�q�行必要的位�|�调整。因此，可设�|?br />一打印配置文�g�Q�用于存储横坐标和纵坐标的偏�U�量�Q�用于用戯��行位�|�校正，从而提供了一定的灉|��性�?br />三、精��打印输出的�E�序实现
1�Q?在Delphi中新��Z��个名为mprint.pas的单元文件�ƈ�~�写如下�E�序�Q�单元引用中加入Printers略：

//取得字符的高�?br />function CharHeight: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmHeight;
end;

file://取得字符的��^均宽�?br />function AvgCharWidth: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmAveCharWidth;
end;

file://取得�U�张的物理尺�?--单位�Q�点
function GetPhicalPaper: TPoint;
var
　PageSize : TPoint;
begin
　file://PageSize.X; �U�张物理宽度-单位:�?br />　file://PageSize.Y; �U�张物理高度-单位:�?br />　Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
　Result := PageSize;
end;

file://2.取得�U�张的逻辑宽度--可打印区�?br />file://取得�U�张的逻辑��寸
function PaperLogicSize: TPoint;
var
　APoint: TPoint;
begin
　APoint.X := Printer.PageWidth;
　APoint.Y := Printer.PageHeight;
　Result := APoint;
end;

file://�U�张水��^对垂直方向的�U�|��比例
function HVLogincRatio: Extended;
var
　AP: TPoint;
begin
　Ap := PaperLogicSize;
　Result := Ap.y/Ap.X;
end;

file://取得�U�张的横向偏�U�量-单位�Q�点
function GetOffSetX: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
end;

file://取得�U�张的纵向偏�U�量-单位�Q�点
function GetOffSetY: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
end;

file://毫米单位转换��寸单�?br />function MmToInch(Length: Extended): Extended;
begin
　Result := Length/25.4;
end;

file://英寸单位转换为毫�c�_��?br />function InchToMm(Length: Extended): Extended;
begin
　Result := Length*25.4;
end;

file://取得水��^方向每英寸打印机的点�?br />function HPointsPerInch: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
end;

file://取得�U�向方向每英寸打印机的光栅数
function VPointsPerInch: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
end;

file://横向点单位�{换�ؓ毫米单位
function XPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/HPointsPerInch;
end;

file://�U�向点单位�{换�ؓ毫米单位
function YPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/VPointsPerInch;
end;

file://讄��U�张高度-单位�Q�mm
procedure SetPaperHeight(Value:integer);
var
　Device : array[0..255] of char;
　Driver : array[0..255] of char;
　Port : array[0..255] of char;
　hDMode : THandle;
　PDMode : PDEVMODE;
begin
file://自定义纸张最��高�?27mm
if Value < 127 then Value := 127;
　file://自定义纸张最大高�?32mm
　if Value > 432 then Value := 432;
　　Printer.PrinterIndex := Printer.PrinterIndex;
　　Printer.GetPrinter(Device, Driver, Port, hDMode);
　　if hDMode <> 0 then
　　　begin
　　　　pDMode := GlobalLock(hDMode);
　　　　if pDMode <> nil then
　　　　begin
　　　　　pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
　　　　　　　　　　　　　　　DM_PAPERLENGTH;
　　　　　pDMode^.dmPaperSize := DMPAPER_USER;
　　　　　pDMode^.dmPaperLength := Value * 10;
　　　　　pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
　　　　　pDMode^.dmDefaultSource := DMBIN_MANUAL;
　　　　　GlobalUnlock(hDMode);
　　　　end;
　　　end;
　　　Printer.PrinterIndex := Printer.PrinterIndex;
end;

file://讄��U�张宽度�Q�单�?-mm
Procedure SetPaperWidth(Value:integer);
var
　Device : array[0..255] of char;
　Driver : array[0..255] of char;
　Port : array[0..255] of char;
　hDMode : THandle;
　PDMode : PDEVMODE;
begin
file://自定义纸张最��宽�?6mm
if Value < 76 then Value := 76;
　file://自定义纸张最大宽�?16mm
　if Value > 216 then Value := 216;
　　Printer.PrinterIndex := Printer.PrinterIndex;
　　Printer.GetPrinter(Device, Driver, Port, hDMode);
　　if hDMode <> 0 then
　　begin
　　　pDMode := GlobalLock(hDMode);
　　　if pDMode <> nil then
　　　begin
　　　　pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
　　　　　　　　　　　　　　DM_PAPERWIDTH;
　　　　pDMode^.dmPaperSize := DMPAPER_USER;
　　　　file://��毫�c�_��位�{换�ؓ0.1mm单位
　　　　pDMode^.dmPaperWidth := Value * 10;
　　　　pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
　　　　pDMode^.dmDefaultSource := DMBIN_MANUAL;
　　　　GlobalUnlock(hDMode);
　　　end;
　　end;
　　Printer.PrinterIndex := Printer.PrinterIndex;
end;

file://�?(Xmm, Ymm)处按指定配置文�g信息和字体输出字�W�串
procedure PrintText(X, Y: Extended; Txt: string; ConfigFileName: string; FontSize: Integer=12);
var
　OrX, OrY: Extended;
　Px, Py: Integer;
　AP: TPoint;
　Fn: TStrings;
　FileName: string;
　OffSetX, OffSetY: Integer;
begin
file://打开配置文�g�Q�读出横向和�U�向偏移�?br />try
　Fn := TStringList.Create;
　FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
　if FileExists(FileName) then
　begin
　　Fn.LoadFromFile(FileName);
　　file://横向偏移�?br />　　OffSetX := StrToInt(Fn.Values['X']);
　　file://�U�向偏移�?br />　　OffSetY := StrToInt(Fn.Values['Y']);
　end
else
begin
　file://如果没有配置文�g�Q�则生成
　Fn.Values['X'] := '0';
　Fn.Values['Y'] := '0';
　Fn.SaveToFile(FileName);
end;
finally
　Fn.Free;
end;
X := X + OffSetX;
Y := Y + OffSetY;
Px := Round(Round(X * HPointsPerInch * 10000/25.4) / 10000);
Py := Round(Round(Y * VPointsPerInch * 10000/25.4) / 10000);
Py := Py - GetOffSetY; file://因�ؓ是绝对坐�? 因此, 不用换算成相对于Y轴坐�?br />Px := Px + 2 * AvgCharWidth;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := FontSize;
file://Printer.Canvas.Font.Color := clGreen;
Printer.Canvas.TextOut(Px, Py, Txt);
end;

　　2�Q?使用举例

　　在主�H�体中加入对mprint单元的引用，在一命��o钮的OnClick
事�g中书写如下代码（用于在邮政汇�Ƒ֍�上的相应�Ҏ��内打印邮政编�?43300�Q�：

Printer.BeginDoc;
PrintText(16, 14, '8', 'config.txt');
PrintText(26, 14, '4', 'config.txt');
PrintText(36, 14, '3', 'config.txt');
PrintText(46, 14, '3', 'config.txt');
PrintText(56, 14, '0', 'config.txt');
PrintText(66, 14, '0', 'config.txt');
Printer.EndDoc;

　　观察�l�果�Q�用��子��量偏移量，在config.txt文�g中修改X�Q�Y的值即可�?br />
　　其它�Q�设�|�打印机和纸张类型从略�?br />
　　四、结束语

来自�Q?/b> 易云�?/a>, 旉��Q?/b>2004-7-23 9:51:55, ID�Q?/b>2726013

如果打小�?6毫米的高度的��据呢？
不就是没法控制精度拉�?
而且我问�q�epson�Q�十厘米以下一般走�U�就不是非常准确�Q�必��调整几毫米才能保证准确�Q�如果你的高度间距恰好不被用英寸所�_��定�Q�那么打印就有可能出现篏计误差�?br />比如高度70mm的纸�q�箋�U�，Epson针打必须讄��?19mm才能保证走到切纸位，

来自�Q?/b> 易云�?/a>, 旉��Q?/b>2004-7-23 9:58:58, ID�Q?/b>2726045

而且�Q�如果你用写字板做测试走�U�是否走到切�U怽��Q�以�?19mm也有一点点没有��C��Q�当打多张时�Q�篏计走�U�误差也��p��来越大，10张就几乎10mm啦，如果调到721mm�Q�走�U�就�q�了切纸位一点点�Q�调�?�?0mm是最合适的�Q�可惜epson是按英寸计算�Q?19�Q?20对应2�?3in,
7.21 对应2�?4in, 嘿嘿�Q�没撤�?

来自�Q?/b> 易云�?/a>, 旉��Q?/b>2004-7-23 10:14:54, ID�Q?/b>2726098

解决�Ҏ��是有很多的，��q��接也有间接，不过辑ֈ�最��x��果，�q�得靠esc命��o�Q�不�q�得熟悉esc/p�p�d��命��o�Q�亲自控制打印机的走�U��?

来自�Q?/b> 易云�?/a>, 旉��Q?/b>2004-7-23 14:40:04, ID�Q?/b>2726748

可恨的是�Q�我�q�在研究�Q�头都大�?

来自�Q?/b> ktsxy, 旉��Q?/b>2004-7-30 10:58:21, ID�Q?/b>2738703

非常感谢...你们�l�出�q�么好的�{�案...谢谢

来自�Q?/b> ktsxy, 旉��Q?/b>2004-7-30 11:04:42, ID�Q?/b>2738732

请问 d_fan 怎么联系�?...我有很急的事要��h��?关于��据打印)问题.....

你能不能发一份票据打印的Delphi 源程序给�?.谢谢

��弟很�?..............QQ:330117537

来自�Q?/b> xdengni, 旉��Q?/b>2004-11-23 15:18:09, ID�Q?/b>2904656

请问 d_fan 怎么联系�?...我有很急的事要��h��?关于��据打印)问题.....

你能不能发一份票据打印的Delphi 源程序给�?.我也惌��Q�谢�?

来自�Q?/b> cng81, 旉��Q?/b>2004-11-24 16:13:03, ID�Q?/b>2906618

TO�Q�d_fan 真是感谢你提供的代码�Q�我要好好研�I�一个。呵呵（敬礼�Q�）

来自�Q?/b> luckysw, 旉��Q?/b>2004-11-30 16:21:27, ID�Q?/b>2913352

d_fan 我也正在做票据打华ͼ�感谢你提供的代码呵呵
不过�Q�这�D�代码好像还有一个小问题�Q?br />要是打印的位�|�超��Z��默认的页边距怎么办？
有什么办法能讄��边距吗�Q?

来自�Q?/b> thj, 旉��Q?/b>2005-8-30 16:44:59, ID�Q?/b>3185727

�q�有一个重要问题：不好控制折行�?

来自�Q?/b> 任逍遥1205, 旉��Q?/b>2005-12-7 18:04:41, ID�Q?/b>3289184

�q�行代码怎么来实现横打，我加上下面这�D�代码也不行
PDMode^.dmFields:=DM_ORIENTATION;
PDMode^.dmOrientation :=PDMode^.dmFields or DMORIENT_LANDSCAPE;

来自�Q?/b> nido, 旉��Q?/b>2005-12-15 8:20:29, ID�Q?/b>3297086

��g�� 我也需要一份源代码�Q�能否发�l�我�?br />nidogz@gmail.com

来自�Q?/b> zhangbo, 旉��Q?/b>2005-12-31 11:01:56, ID�Q?/b>3314733

请问 d_fan 怎么联系�?br />我有很急的事要��h��?关于��据打印)问题
你能不能发一份票据打印的Delphi 源程序给�?.谢谢
我在打凭证时老差2mm�Q�篏计误差只能打10个凭证�?br />�U�的高度�?08mm
我用的是FastReport
我的QQ�?82057922

来自�Q?/b> zhangbo, 旉��Q?/b>2005-12-31 11:12:06, ID�Q?/b>3314753

请问 d_fan 怎么联系�?br />我有很急的事要��h��?关于��据打印)问题
你能不能发一份票据打印的Delphi 源程序给�?.谢谢
我在打凭证时老差2mm�Q�篏计误差只能打10个凭证�?br />�U�的高度�?08mm
我用的是FastReport
我的QQ�?82057922
yhqzbb2@sina.com

有猫�怼�的日�?/a> 2006-04-09 18:13 发表评论

亚洲伦另类中文字幕,国产亚洲成av片在线观看,日本中文一区二区三区亚洲

使用Delphi实现���据�_����打印.

使用Delphi实现��据�_��打印.