在预览或打印前先调用PrintSerial即可。

12.如何在程序中指定打印机名称?
frxReport1.Report.PrintOptions.Printer := ‘打印机名称’;

13.如何使用打印机直接打印?
implementation
uses Printers;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.PrinterIndex := 0;{网络打印机也是要安装在你本地的操作系统中的，直接使用顺序

试试吧}
Printers.Printer.SetPrinter(’HP1020′,’HP1020′,’LPT1′,0);{打印机名字，驱动，端口等，

自查，我是用虚拟打印机测试的}

Printers.Printer.BeginDoc;
Printers.Printer.Canvas.TextOut(10,10,’打印这一行字’);
Printers.Printer.EndDoc;
end;

14.如何打印空白处？
在打印报表的Band处的OnBeforePrint事件中添加代码：
while FreeSpace > 20 do
ShowBand(Child1)

15.如何打印指定行数后换页？
在master band中OnBeforePrint事件中写代码：
var
vLineCount: integer;
begin
vLineCount := vLineCount + 1;
if vLineCount = 10 then
begin
vLineCount := 0;
NewPage;
end;
end;

16.fastreport中如何把数据显示为百分比
DisplayFormat属性，其中的Kind你设置成fkNumeric,FormatStr
[<frxDBDataset1."sjl">*100 #n%2.2f]%”。

17.FastReport如何打印表格式的空行？
var
PageLine: integer;       //在現在頁列印到第幾行
PageMaxRow: integer=15;  //設定每頁列數
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := <Line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
Engine.newpage;
child1.visible := False;
end;

//Footer1高度設為0
procedure Footer1OnBeforePrint(Sender: TfrxComponent);

var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
child1.visible := True;
while i < PageMaxRow do
begin
i := i + 1;
Engine.ShowBand(Child1);  //印空白表格
end;
child1.visible := False;
end;
begin
end.

========================================================================
早期版本

—————- 使用自定义函数 —————————————-

Q: 我怎样添加我的自定义函数?
A: 使用 TfrReport.OnUserFunction 事件. 这里有一个简单的例子:

procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2, p3: Variant; var val: Variant);
begin
if AnsiCompareText(’SUMTOSTR’, Name) = 0 then
val := My_Convertion_Routine(frParser.Calc(p1));
end;

然后，你就可以在报表（任何表达式或脚本）的任何地方使用 SumToStr 函数了。

Q: 但是它仅仅能工作在一个TfrReport组件中。可我想在任何地方（在所有的TfrReport组件中）

使用的我的自定义函数？
A: 使 OnUserFunction event 句柄作为所有组件的公用句柄。如果你不能做到这一点，你需要创

建函数库：

type
TMyFunctionLibrary = class(TfrFunctionLibrary)
public
constructor Create; override;
procedure DoFunction(Fno: Integer; p1, p2, p3: Variant;
var val: Variant); override;
end;

constructor TMyFunctionLibrary.Create;
begin
inherited Create;
with List do
begin
Add(’DATETOSTR’);
Add(’SUMTOSTR’);
end;
end;

procedure TMyFunctionLibrary.DoFunction(Fno: Integer; p1, p2, p3: Variant;
var val: Variant);
begin
val := 0;
case Fno of
0: val := My_DateConvertion_Routine(frParser.Calc(p1));
1: val := My_SumConvertion_Routine(frParser.Calc(p1));
end;
end;

要注册函数库，调用
frRegisterFunctionLibrary(TMyFunctionLibrary);
要卸载函数库，调用
frUnRegisterFunctionLibrary(TMyFunctionLibrary);

Q: 我怎样将我的函数添加到函数列表中 (用表达式生成器)?
A: 使用 frAddFunctionDesc 过程 (在FR_Class 单元中):