а как закрыть окно предварительного просмотра?

PriT

subj

Boris

Нажать на крестик в правом верхнем углу
А программно, кажись никак. Не знаю никаких методов, которыми можно это сделать.
И потом, почему его сам пользователь закрыть не может?

PriT

пользователь хочет чтоб само закрывалось
(у него в базе на foxpro именно так работает)

Boris

Ох, уж эти пользователи...
А чтобы выход из Windows происходил без нажатия на кнопку "Пуск"->"Завершение работы" пользователь не хочет?
Простой вариант: печать отчета без предварительного просмотра, т.е.

if frReport1.PrepareReport then
  frReport1.PrintPreparedReport('', 1);

bakh

Boris написал:

А чтобы выход из Windows происходил без нажатия на кнопку "Пуск"->"Завершение работы" пользователь не хочет?

Легко!..
Создаём ярлык на столе, в командной строке указываем: shutdown -f -s -t 1
Иконку - по вкусу!..

Boris

2 bakh:
Да, о том, что ярлык создать можно это я знаю, а вот, чтобы на него не нажимать - вот это круто! Подумал юзер: "хочу выключить комп" и выключился (в смысле, комп).

2 PriT:
Идея, создать собственный frPreview или дописать имеющийся, а именно обработчик события PrintBtnClick, описанный в модуле Fr_view.pas.
Добавить туда строку вида:

procedure TfrPreviewForm.PrintBtnClick(Sender: TObject);
var
  Pages: String;
  ind: Integer;
begin
...
...
...
frPreviewForm.Close;
end;

bakh

А ведь и действительно... Простенько и со вкусом...
Возьми "$(FastReport)\demos\reports\" и посмотри Unit3.pas (и dfm тоже)...
И на кнопку печати - выход из формы...

PriT

to Boris

написал:

обработчик события PrintBtnClick

после этого еще возникает диалог выбора принтера, и событие PrintReport возникает если там нажать ок, лучше бы как раз в этот момент закрывать preview....

ну в общем понятно, спасибо