Problema -> raise EPrinter.Create('No printers defined!');

[tiagofelipebones]

Olá Galera!
Estou com o segguinte problema:
declarei a unit Printers na clausula Uses e estou fazendo o seguinte teste:

procedure TForm.Button1Click(Sender: TObject);
  begin
   Mensagem('Altura: '+IntToStr(Printer.PageHeight)+#13+#10+'Largura: '+IntToStr(Printer.PageWidth));
    Printer.BeginDoc;
    Printer.Canvas.TextOut(0,0,'Teste');
    Printer.EndDoc;
end;

Ao executar o programa gera o erro  que não foi encontrada impressora:

No arquivo printers.pas na linha 689. raise
EPrinter.Create('No printers defined!');

Alguma sugestão ? Desde já agradeço!

[Mike.Cornflake]

Perhaps?  http://forum.lazarus.freepascal.org/index.php/topic,1273.msg5484.html#msg5484  It's from 2005 though :-(