8 respuestas en este tema

[agag4]

Buen dia compañeros, tengo un problema con el Qreport y el QRCompositeReport, en mi aplicación hay una parte del programa donde manda imprimir 3 copias de 2 Reportes que estan integrados dentro de un QRCompositeReport, la forma de agregar estos 2 reportes al QRCompositeReport es la siguiente....

Dentro del evento onAddReports tengo lo siguiente:

delphi

  with QRCompositeReport.Reports do begin
    Add(qrReporte1);
    Add(qrReporte2);
  end;

La forma para imprimir los reportes es dentro de 1 ciclo, con el fin de que la 1era impresión salga la leyenda ORIGINAL y las otras 2 diga COPIA:

delphi

  ..
  // Asigna valores a etiquetas (qrLabel ) ejemplo qrLabel1.Caption := 'Cliente:'
  PreparaQRLabel;
  
  // Iniciamos Ciclo  
  for x := 1 to 2 do begin
 
     // Original
     if x = 1 then
        QRCompositeReport.PrinterSettings.Copies := 1 // Original
     else
        QRCompositeReport.PrinterSettings.Copies := 2; // Copias
 
    // Preparar Reporte para tomar el Num de páginas
    qrReporte1.Prepare;
  
    NPages := qrReporte1.QRPrinter.PageCount;   
  
    // Imprimimos 
    QRCompositeReport.Print;  
 
  end;

En ocasiones imprime muy bien las 3 impresiones, pero en otras no, marca el error que les señalo en la imagen adjunta a este tema, y cuando marca el error solo imprime la ORIGINAL, el error salta dentro de la función del QRPrinter:

delphi

function TCustomQuickRep.PrepareQRPrinter : boolean;
var
  aReceiver : TWinControl;
begin
  Result := Available;
  if Result then
  begin
    if assigned(FQRPrinter) then
      AReceiver := QRPrinter.Client  [b]<<- Aqui es donde marca el error[/b]
    else
      AReceiver := nil;
      // standard printer option
    QRPrinter := TQRPrinter.Create( self );
    QRPrinter.Client := AReceiver;
    QRPrinter.AfterPreview := PreviewFinished;
    QRPrinter.AfterPrint := PrintFinished;
  end;
end;

Archivos adjuntos

•  1973_2084395832de67247c46ac586d11c49eb4360595.jpg   22,05KB   8 descargas

[Fenareth]

No será que estas intentando usar tu objeto QRPrinter antes de crearlo ????
El error que muestras es común cuando se hacer referencia a un objeto no creado...
Saludox !

[agag4]

Asi es compañero, pero ese objeto me imagino que se llama sólo al llamar:

delphi

qrReporte1.Prepare;

Y qrReporte1 ya esta creado, lo tengo en el mismo formulario donde se llama.

[eduarcol]

delphi

function TCustomQuickRep.PrepareQRPrinter : boolean;
var
  aReceiver : TWinControl;
begin
  Result := Available;
  if Result then
  begin
    if assigned(FQRPrinter) then
      AReceiver := QRPrinter.Client  [b]<<- Aqui es donde marca el error[/b]
    else
      AReceiver := nil;
      // standard printer option
    QRPrinter := TQRPrinter.Create( self );
    QRPrinter.Client := AReceiver;
    QRPrinter.AfterPreview := PreviewFinished;
    QRPrinter.AfterPrint := PrintFinished;
  end;
end;

Si te fijas en ese codigo estas llamando al QrPrinter antes de crearlo, eso es lo que te quizo decir Fenareth.... prueba esta modificación

delphi

function TCustomQuickRep.PrepareQRPrinter : boolean;
var
  aReceiver : TWinControl;
begin
  Result := Available;
  if Result then
  begin
   QRPrinter := TQRPrinter.Create( self ); //Se crea el QRPrinter antes de utilizarlo
    if assigned(FQRPrinter) then
      AReceiver := QRPrinter.Client  [b]<<- Aqui es donde marca el error[/b]
    else
      AReceiver := nil;
      // standard printer option
    QRPrinter.Client := AReceiver;
    QRPrinter.AfterPreview := PreviewFinished;
    QRPrinter.AfterPrint := PrintFinished;
  end;
end;

[agag4]

Tienes toda la razon, lo raro es que esa parte del código es del componente del QuickReport, por lo que de seguro es un Bug detectado , gracias.... voy a probarlo.

[agag4]

Muchas Gracias eduarcol ya no me ha marcado el error después de arrelgar la función TCustomQuickRep.PrepareQRPrinter .

[eduarcol]

Me alegra te haya servido, voy a marcarlo como resuelto

[eduarcol]

analizando mejor la cosa me he dado cuenta que el error en la función fue por la omisión de una "F", ellos preguntan si el objeto esta asignado para poder trabajar con el, pero en lugar de trabajar con el preguntaron trabajan con otro cuya diferencia es una letra, asi que propongo que mejor dejes el codigo de esta forma:

delphi

function TCustomQuickRep.PrepareQRPrinter : boolean;
var
  aReceiver : TWinControl;
begin
  Result := Available;
  if Result then
  begin
    if assigned(FQRPrinter) then
      AReceiver := FQRPrinter.Client  [b]<<- Aqui es donde marca el error[/b]
    else
      AReceiver := nil;
      // standard printer option
    QRPrinter := TQRPrinter.Create( self );
    QRPrinter.Client := AReceiver;
    QRPrinter.AfterPreview := PreviewFinished;
    QRPrinter.AfterPrint := PrintFinished;
  end;
end;

Nota que ahora al AReceiver se le asigna el FQrPrinter en lugar del QrPrinter, sinceramente no se cual pueda ser la diferencia pero si te puedo asegurar que originalmente fue pensado asi.

Cualquier cosa avisas

[agag4]

ok, de acuerdo, lo voy a dejar asi, gracias....