При попытке создать объект класса TPrinter я получаю exception

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

При попытке создать объект класса TPrinter я получаю exception

В создании обьекта класса TPrinter с использованием TPrinter.Create нет необходимости, так как обьект класса TPrinter (называемый Printer) автоматически создается при использовании модуля Printers.

uses
  Printers;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Printer.BeginDoc;
  Printer.Canvas.TextOut(100, 100, 
    'Delphi World is the biggest source code collection!');
  Printer.EndDoc;
end;