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

Комментарии

• sunrise

  July 2009 отредактировано 02:12

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

  July 2009 отредактировано 02:12

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

  July 2009 отредактировано 02:12

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

  July 2009 отредактировано 02:12

  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

  July 2009 отредактировано 02:12

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