如何用delphi实现套打报表功能?(100分)

  • 主题发起人 主题发起人 wilsonyun
  • 开始时间 开始时间
W

wilsonyun

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用delphi实现套打报表功能? 用什么报表控件最好?
 
report machine直接支持
 
那里有例子!
 
www.pcjingning.com
 
好像登不上去哦
 
http://jngs.3322.org
 
惨,刚才找过了,以前调通的前辈的套打通用单元离职时没带出来,
要不.....要是不急的话,调通了,晚上给你贴出来!
 
这个问题我要100分,通用的套打单元嘛,呵呵:
代码如下:
unit UN_TDprint;

interface
uses
Printers,Windows, Messages, SysUtils, Variants, Classes, Graphics, Dialogs, Controls,forms;
//取得字符的高度
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;
//设置纸张高度-单位:mm
procedure SetPaperHeight(Value:integer);
//设置纸张宽度:单位--mm
Procedure SetPaperWidth(Value:integer);
//在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串
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
//PageSize.X/;
纸张物理宽度-单位:点
//PageSize.Y/;
纸张物理高度-单位:点
Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
Result := PageSize;
end;

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

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

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

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

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

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

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

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

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

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

//设置纸张高度-单位: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
//自定义纸张最小高度127mm
if Value < 127 then
Value := 127;
//自定义纸张最大高度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;

//设置纸张宽度:单位--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
//自定义纸张最小宽度76mm
if Value < 76 then
Value := 76;
//自定义纸张最大宽度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;
pDMode^.dmPaperWidth := Value * 10;
//将毫米单位转换为0.1mm单位
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL;
GlobalUnlock(hDMode);
end;
end;
Printer.PrinterIndex := Printer.PrinterIndex;
end;

//在 (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
//打开配置文件,读出横向和纵向偏移量
try
Fn := TStringList.Create;
FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
if FileExists(FileName) then
begin
Fn.LoadFromFile(FileName);
OffSetX := StrToInt(Fn.Values['X']);
//横向偏移量
OffSetY := StrToInt(Fn.Values['Y']);
//纵向偏移量
end
else
begin
//如果没有配置文件,则生成
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;
//因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
Px := Px + 2 * AvgCharWidth;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := FontSize;
//Printer.Canvas.Font.Color := clGreen;
Printer.Canvas.TextOut(Px, Py, Txt);
end;
end.

应用: 在你要套打的单元里uses这个单元:UN_TDprint,
然后这样:
Printer.begin
Doc;
PrintText(16, 14, '8', 'config.txt');
PrintText(26, 14, '4', 'config.txt');
Printer.EndDoc;
  观察结果,用尺子测量偏移量,在config.txt文件中修改X,Y的值即可。
  
 
楼上的朋友,你的单元里面很多函数都没有用到的,那些函数干什么用?我去掉那些没用到的函数,也是可以打印出来的。
 
呵呵,是的,很多函数都没有用到,
但是如果你要有更多的控制的话,上面的函数还是有用的!
 
Py := Py - GetOffSetY;
//因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
Px := Px + 2 * AvgCharWidth;
请问字符的平均宽度是什么意思??为什么横向的像素数要加上2倍的平均宽度,纵向的像素数要减去纵向的偏移量??
 
后退
顶部