Примеры использования класса TPrinter

После того как мы кратко ознакомились со свойствами и ме­тодами класса TPrinter, давайте посмотрим на примеры исполь­зования этого класса.

Получение списка принтеров, доступных в системе

Ниже показано, как заполнить список (TListBox) информаци­ей о принтерах, доступных в системе. Это может быть полезно, если в системе доступно несколько принтеров, — пользователь может выбрать один из них.

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Sorted:= True;

ListBox1.Items:= Printer.Printers {Заполнить список информацией}

end;

Переключение режимов вывода информации

Ниже показано, как использовать свойство Orientation для пе­реключения режимов вывода информации на устройство печати.

procedure TForm1.PortraitClick(Sender: TObject);

begin

Printer.Orientation:= poPortrait;

(Вывод вертикально}

end;

procedure TForm1.LandscapeClick(Sender: TObject);

begin

Printer.Orientation:= poLandscape;

{Вывод горизонтально}

end;