Imprimir en QReport

[__cadetill]

Empezado por marcoszorrilla

Acabo de comprobar que si ocurre, haces una vista previa incluso con un programa finalizado haces doble clic en el icono impresora y te salta un error

Hacía mucho que no usaba el Preview del QR, pero es que me ha picado la curiosidad y he querido hacer la prueba.

Delphi 6 Ent. + QR 3.0.9 + W2k

y ninguna de las impresoras (la de configuración y la de impresión) me hace saltar ningún error

Cómo lo has logrado Marcos??

PD: no obstante, recomiendo personalizar el Previsualizador del QR a uno propio, se puede controlar mucho mejor

[marcoszorrilla]

Pues mira un programa para control de cursos que casualmente estoy utilizando ahora, por lo que no me puedo extender, hago vista previa doble clic sobre la impresora y me lanza el famoso "Access violation".

Un Saludo.

[__cadetill]

pues sí, Marcos, es que yo sólo lo probaba con un simple clic, no con un doble clic.

El doble clic hace fallar tb a mi previsualizador

No se como lo hará el Preview del QR, pero en el mio hace lo siguiente

Código Delphi [-]
procedure TPrevi.ImprimirExecute(Sender: TObject);
begin
    Preview.QRPrinter.Print;
end;

Bueno, hacía, porqué lo que cambiado por esto

Código Delphi [-]
procedure TPrevi.ImprimirExecute(Sender: TObject);
  procedure HabilitaBotones(Estado: boolean);
  var
    i: integer;
  begin
    for i := 0 to ComponentCount - 1 do
      if Components[i] is TSpeedButton then
        TSpeedButton(Components[i]).Enabled := Estado;
    Application.ProcessMessages;
  end;
begin
  HabilitaBotones(false);
  try
    Preview.QRPrinter.Print;
  finally
    HabilitaBotones(true);
  end;
end;

El problema: Que el método Print no hace que el programa "se pare" en esa linea y vuelve a desbloquear los controles

Miraré a ver como se puede controlar el tema

[jachguate]

Seguramente print se ejecuta en otro hilo.

La printer no tiene alguna propiedad printing o algo similar??

con esto fácilmente se podria hacer algo como:

Código Delphi [-]
  if not Preview.qrPrinter.printing Then  // o lo que sea
    Preview.QRPrinter.Print;
  else
    ShowMessage('No se puede imprimir mientras se esta imprimiendo ');

Hasta luego.

[__cadetill]

Hola

He investigado por la linea que indicaba Juan Antonio pero claro, tan fácil no podía ser

Entonces he probado con la propiedad Status de TQRPrinter que, según una documentación antigua que he encontrado por internet (QR para D1) una impresión pasaba por estos estados

Código Delphi [-]
TQRPrinterStatus = (mpReady, mpBusy, mpFinished, mpPrinting, mpPreviewing);

Veo que en aquel entonces tenía el estado mpPrinting, y pienso, "de coña, un bucle mientras esté en este estado y listo!!!". Pues no, tampoco, lo señores de QuSoft tenían que quitar este estado. De hecho, almenos desde la versión que biene en Delphi 3, sólo quedan 3 de los 5 estados (encontré unos fuentes antiguos de la versión de D3)

Código Delphi [-]
TQRPrinterStatus = (mpReady, mpBusy, mpFinished);

Por lo que sólo veo una solución y es "apoderarme" del evento AfterPrint del Report y lanzar el mio propio para volver a habilitar los botones. Total que hago lo siguiente

Código Delphi [-]
....
    property AfterPrt: TQRAfterPrintEvent read FAfterPrt write FAfterPrt;
.....

procedure TPrevi.ImprimirExecute(Sender: TObject);
begin
  HabilitaBotones(false);
  if Assigned(Preview.QRPrinter.AfterPrint) then
    AfterPrt := Preview.QRPrinter.AfterPrint;
  Preview.QRPrinter.AfterPrint := AfterPrintReport;;

  Preview.QRPrinter.Print;
end;

Es decir, miro si estaba asignado el evento para lanzarlo despues del mio y al evento le asigno mi procedure. Pero, el problema es que no me captura mi procedure y sigue lanzando el suyo (el del componente TQuickReport)

No se por donde falla la lógica, pero debería de funcionar, no? O estoy muy espesito ya?

Ala, un saludo

[delphi.com.ar]

Muchas veces deshabilitando botones no funciona como "anti-rebote", pues si lo que hace dentro del botón es un proceso que no devuelve el control al sistema (Application.ProcessMessages), recien cuando termine este proceso se ejecutará el otro click por lo que tendras muchas impresiones (A la larga nunca sabrás si es lo que quizo el usuario)
Como prueba básica lo manejaría con una bandera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
{$J+}
const
  bPrinting: Boolean = False;
begin
  if not bPrinting then
    try
      bPrinting := True;
      QuickReport.Print;
    finally
      Application.ProcessMessages; // Para que entren los mensajes pendientes
      bPrinting := False;
    end;
{$J-}
end;

Saludos!

[jachguate]

es que al parecer print inicia la impresión en otro hilo... y devuelve inmediatamente el control al hilo principal. Si aún está imprimiendo y se invoca nuevamente a print, entonces la aplicación casca!!

Pa'variar... quick report