Imprimir en QReport

[__cadetill]

Esto...

Empezado por cadetill

... (lo acabo de probar)

sí

[delphi.com.ar]

A... eso era para mi!!
¿¿¿Quieren decir que Print es Asincrónico????
La verdad no lo creo!!

Si no es así tendría que funcionar, porque no se ejecutaría hasta que la bandera vuelva a su estado False

[__cadetill]

Esto... alvida mi mensaje anterior, que no había visto que has modificado el primero con el ProcessMessage

Por cierto, con él, funciona estupendamente, aunque no termino de enterder por qué? Si fueras tan amable de explicarmelo

[delphi.com.ar]

Uff.. me había asustado...
A ver si este ejemplo te sirve:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(DateTimeToStr(Now));
  Sleep(1000);
end;

Yo tengo el cuando el usuario hace varios clicks seguidos sobre ese botón, con la velocidad como para que sean interpretados como simples clicks, el hilo de ejecución ingresa en el método Button1Click y hasta que no sale de ahí no responderá a los mensajes del sistema operativo, como hizo mas de un click, los mensajes quedan encolados y se dispararán inmediatamente despues de que la aplicación responda a los mensajes de sistema operativo.

¿Fui claro?...o la compliqué

[delphi.com.ar]

Me olvidé de un detalle (otra vez), lo que logro con ese ProcessMessages es que la aplicación dispache todos los mensajes en cola, antes que la bandera vualva a valer False!
(Prueba Poniendo un BreakPoint en la primer línea del método y verás lo que sucede)

Saludos!

[__cadetill]

Pues me parece que lo dejo para mañana, hoy estoy ya muy espeso y no lo veo claro

No obstante, decir que, para aquesllos que quieran, en mi web ya tenéis una nueva versión del Previsualizador con este error corregido (para D5, D6 y D7)

Ala, buenas noches

[SnaKe]

Hola,

A mi se me ocurre otra opción para mi gusto más elegante. ¿ Por que cuando se le da a imprimir desde un preliminar personalizado en el click del botón preliminar no imprimir directamente en la impresora sino sacar el cuadro de diálogo de configuración de impresoras (donde se puede elegir impresora y la configuración de la misma) ? Al aparecer un cuadro de diálogo modal se garantiza que el usuario no pueda hacer doble click en el botón y además se permite al usuario por ejemplo elegir otra impresora.

Se que me direis que eso requiere de dos clicks para imprimir pero bueno, a mi no me parece trastorno. En el preview personalizado que tengo es como lo hago y me funciona bien (y por ahora nadie se ha quejado).

Os pongo el código del click del botón imprimir de mi preview personalizado para que lo probeis a ver que opinais.

Código Delphi [-]
procedure TFPreview.tbImprimirClick(Sender: TObject);
begin
  if QRPrinter.Master <> nil then begin
    with TCustomQuickRep(QRPrinter.Master) do begin
      PrinterSetup;
      if Tag = 0 then
        Print;
    end;
  end;
end;

En mi formulario de Preview Personalizado añado algo así:

Código Delphi [-]
.......
  private
    { Private declarations }
    FQRPrinter : TQRPrinter;
  public
    { Public declarations }
    constructor CreatePreview(AOwner : TComponent; aQRPrinter : TQRPrinter);
    property QRPrinter : TQRPrinter read FQRPrinter write FQRPrinter;
  end;

Y el constructor es así:

Código Delphi [-]
constructor TFPreview.CreatePreview(AOwner : TComponent; aQRPrinter : TQRPrinter);
begin
  inherited Create(AOwner);
  QRPrinter := aQRPrinter;
  QRPreview.QRPrinter := aQRPrinter;
  if (QRPrinter <> nil) and (QRPrinter.Title <> '') then Caption := QRPrinter.Title;
end;

Y el close del formulario sería:

Código Delphi [-]
procedure TFPreview.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  QRPrinter.ClosePreview(Self);
  Action := caFree;
end;

Espero vuestro comentarios...

Un saludo.

[__cadetill]

Efectivamente amigo Snake, lo he probado con mi Preview y también funciona correctamente mostrando el cuadro de diálogo de impresión.

Pero claro, con la solución anterior, de lo que se trataba esta precisamente de evitar mostrar dicho cuadro y hacer la impresión directa por la impresora predeterminada.

PD: empiezo a entender la solución de d.c.a, aunque aún no lo tengo demasiado claro.Seguiré dándole vueltas

[capo979]

Hola a todos!!!!

Quiero sacar el boton minimizar de los reportes qreport y si es posible también cambiar de idioma los botones que aparecen cuando se hace preview del reporte de qreport. He leido que hay un previsualizador realizado por cadetill pero la dirección que pasan no funciona. Alguien me puede ayudar con esto!!! o alguien me puede pasar un link para descargar ese previsualizador realizado por cadetill.

Muchas Gracias