Problemas com preview personalizado

Criei um preview personalizado para um projeto, porem estou com problemas na hora de imprimir o relatorio.

Tenho na aplicação um Quickrep1. Nele eu vou criando alguns componentes a medida em que o usuario solicita.

No onPreview do QuickRep1 coloquei:

Application.CreateForm(Tfrm_Preview, frm_Preview);
frm_Preview.QrPreview1.qrPrinter := TqrPrinter(Sender);
frm_Preview.Show;

no onActivate do frm_Preview coloquei

QRPreview1.QrPrinter := frm_Principal.QuickRep1.Printer;

e no botao pra fechar o frm_Preview coloquei:

frm_Preview.Release;

no botao PrinterSetup coloquei:

qrPreview1.qrPrinter.PrintSetup;

no botao Print coloquei:

qrPreview1.qrPrinter.Print;


O problema é que não imprime nada. O preview aparece normalmente, o printer setup tambem, mas imprimir que é bom ... O engraçado eh que fiz um outro projeto, bem parecido, porem nao igual, e funcionou normalmente, a unica diferença é que nesse usei o evento onNeedData do QuickRep1 para pegar os dados :

no on NeedData:

MoreData := not (IBQuery1.Eof);


e o BeforePrint da Banda pra gerar as paginas:

no OnBeforePrint: //Essa eh grande:

var
i, j: Integer;
Memo: TQRMemo;

begin

Nome_Memo := 0;

for i := 1 to StrToInt(edt_Colunas.Text)do
for j := 1 to StrToInt(edt_Linhas.Text)do
begin

Nome_Memo := Nome_Memo + 1;

Memo := TQRMemo(FindComponent(´Numeral´ + IntToStr(Nome_Memo)));
if not (Memo = nil) then
begin

with Memo.Lines do
begin

Clear;

if not (IBQuery1.Eof) then
begin
Add(IBQuery1.FieldByName(´NUMERAL´).AsString);
end;

end;

Numeral := TQRMemo(FindComponent(´Canhoto´ + IntToStr(Nome_Memo)));
if not (Numeral = nil) then
begin

with Numeral.Lines do
begin

Clear;

if not (IBQuery1.Eof) then
begin
Add(IBQuery1.FieldByName(´NUMERAL´).AsString);
end;

end;

end;

end;

IBQuery1.Next;

end;

end;



O que pode estar errado?

Obrigado