关于发票打印，在线等待(100分)

  • 主题发起人 主题发起人 小小风
  • 开始时间 开始时间
小

小小风

Unregistered / Unconfirmed
GUEST, unregistred user!
在网上找了一个发票精确打印程序
将发票单张放进去可以，但是对于穿孔纸连续打印
每次总是连续出来3张发票，而且只打印了其中一张发票
是不是纸张的大小获得的不对？
大概3张发票的大小和A4差不多大
好像打印机默认它为A4了，我用的是EPSON LQ1600K III
源代码如下
unit mprint;
interface
uses Classes,DBTables,DB,DBCtrls,CELL50Lib_TLB,Graphics,Windows,Messages, SysUtils,
Variants, Controls, Forms,Dialogs, Menus ,StdCtrls,Printers;
//取得字符的高度
function CharHeight: Word;
function AvgCharWidth: Word;
function GetPhicalPaper: TPoint;
function PaperLogicSize: TPoint;
function HVLogincRatio: Extended;
function GetOffSetX: Integer;
function GetOffSetY: Integer;
function MmToInch(Length: Extended): Extended;
function InchToMm(Length: Extended): Extended;
function HPointsPerInch: Integer;
function VPointsPerInch: Integer;
function XPointToMm(Pos: Integer): Extended;
function YPointToMm(Pos: Integer): Extended;
procedure SetPaperHeight(Value:integer);
Procedure SetPaperWidth(Value:integer);
procedure PrintText(X, Y: Extended;
Txt: string;
ConfigFileName: string;
FontSize: Integer=12);

implementation

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

//取得字符的平均宽度
function AvgCharWidth: Word;
var
Metrics: TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle, Metrics);
Result := Metrics.tmAveCharWidth;
end;

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

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

//file://纸张水平对垂直方向的纵横比例
function HVLogincRatio: Extended;
var
AP: TPoint;
begin
Ap := PaperLogicSize;
Result := Ap.y/Ap.X;
end;

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

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

//file://毫米单位转换为英寸单位
function MmToInch(Length: Extended): Extended;
begin
Result := Length/25.4;
end;

//file://英寸单位转换为毫米单位
function InchToMm(Length: Extended): Extended;
begin
Result := Length*25.4;
end;

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

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

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

//file://纵向点单位转换为毫米单位
function YPointToMm(Pos: Integer): Extended;
begin
Result := Pos*25.4/VPointsPerInch;
end;

//file://设置纸张高度-单位：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://自定义纸张最小高度127mm
if Value < 127 then
Value := 127;
//file://自定义纸张最大高度432mm
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://设置纸张宽度：单位--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://自定义纸张最小宽度76mm
if Value < 76 then
Value := 76;
//file://自定义纸张最大宽度216mm
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://将毫米单位转换为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)处按指定配置文件信息和字体输出字符串
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://打开配置文件，读出横向和纵向偏移量
try
Fn := TStringList.Create;
FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
if FileExists(FileName) then
begin
Fn.LoadFromFile(FileName);
//file://横向偏移量
OffSetX := StrToInt(Fn.Values['X']);
//file://纵向偏移量
OffSetY := StrToInt(Fn.Values['Y']);
end
else
begin
//file://如果没有配置文件，则生成
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轴坐标
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;

end.
 
为什么不用打印控件呢?如ReportBuilder,应该可以实现你的要求.
去 www.51delphi.com 下载.
 
reportbuild用的不多，怎么实现精确打印
用pplabel或者ppDBedit，然后控制他们的top和left吗？
 
Delphi中票据凭证的精确打印

2001-11-09 08:51:25
一、概述
　　在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题]的关键。一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。那么，有没有简单有效而又灵活的方法实现上述功能呢？
　　二、基本思路
　　分析上述单据的特征，可以发现：此类打印输出的信息一般比较简短，不涉及到文字过长的折行处理，另外，其打印输出的位置相对固定。因此，我们可以通过用尺子以毫米为单位，测量好每个输出信息位置的横向和纵向坐标，作为信息输出的位置。但由于不同打印机在实际输出效果上，总是存在理论和实际位置的偏差，因此，要求程序具有一定的灵活性，供最终用户根据需要，进行必要的位置调整。因此，可设置一打印配置文件，用于存储横坐标和纵坐标的偏移量，用于用户进行位置校正，从而提供了一定的灵活性。
　　三、精确打印输出的程序实现
　　1． 在Delphi中新建一个名为mprint.pas的单元文件并编写如下程序，单元引用中加入Printers略：
　
//取得字符的高度
function CharHeight: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmHeight;
end;

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

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

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

file://纸张水平对垂直方向的纵横比例
function HVLogincRatio: Extended;
var
　AP: TPoint;
begin
　Ap := PaperLogicSize;
　Result := Ap.y/Ap.X;
end;

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

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

file://毫米单位转换为英寸单位
function MmToInch(Length: Extended): Extended;
begin
　Result := Length/25.4;
end;

file://英寸单位转换为毫米单位
function InchToMm(Length: Extended): Extended;
begin
　Result := Length*25.4;
end;

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

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

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

file://纵向点单位转换为毫米单位
function YPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/VPointsPerInch;
end;

file://设置纸张高度-单位：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://自定义纸张最小高度127mm
if Value < 127 then
Value := 127;
　file://自定义纸张最大高度432mm
　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://设置纸张宽度：单位--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://自定义纸张最小宽度76mm
if Value < 76 then
Value := 76;
　file://自定义纸张最大宽度216mm
　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://将毫米单位转换为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)处按指定配置文件信息和字体输出字符串
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://打开配置文件，读出横向和纵向偏移量
try
　Fn := TStringList.Create;
　FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
　if FileExists(FileName) then
　begin
　　Fn.LoadFromFile(FileName);
　　file://横向偏移量
　　OffSetX := StrToInt(Fn.Values['X']);
　　file://纵向偏移量
　　OffSetY := StrToInt(Fn.Values['Y']);
　end
else
begin
　file://如果没有配置文件，则生成
　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轴坐标
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． 使用举例
　　在主窗体中加入对mprint单元的引用，在一命令钮的OnClick事件中书写如下代码（用于在邮政汇款单上的相应方框内打印邮政编码843300）：
　
Printer.begin
Doc;
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;

　　观察结果，用尺子测量偏移量，在config.txt文件中修改X，Y的值即可。
　　其它，设置打印机和纸张类型从略。
　　四、结束语
　　笔者通过该方法，实现了邮政汇款单，储蓄凭证，客户信封等单据的精确打印，取得了较为满意的效果。该程序在Windows98，Delphi5下调试通过。


 
靠，找的是同样的程序
怎么解决我的问题啊？
 
TO 小小风：
“reportbuild用的不多，怎么实现精确打印
用pplabel或者ppDBedit，然后控制他们的top和left吗？”
当然可以，它的top和left可以精确到小数点后面第五位，
应该足够了吧！
 
这篇文章在网上看到过！！
我觉得 要具体问题具体分析，不能千篇一律！
 
reportbuild怎么获得纸张大小
 
程序是对的啊，看看打印机设置对不对？
 
用的是D5？我当时用D5怎么都不行，因为TQuickRep不能定制(custom)页大小，所以它始终用A4，就出现你说的情况，后来我下载一个补丁才解决
 
我用的是D6啊
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

D
关于票据打印,各位大大请看！！(50分)
回复
2
查看
247
dpzhou
D
D
怎么控制打印走纸？急问呀(50分)
回复
4
查看
254
bfun
B
B
高分求教自定义纸张的问题，急！(200分)
回复
9
查看
383
superFans
S
F
请大家帮忙，我有个问题：用Printer.canvas作为票证打印，不能自定义纸张大小，总是走纸，请问如何解决？(45分)
回复
12
查看
451
linwq
L
M
Delphi中票据凭证的精确打印(0分)
回复
1
查看
114
koyochen
K
后退
顶部