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.:

...
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 !!! :)