Вернутся на главную

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


Примеры использования класса 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;





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