Imprimir todas las páginas con QuickReport

[Anonymus2009]

Hola
Tengo un pequeño problema al imprimir con QuickReport, si el reporte es mayor de una página sólo me imprime la primera, tengo que utilizar el Preview o el Printer Setup para seleccionar todas las páginas. Alguién prodría decirme en que me estoy equivocando.
el código es mas o menos así:

Código Delphi [-]
begin
  Application.CreateForm(TfqrAlbaran_ES, fqrAlbaran_es);
  with fqrAlbaran_ES do
  begin
    try
    fqrAlbaran_ES.Informe.prepare;
    npaginas:=fqrAlbaran_ES.Informe.QRPrinter.PageCount;
    QRLabel51.Caption:=IntToStr(npaginas);
    fqrALBARAN_ES.Informe.PrinterSettings.Copies:=strtoINT(cxMaskEdit1.Text);
    fqrALBARAN_ES.Informe.PrinterSetup;
    fqrALBARAN_ES.Informe.ShowProgress:=True;
    fqrALBARAN_ES.Informe.Print;
    finally
    fqrAlbaran_ES.Free;
    end;
  end;

No me salen muy bien esto escribir en este formato adecuado pero estoy intentándolo.
Gracias a todos y disculpad mi torpeza.