怎样初始化Tprinter对象，让它开始工作？

Question

Uses Printers单元了吗？
Printer是和Application一样的东东，不用你自己初始化，直接用就可以了！

Answer 1

我加了啊，但老是报错！
uses Printers
……
tp : Tprinter;
…
…
…
…with tp do
  begin
    BeginDoc ;
    Canvas.TextOut(10,10,'aaaa');
  end;
运行到beginDoc就报错，如果不要，执行下句也报错

Answer 2

不用声明，直接用Printer 就行了
uses Printers
……
…
…
…
…with Printer do
  begin
    BeginDoc ;
    Canvas.TextOut(10,10,'aaaa');
  end;

Answer 3

Printers在调用它的BeginDoc方法时是不会打印的
要等把打印信息送到它的TCanvas对象
最后再调用Printers的EndDoc方法时才会开始打印！