E票{单据上的确定位|打印输出相关的信息。在此类需求中Q精地定位单据q打印相关信息，
是解决问题的关键。一般情况下Q开发者都是通过在打印机上通过重复的测试来辑ֈ实际需求?br />那么Q有没有单有效而又灉|的方法实Cq功能呢Q?br />二、基本思\
分析上述单据的特征，可以发现Q此cL印输出的信息一般比较简短，不涉及到文字q长的折行处理，
另外Q其打印输出的位|相对固定。因此，我们可以通过用尺子以毫米为单位，量好每个输Z息位|?br />的横向和U向坐标,作ؓ信息输出的位|。但׃不同打印机在实际输出效果上，L存在理论和实际位|?br />的偏差，因此Q要求程序具有一定的灉|性，供最l用h据需要，q行必要的位|调整。因此，可设|?br />一打印配置文gQ用于存储横坐标和纵坐标的偏U量Q用于用戯行位|校正，从而提供了一定的灉|性?br />三、精打印输出的E序实现
1Q?在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张高度-单位Qmm
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://打开配置文gQ读出横向和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://如果没有配置文gQ则生成
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;
2Q?使用举例
在主H体中加入对mprint单元的引用，在一命o钮的OnClick
事g中书写如下代码（用于在邮政汇Ƒ֍上的相应Ҏ内打印邮政编?43300Q：
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中修改XQY的值即可?br />
其它Q设|打印机和纸张类型从略?br />
四、结束语
如果打小?6毫米的高度的据呢？
不就是没法控制精度拉?
而且我问qepsonQ十厘米以下一般走U就不是非常准确Q必调整几毫米才能保证准确Q如果你的高度间距恰好不被用英寸所_定Q那么打印就有可能出现篏计误差?br />比如高度70mm的纸q箋U，Epson针打必须讄?19mm才能保证走到切纸位，
不就是没法控制精度拉?
而且我问qepsonQ十厘米以下一般走U就不是非常准确Q必调整几毫米才能保证准确Q如果你的高度间距恰好不被用英寸所_定Q那么打印就有可能出现篏计误差?br />比如高度70mm的纸q箋U，Epson针打必须讄?19mm才能保证走到切纸位，
而且Q如果你用写字板做测试走U是否走到切U怽Q以?19mm也有一点点没有CQ当打多张时Q篏计走U误差也p来越大，10张就几乎10mm啦，如果调到721mmQ走U就q了切纸位一点点Q调??0mm是最合适的Q可惜epson是按英寸计算Q?19Q?20对应2?3in,
7.21 对应2?4in, 嘿嘿Q没撤?
7.21 对应2?4in, 嘿嘿Q没撤?
解决Ҏ是有很多的，q接也有间接，不过辑ֈ最x果，q得靠esc命oQ不q得熟悉esc/ppd命oQ亲自控制打印机的走U?
可恨的是Q我q在研究Q头都大?
来自Q?/b>
ktsxy, 旉Q?/b>2004-7-30 10:58:21, IDQ?/b>2738703
非常感谢...你们l出q么好的{案...谢谢
来自Q?/b>
ktsxy, 旉Q?/b>2004-7-30 11:04:42, IDQ?/b>2738732
请问 d_fan 怎么联系?...我有很急的事要h?关于据打印)问题.....
你能不能发一份票据打印的Delphi 源程序给?.谢谢
弟很?..............QQ:330117537
你能不能发一份票据打印的Delphi 源程序给?.谢谢
弟很?..............QQ:330117537
来自Q?/b>
xdengni, 旉Q?/b>2004-11-23 15:18:09, IDQ?/b>2904656
请问 d_fan 怎么联系?...我有很急的事要h?关于据打印)问题.....
你能不能发一份票据打印的Delphi 源程序给?.我也惌Q谢?
你能不能发一份票据打印的Delphi 源程序给?.我也惌Q谢?
来自Q?/b>
cng81, 旉Q?/b>2004-11-24 16:13:03, IDQ?/b>2906618
TOQd_fan 真是感谢你提供的代码Q我要好好研I一个。呵呵（敬礼Q）
来自Q?/b>
luckysw, 旉Q?/b>2004-11-30 16:21:27, IDQ?/b>2913352
d_fan 我也正在做票据打华ͼ感谢你提供的代码 呵呵
不过Q这D代码好像还有一个小问题Q?br />要是打印的位|超Z默认的页边距怎么办？
有什么办法能讄边距吗Q?
不过Q这D代码好像还有一个小问题Q?br />要是打印的位|超Z默认的页边距怎么办？
有什么办法能讄边距吗Q?
来自Q?/b>
thj, 旉Q?/b>2005-8-30 16:44:59, IDQ?/b>3185727
q有一个重要问题：不好控制折行?
来自Q?/b>
任逍遥1205, 旉Q?/b>2005-12-7 18:04:41, IDQ?/b>3289184
q行代码怎么来实现横打，我加上下面这D代码也不行
PDMode^.dmFields:=DM_ORIENTATION;
PDMode^.dmOrientation :=PDMode^.dmFields or DMORIENT_LANDSCAPE;
PDMode^.dmFields:=DM_ORIENTATION;
PDMode^.dmOrientation :=PDMode^.dmFields or DMORIENT_LANDSCAPE;
来自Q?/b>
nido, 旉Q?/b>2005-12-15 8:20:29, IDQ?/b>3297086
g 我也需要一份源代码Q能否发l我?br />nidogz@gmail.com
来自Q?/b>
zhangbo, 旉Q?/b>2005-12-31 11:01:56, IDQ?/b>3314733
请问 d_fan 怎么联系?br />我有很急的事要h?关于据打印)问题
你能不能发一份票据打印的Delphi 源程序给?.谢谢
我在打凭证时老差2mmQ篏计误差只能打10个凭证?br />U的高度?08mm
我用的是FastReport
我的QQ?82057922
你能不能发一份票据打印的Delphi 源程序给?.谢谢
我在打凭证时老差2mmQ篏计误差只能打10个凭证?br />U的高度?08mm
我用的是FastReport
我的QQ?82057922
来自Q?/b>
zhangbo, 旉Q?/b>2005-12-31 11:12:06, IDQ?/b>3314753
请问 d_fan 怎么联系?br />我有很急的事要h?关于据打印)问题
你能不能发一份票据打印的Delphi 源程序给?.谢谢
我在打凭证时老差2mmQ篏计误差只能打10个凭证?br />U的高度?08mm
我用的是FastReport
我的QQ?82057922
yhqzbb2@sina.com
你能不能发一份票据打印的Delphi 源程序给?.谢谢
我在打凭证时老差2mmQ篏计误差只能打10个凭证?br />U的高度?08mm
我用的是FastReport
我的QQ?82057922
yhqzbb2@sina.com
]]>