Как определить, выходит ли отчет за границы печати

Комментарии

• -=Den=-

  June 2010 отредактировано 21:18

  Использовать стандартные типы бумаги для данного принтера, либо "запрашивать информацию о принтере и вычислять".
• vixen

  June 2010 отредактировано 21:18

  ай да ответ! в лучших традициях "кнопка hold - ваш лучший друг".
  нет чтобы вывести пунктиром непечатную физическую границу для пары данный принтер/данная бумага - там пару строк кода.
  да ну, зачем - проблемы пользователей - это проблемы пользователей.
  
  
• -=Den=-

  June 2010 отредактировано 21:18

  А что вам мешает выбрать в дизайнере принтер и использовать доступные размеры для этого принтера ?
• vixen

  June 2010 отредактировано 21:18

  мне мешает неизвестность модели принтера у пользователя. а вам что мешает?
• kain

  June 2010 отредактировано June 2010

  vixen написал: »

  мне мешает неизвестность модели принтера у пользователя. а вам что мешает?

  
  Это как раз не должно мешать...
  Т.е. метод должен быть универсальным...
  Меня интересует алгоритм...
  По поводу выбора принтера и пунктирной границы... печать идет мимо дизайнера, кнопку нажал и идет печать на принтер по-умолчанию, а при выходе за границы - предупреждение, как в Word
• -=Den=-

  June 2010 отредактировано June 2010

  Для проверки перед печатью, можно сделать так:
  

  uses ..., frxPrinter, WinSpool;
  
  ...
  ...
  
  procedure OnProgressStart(Sender: TfrxReport;
    ProgressType: TfrxProgressType; Progress: Integer);
  var
    MaxExtent: Cardinal;
    PaperHeight, PaperWidth: Integer;
  begin
    if ProgressType = ptPrinting then
    begin
      MaxExtent := DeviceCapabilities(PChar(frxPrinters.Printer.Name), PChar(frxPrinters.Printer.Port), DC_MAXEXTENT, 0, 0);
      PaperHeight := MaxExtent shr 16;
      PaperWidth := SmallInt(MaxExtent);
      if (TfrxReportPage(frxReport.Pages[1]).PaperWidth * 10 > PaperWidth) or
        (TfrxReportPage(frxReport.Pages[1]).PaperHeight * 10 > PaperHeight) then
      begin
          frxReport.Terminated := True;
          ShowMessage('Отчет выходит за границы печати');
      end;
    end;
  end;
  
• kain

  June 2010 отредактировано 21:18

  спасибо попробую!