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

kain

Надеюсь грамотно задал вопрос...
Т.е. часто бывает, что в превью видно элементы, а реально не печатаются, понятно, из-за физических возможностей принтера...
Как отслеживать этот момент, может есть какая стандартная функция,
Или надо запрашивать информацию о принтере и вычислять?

-=Den=-

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

vixen

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

-=Den=-

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

vixen

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

kain

vixen написал: »

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

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

-=Den=-

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

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

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