在unit frxPreviewPages裡:
{$IFDEF TRIAL}
with Printer.Canvas do
begin
// Font.Size := 12;
// Font.Color := clBlack;
// TextOut(0, 0, 'FastReport - Unregistered version'); //此為那個標題
end;
{$ENDIF}
//-------------------------------------
{$IFNDEF TRIAL}
for i := Count - 1 downto 0 do
{$ELSE}
for i := 4 downto 0 do //此為打印五頁的限制
{$ENDIF}
if not PrintPage(i) then
break;
end
else
{$IFNDEF TRIAL}
for i := 0 to Count - 1 do
{$ELSE}
for i := 0 to 4 do
{$ENDIF}
{$IFNDEF TRIAL}
for i := 0 to Count - 1 do
{$ELSE}
for i := 0 to 4 do
{$ENDIF}