Pascal 7 & Objects
Init
-----------------------------------------------------------------
constructor Init;
Создает экземпляр TPrinter, связанный с используемым по умолчанию принтером. Чтобы сменить принтер, TPrinter после иници- ализации объекта вызывает SetDevice. Вызов Setup также позволяет пользователю выбрать новое устройство в ходе диалога.
