Распечатать Canvas

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

uses 
  Printers; 

procedure PrintText(Text: string); 
begin 
  with Printer do 
  begin 
    BeginDoc; 
    Canvas.TextOut(5, 50, Text); 
    EndDoc; 
  end; 
end;

Программа на языке Pascal использует модуль Printers для печати текста на канвасе принтера. Вот подробное описание каждого раздела:

uses: Эта строка импортирует необходимые модули для программы, в этом случае только модуль Printers.

procedure PrintText(Text: string): Процедура принимает параметр типа string, называемый Text, который представляет текст, который будет печататься на канвасе.

begin: Это начало блока кода процедуры PrintText.

with Printer do: Это начинается область видимости, где все последующие операции выполняются с объектом Printer. Ключевое слово do используется для указания действий в этой области видимости.

BeginDoc;: Эта строка начинает новый документ для печати.

Canvas.TextOut(5, 50, Text);: Это строка печатает текст,指定анный параметром Text, на координатах (5, 50) на канвасе. Координаты (5, 50) указывают позицию, где будет печататься текст, с первого значения горизонтальной координаты и второго значения вертикальной координаты.

EndDoc;: Эта строка заканчивает документ для печати.

Наконец, end; закрывает процедуру PrintText.

Цель этой программы - печатать конкретный текст на канвасе принтера в предопределенных координатах.

В статье рассматривается код на языке Delphi, который позволяет печатать текст на принтере с помощью процедуры PrintText и компонента Canvas.

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

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

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