Imprimir en QReport

[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