Ver Mensaje Individual
  #1  
Antiguo 07-12-2012
Anonymus2009 Anonymus2009 is offline
Miembro
NULL
 
Registrado: dic 2012
Posts: 25
Reputación: 0
Anonymus2009 Va por buen camino
Imprimir todas las páginas con QuickReport

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.

Última edición por ecfisa fecha: 08-12-2012 a las 00:19:41. Razón: Etiquetas [DELPHI] [/DELPHI]
Responder Con Cita