|
perdona te pongo mas cosas:
- es Windows XP
-no tengo graficos ni parecido sino solo texto que obtendo de un query a un store procedure
te añado aqui el codigo con el que invoco al formulario que contine el quickreport:
procedure TFPrincipal.General1Click(Sender: TObject);
var
fparam:TFIntroParametros;
finforme:TFInformeIncentivos;
fini,ffin:TDateTime;
begin
fparam:=TFIntroParametros.crea_fecha(FPrincipal);
fparam.ShowModal;
if(fparam.obtener_seccion<>'-1')then
begin
fini:= fparam.obtener_inicio;
ffin:=fparam.obtener_fin;
finforme:=TFInformeIncentivos.crear(FPrincipal,fini,ffin);
finforme.QuickRep1.Page.Orientation:=poLandscape;
finforme.QuickRep1.Preview;
end;
end;
El TFIntroParametros.crea_fecha(FPrincipal) es un formulario que utilizo para pedir parametros que para este caso son la fecha inicio y la fecha fin. He de decir por si no lo comente que el preview si sale bien. Saludos
|