maximizar y zom to with para mi quickreport

[ingabraham]

hola tengo un form y alli varios reportes,
quiero que al momento de abrir mi report me salga maximizado y con el zom to width.


tengo
quickreport 4.06 for delphi 7

[ecfisa]

with TfrmQRShow.Create(nil) do
try
QuickRep1.Width := Width;
QRPreview1.Align:= alClient;
QRPreview1.ZoomToWidth;
ShowModal;
finally
Free;
end;

[ingabraham]

asi visualizo:




Reportes.RFactura.PreviewModal;
Reportes.Free;
Refresh;

[ingabraham]

with TfrmQRShow.Create(nil) do
try
QuickRep1.Width := Width;
QRPreview1.Align:= alClient;
QRPreview1.ZoomToWidth;
ShowModal;
finally
Free;
end;


gracias, pero no entiendo que es
QRPreview1 y QRPreview1 , son dos qreport

[ecfisa]

Te adjunto un ejemplo para que puedas probarlo y revisarlo.

[xorc]

Te adjunto un ejemplo para que puedas probarlo y revisarlo.
No funciona el archivo zip, sale error al intentar abrirlo. POr favor explicar el codigo, no se que quiere decir TfrmQRShow y otras variables. Gracias.
Veo que es de hace muchos años este hilo pero a veces me ha salido una fecha inconsistente en los hilos, supongo que con intentar no se pierde nada :)

[ecfisa]

Hola xorc.

Intentá abrirlo o descargarlo con Mozilla Firefox. Varios miembros han tenido problemas al intentar abrir/descargar archivos con algunas versiones de IE.

En este caso pude realizar ambas acciones, tanto con Mozilla Firefox 12 como con Internet Explorer 9, es decir que los navegadores no me estan dando inconvenientes. Pero si aún continuas con dificultades, avisame y vemos la manera de enviártelo.

El código corresponde a la creación de un form y ajustes de valores de propiedades de componentes, sobre él, te comento el tipo de las variables usadas:

with TfrmQRShow.Create(nil) do // TfrmQRShow = class(TForm)
try
QuickRep1.Width := Width; // QuickRep1 : TQuickRep
QRPreview1.Align:= alClient; // QRPreview1: TQRPreview
QRPreview1.ZoomToWidth;
ShowModal; // (frmQRShow)
finally
Free;
end;


Un saludo.