frxPreview
Delphi 7
FastReport Professional Edition version 3.03
Создаю главную форму. На нее кидаю TButton, TTable, TDataSource, TfrxDBDataset, TfrxReport - Form1.
Создаю динамическое окно с TfrxPreview, TToolButton и TfrxXLSExport - Form2
На Form1:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
try
frxReport1.LoadFromFile('1.fr3');
frxReport1.Preview := Form2.frxPreview1;
frxReport1.ShowReport();
Form2.ShowModal;
frxReport1.Preview := Nil;
finally
Form2.Free;
end;
end;
На Form2:
procedure TForm2.ToolButton3Click(Sender: TObject);
begin
frxPreview1.Export(frxXLSExport1);
end;
Все нормально. Экспорт произошел.
Закрываем окно и открываем его снова. Все. Серый Preview и ничего более. Никакие танцы с бубном не заставят его показать отчет.
То же самое и при frxPreview1.Print;
FastReport Professional Edition version 3.03
Создаю главную форму. На нее кидаю TButton, TTable, TDataSource, TfrxDBDataset, TfrxReport - Form1.
Создаю динамическое окно с TfrxPreview, TToolButton и TfrxXLSExport - Form2
На Form1:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
try
frxReport1.LoadFromFile('1.fr3');
frxReport1.Preview := Form2.frxPreview1;
frxReport1.ShowReport();
Form2.ShowModal;
frxReport1.Preview := Nil;
finally
Form2.Free;
end;
end;
На Form2:
procedure TForm2.ToolButton3Click(Sender: TObject);
begin
frxPreview1.Export(frxXLSExport1);
end;
Все нормально. Экспорт произошел.
Закрываем окно и открываем его снова. Все. Серый Preview и ничего более. Никакие танцы с бубном не заставят его показать отчет.
То же самое и при frxPreview1.Print;
Комментарии
Совсем разум потерял. Действительно, я же меняю текущий каталог.
Спасибо :-)