Fórum Como visualizar a página seguinte através do QRPreview #263555

Boa Noite a todos...
Eu consegui utilzar o “QRPreview1” colocando os meus próprios botões. Sendo que através do QuickReport Padrão(sem QRPreview) consigo ver as páginas seguintes, e no QuickReport através do (QRPreview) não consigo ver as páginas seguintes...
Coloquei um DBNavigator e nada...


//Etapa um...
////Aprovar
if _Form4 = nil then
begin
_Form4:= T_Form4.create(self);
_Form4.quickrep1.preview;
end;

//////////////////////Código da etapa um...
procedure T_Form4.QuickRep1Preview(Sender: TObject);
begin
_Form5:= T_Form5.create(self);
_Form5.QRPreview1.QRPrinter:= QuickRep1.QRPrinter;
_Form5.Show;
end;

procedure T_Form4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
_Form4:= nil;
Action:= Cafree;
end;

end.
//////////////////////

Etapa dois...
Código da Etapa Dois...
procedure T_Form5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
_Form5:= nil;
Action:= cafree;
_Form4:= nil;
//;; _Form4.Action:= cafree;

end;

procedure T_Form5.BitBtn1Click(Sender: TObject);
begin
QRPreview1.zoom:= QRPreview1.zoom+10;
label1.caption:= ´Zoom´+inttostr(QRPreview1.zoom)+´¬´;
end;

procedure T_Form5.BitBtn2Click(Sender: TObject);
begin
QRPreview1.zoom:= QRPreview1.zoom-10;
label1.caption:= ´Zoom´+inttostr(QRPreview1.zoom)+´¬´;
end;

procedure T_Form5.BitBtn4Click(Sender: TObject);
begin
QRPreview1.PageNumber:= 1;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);
end;

procedure T_Form5.BitBtn6Click(Sender: TObject);
begin
QRPreview1.PageNumber:= -1;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);
end;

procedure T_Form5.BitBtn5Click(Sender: TObject);
begin
QRPreview1.PageNumber:= +1;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);
end;

procedure T_Form5.BitBtn3Click(Sender: TObject);
begin
//label2.caption:= ´Página´;
QRPreview1.OnPageAvailable(Label2,QRPreview1.PageNumber);
end;

procedure T_Form5.BitBtn8Click(Sender: TObject);
begin
PrinterSetupDialog1.execute;
end;

procedure T_Form5.BitBtn10Click(Sender: TObject);
begin
if PrintDialog1.execute then
begin
_form4.Quickrep1.PrinterSettings.Copies:= PrintDialog1.Copies;
_Form4.QuickRep1.Print;
end;
end;

procedure T_Form5.BitBtn7Click(Sender: TObject);
begin
_Form5.close;
end;

end.