Preview o Print ? en QReport

[ingel]

Buendia, tengo forma de saber cuando paso por el evento beforeprint si estoy en Preview o en Print ( porque pasa las dos veces , y me esta duplicando cosas ... asi que quisiera distinguir para hacerlo solo una vez..)
Gracias a todos.
sds

[ecfisa]

Hola.

Podes evaluar el valor de al propiedad QRPrinter.Destination en el evento BeforePrint, vgr.:

Código Delphi [-]
...
implementation

uses qrprntr;

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);
var
  qr: TQuickRep;
begin
  qr := TQuickRep(Sender);

  if qr.QRPrinter.Destination = qrdMetafile then
    ShowMessage('PREVIEW')
  else if qr.QRPrinter.Destination = qrdPrinter then
    ShowMessage('PRINT');
end;
...

Saludos

[ingel]

Con la ayuda que me diste pude solucionarlo !!!