Zoom to fit en QReports

[joeyjr]

Hola, me gustaría como previsualizar un QReport en Zoom to Fit por defecto, soy incapaz de encontrar la propiedad y método que lo haga.

Muchas gracias.

[ecfisa]

Hola joeyjr.

Fijate si te sirve del siguiente modo. Agrega un componente TQRPreview al formulario donde estes haciendo el reporte.

Y para la prueba, el siguiente código de ejemplo:

procedure TForm1.FormCreate(Sender: TObject);
begin
QRPreview1.Align:= alClient;
end;

procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
QRPreview1.QRPrinter:= QuickRep1.Printer;
QRPreview1.ZoomToFit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Preview
end;


Saludos :)

[joeyjr]

no me sale nada ..., no hay que mostrar el formulario o algo donde esta el quickreport?