Как узнать минимальные поля для принтера

Delphi , ОС и Железо , Принтеры и Печать

Автор: http://www.swissdelphicenter.ch

uses
  Printers;

type
  TMargins = record
    Left,
      Top,
      Right,
      Bottom: Double
  end;

procedure GetPrinterMargins(var Margins: TMargins);
var
  PixelsPerInch: TPoint;
  PhysPageSize: TPoint;
  OffsetStart: TPoint;
  PageRes: TPoint;
begin
  PixelsPerInch.y := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
  PixelsPerInch.x := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
  Escape(Printer.Handle, GETPHYSPAGESIZE, 0, nil, @PhysPageSize);
  Escape(Printer.Handle, GETPRINTINGOFFSET, 0, nil, @OffsetStart);
  PageRes.y := GetDeviceCaps(Printer.Handle, VERTRES);
  PageRes.x := GetDeviceCaps(Printer.Handle, HORZRES);
  // Top Margin
  Margins.Top := OffsetStart.y / PixelsPerInch.y;
  // Left Margin
  Margins.Left := OffsetStart.x / PixelsPerInch.x;
  // Bottom Margin
  Margins.Bottom := ((PhysPageSize.y - PageRes.y) / PixelsPerInch.y) -
    (OffsetStart.y / PixelsPerInch.y);
  // Right Margin
  Margins.Right := ((PhysPageSize.x - PageRes.x) / PixelsPerInch.x) -
    (OffsetStart.x / PixelsPerInch.x);
end;

function InchToCm(Pixel: Single): Single;
// Convert inch to Centimeter
begin
  Result := Pixel * 2.54
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Margins: TMargins;
begin
  GetPrinterMargins(Margins);
  ShowMessage(Format('Margins: (Left: %1.3f, Top: %1.3f, Right: %1.3f, Bottom: %1.3f)',
    [InchToCm(Margins.Left),
    InchToCm(Margins.Top),
      InchToCm(Margins.Right),
      InchToCm(Margins.Bottom)]));
end;

Переведенный текст:

Код - это программный проект Delphi, который получает минимальные отступы для принтера и отображает их в сантиметрах. Вот шаг за шагом, как работает код:

1. Процедура GetPrinterMargins принимает переменную Margins типа TMargins, которая - это запись, содержащая четыре поля: Left, Top, Right и Bottom. Каждое поле представляет собой отступ в дюймах.
2. Внутри GetPrinterMargins программа использует несколько функций из Windows API для получения информации о принтере:
   • GetDeviceCaps получает пиксели на дюйм (PPI) для осей x и y.
   • Escape отправляет эскейп-секвенцию принтеру, чтобы получить физический размер страницы (GETPHYSPAGESIZE) и смещение печати (GETPRINTINGOFFSET).
   • GetDeviceCaps снова используется для получения вертикальной и горизонтальной разрешающей способности принтера (VERTRES и HORZRES, соответственно).
3. Отступы рассчитываются на основе этих значений:
   • Top Margin: смещение от верхней кромки бумаги до первого печатного поля.
   • Left Margin: смещение от левой кромки бумаги до первого печатного поля.
   • Bottom Margin: расстояние между последним печатным рядом и нижней кромкой бумаги.
   • Right Margin: расстояние между последним печатным рядом и правой кромкой бумаги.
4. Функция InchToCm используется для преобразования отступов из дюймов в сантиметры, умножая их на 2,54 (поскольку в дюйме содержится 2,54 сантиметра).
5. В процедуре Button1Click вызывается процедура GetPrinterMargins, чтобы получить отступы для принтера. Затем значения отображаются в сообщении с помощью функции ShowMessage.

Чтобы использовать этот код, вам нужно добавить его в проект Delphi, содержащий кнопку, названную Button1. Когда вы кликнете на кнопку, программа отобразит минимальные отступы для выбранного принтера.

Альтернативное решение - если вы ищете более компактный способ расчета отступов, можно использовать свойство Printer.Margins, доступное в Delphi 2009 и поздних версиях. Это свойство возвращает объект TMargins, содержащий левый, верхний, правый и нижний отступы в пикселях.

Вот пример использования этого свойства:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('Margins: (%f, %f, %f, %f)', [Printer.Margins.Left / Printer.PPI.x * 2.54,
                                                         Printer.Margins.Top / Printer.PPI.y * 2.54,
                                                         Printer.Margins.Right / Printer.PPI.x * 2.54,
                                                         Printer.Margins.Bottom / Printer.PPI.y * 2.54]));
end;

Обратите внимание, что это подход assumes, что у вас есть объект Printer, объявленный и инициализированный в вашем коде, что не является случае в оригинальном примере.

Статья описывает способ получения минимальных полей для принтера с помощью функции GetPrinterMargins и конвертации из пикселей в сантиметры.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Принтеры и Печать ::