Двусторонняя печать

dallan

Необходимо перед печатью второй страницы послать запрос "Переверните страницу". Как это сделать?
Пробовала в свойстве страницы OnBiforePrint выдать сообщение. Но оно все равно выдается вначале формирования отчета.
Подскажите.
Спасибо.

sunrise

Никак.
Когда документ уходит на принтер, он уже в его памяти. "Внешними" событиями Fastreport-а не поймать, когда какая страница печатается.
Если поковырять исходники, можно найти процедуру, в которой страницы в цикле безвозвратно уходят в память принтера.

Pablo

1. Посылаем команду на печать первой страницы
2. модальное окно с запросом на печать второй страницы "Переверните лист"
3. Посылаем команду на печать второй страницы
и т.д.

dallan

Простите мою темность. А какой командой послать команду на печать первой страницы?

Pablo

if MessageDlg('Печатать лицевую сторону?',mtCustom,[mbYes,mbNo],0)=mrYes then
begin
fmfReport.Report.PrintOptions.PageNumbers:='1';
fmfReport.Report.PrintOptions.ShowDialog:=False;
fmfReport.Report.Print;
fmfReport.Report.PrintOptions.PageNumbers:='';
end;
if MessageDlg('Печатать оборотную сторону?',mtCustom,[mbYes,mbNo],0)=mrYes then
begin
fmfReport.Report.PrintOptions.PageNumbers:='2';
fmfReport.Report.PrintOptions.ShowDialog:=False;
fmfReport.Report.Print;
fmfReport.Report.PrintOptions.PageNumbers:='';
end;

dallan

Спасибо, все получилось