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.

>>>点击查看FastReport的详细介绍、更新及资源

Tag标签：FastReport报表 使用技巧 

上一篇： .NET VCL报表控件选什么？

下一篇： FastReport使用技巧之加载并存储报表