Formulário QReport em 02 Páginas

Fiz um programa de Ficha Cadastral e o Formulário QReport tem que sair em duas páginas.
A Primeira deu tudo certo, mas a segunda não imprimee não visualiza.
Como faço?
Neste código tem a opção de visualizar clicando na Grid, e Botão de visualizar e imprimir direto para a impressora.

Segue o código fonte do projeto ´Relatório´

unit Unit7;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, DB, ADODB, Grids,
DBGrids;

type
TForm7 = class(TForm)
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Label1: TLabel;
lista: TDBGrid;
DBText1: TDBText;
BitBtn4: TBitBtn;
ADOTable1NOME: TWideStringField;
ADOTable1CPF: TWideStringField;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure listaDblClick(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure GroupBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form7: TForm7;

implementation

uses Rel_Itau;

{$R *.dfm}

procedure TForm7.BitBtn2Click(Sender: TObject);
begin
form7.Close;
end;

procedure TForm7.BitBtn1Click(Sender: TObject);
begin
if Form9.ADOQuery1.Active = true then
begin
Form9.ADOQuery1.Close;
end;
Form9.ADOQuery1.Parameters[0].Value := DBText1.Caption;
Form9.ADOQuery1.Open;
Form9.QuickRep1.Preview;
end;

procedure TForm7.FormActivate(Sender: TObject);
begin
ADOTable1.Open;
end;

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOTable1.Close;
end;

procedure TForm7.listaDblClick(Sender: TObject);
begin
if Form9.ADOQuery1.Active = true then
begin
Form9.ADOQuery1.Close;
end;
Form9.ADOQuery1.Parameters[0].Value := DBText1.Caption;
Form9.ADOQuery1.Open;
Form9.QuickRep1.Preview;
end;

procedure TForm7.BitBtn4Click(Sender: TObject);
begin
if Form9.ADOQuery1.Active = true then
begin
Form9.ADOQuery1.Close;
end;
Form9.ADOQuery1.Parameters[0].Value := DBText1.Caption;
Form9.ADOQuery1.Open;
Form9.QuickRep1.Print;
end;

procedure TForm7.GroupBox1Click(Sender: TObject);
begin

end;

end.