quickrep如何打印需求的页码？ (100分)

需要指定页码，比如从4开始，以后按照页数依次+1，请问怎么办到?

qreport1.newpage;four times

是像这样吗？
quickReport2.NewPage;
QuickReport2.Preview;
可是，提示说不行，
Source file not found:qrprntr.pas
是什么意思？

我试着加入一个QRSysData设置data：=qrsPageNumber
quickReport2.PrinterSettings.FirstPage:=4;
可是还是不行，为何？

qrsPageNumber是可以的

怎么可以，能说详细点吗？
我现在QRSysData设置data：=qrsPageNumber
QRSysData.text:='4--'
可是还是不行，打2页出来页码是“4--1”“4--2”

QRSysData设置data：=qrsPageNumber
QRSysData.text:='4--'//不要这样，你可以在此之前加一个QLABEL

journer你说的是QLABEL接受QRSysData的值？
能详细点教教我吗？
QuickReport2.QRLabel2.Caption:=quickReport2.QRSysData1.Text;
好像不行

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, ExtCtrls;
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure QRLabel1Print(sender: TObject;
var Value: String);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRLabel1.Caption:='3';
end;

procedure TForm1.QRLabel1Print(sender: TObject;
var Value: String);
begin
Value:=inttostr(strtoint(Value)+1);
TQRLabel(sender).Caption:=Value;
end;

end.

接受答案了.