Базовые операции с принтером

Ниже показан набор базовых операций, необходимых для вы­вода информации на устройство печати. Сначала вызывается метод BeginDoc. Затем с помощью метода TextOut принтерного контек­ста (Canvas) выводится информация, а ее непосредственная рас­печатка начинается после вызова метода EndDoc:

 

Begin

Printer.BeginDoc;

{/////////////////

{

Здесь происходит вывод информации на принтер, например, с помощью вызова Printer.Canvas.TextOut(X, Y, ' ');

}

/////////////////}

{Сообщить пользователю}

Label1.Caption := 'Printing page ' + IntTo8tr(Printer.PageNumber);

Printer.NewPage; {Новая страница}

Printer.EndDoc; {Начать печать}

End;

 

Ниже показано, как вывести на принтер графическое изображение:

 

Begin

Printer.BeginDoc; {Начнем вывод информации }

Printer.Canvas.Rectangle(10, 10, 200, 200);{Нарисуем прямоугольник }

Printer.EndDoc; {Начнем печать }

End;