报表制作技巧（一）

boymaster 2001-09-20 01:11:06

格式化整数输出
　　比较大的数字在输出时会显得不易阅读，在Delphi中显示带分节号的数字是相当简单的一件事，如下即可：xxxxx．caption：ΚFormatFloat（′＃′，524667500）。

当前打印机的分辨率

Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printerHandle,LOGPIXELSX))＋chr(13)＋′垂直分辨率：′＋inttostr(GetDeviceCaps(printerHandle,LOGPIXELSY)));结果就一目了然了。

将结果直接送到打印机

Delphi提供了两种打印方式：一是将结果输送到Form，再调用Form的print方法将结果输送到打印机，二是将结果直接输送到打印机。如果你采用第一种方式，则无论你怎样调整Form的PrintScal属性，打印出来的东西也不会让你满意。因此建议采用第二种方式。

报表制作技巧（二）
整理编辑：China ASP

尽量不要使用AssignPrn

尽管AssignPrn简化了文本打印操作，使输出到打印机像输出到文件一样简单。但简单带来的是一系列的不方便：你无法知道当前打印的行数，无法准确控制行距，无法灵活改变字体字形等等。还是用打印机的Canvas属性进行打印吧。

用打印机的点数做度量单位

如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的度量单位。如果采用固定的度量，不同分辨率的打印效果是不同的。举例来讲：printerCanvasrectangle(0,0,360,720)在360×360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形，但在600×600的惠普6L上只能打出06英寸宽、12英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：VarPointX,PointY:integer;PointX:=GetDeviceCaps(printerHandle,LOGPIXELSX);PointY:=GetDeviceCaps(printerHandle,LOGPIXELSX);printerCanvasrectangle(0,0,PointX＊1,PointY＊2)这样，无论你使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形。

添加打印程序单元

尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元，但打印程序单元(Printers)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。

报表制作技巧（三）
整理编辑：China ASP

任意打印

　　有时我们要打印任意排列的表或往已经印好的登记表上对号入座写上数据时，可以新建一个窗体（假设为Form1），再把Form1的BorderStyle设为bsNone、AutoScroll设为True，接下来再创建一个新窗体（假设为Form2），再建个按钮Button1，编写代码：
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Width :=900;
Form1.Height :=800;
Form1.Print;
end;
　　接下来你在Form1上对应的位置写上数据，运行后按Button1就会一五一十的打印下来了。

打印机的分辨率问题？
Printer Resolution ?
问:
I want to know, wich way I have to program, so every print is equal. No
matter what resolution
of the printer (300 or 600 dpi).
Since now I program: TextOut(DC, 150, 150...) on a 300 dpi printer. But on
600 dpi, everything
looks a bit strange, (small).

What Objects can I use to print corectly??
答:
I get the printer resolution (and unprintable are if desired) and
then specify coordinates using decimal inches * resulution e.g.

x = trunc(1.5 * ResX) at 300 dpi will begin at 360 * 1.5 or 540 pixels.

Get Resolution and unprintable
ResX := GetDeviceCaps(ACanvas.Handle,LOGPIXELSX);
ResY := GetDeviceCaps(ACanvas.Handle,LOGPIXELSY);
pOffsetX := GetDeviceCaps(ACanvas.Handle,PHYSICALOFFSETX);
pOffsetY := GetDeviceCaps(ACanvas.Handle,PHYSICALOFFSETY);

print something

Printer.Canvas.TextOut(trunc(1.5 * ResX)-pOffsetX,
trunc(2.5 * ResY)-pOffsetY,'Hello');

This is nice when prp元件上点出右键菜单，选Report Setting项，将弹出一个设置窗口，将
Margins项中的Number of columns项设为你想在一行中显示的记录数,然后你会发现。。。：）

在打印或打印预览前如何获取报表页数
整理编辑：China ASP

我们有时需要在打印前获取报表的打印页数, 比如我们需要在页眉或页脚中打印“共 xx 页第 xx 页”，那如何实现呢？ QuickRep生成Report之前，我们是无法得知报表页数的，而QuickReport是在打印或打印预览时才生成报表,换言之我们只有在打印或打印预览前先将报表生成一次才能获取打印页数.生成报表的方法是 Prepare。参考以下的例子:
...
var nPageCount:integer；
begin
　　{...}
　　 QuickRep1.Prepare；
　　 nPageCount:=QuickRep1.QRPrinter.PageCount；
　　 QuickRep1.QRPrinter.Free；
　　 QuickRep1.QRPrinter:=nil；
　　 {在此修改QuickRep1，实现在页眉或页脚中打印“共 xx 页第 xx 页” ... }
　　 QuickRep1.PreView；
　　 {...}
End；

...全文