Hola
Código Delphi
[-]
Procedure GeneraReporte;
Begin
with TqrPreview.Create(Application) do
try
with TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI')) do
try
...
finally
free;
end
Preview;
finally
free;
end;
end;
Llamado desde un boton:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
GeneraReporte;
end;
Saludos