请大家举个只用Printers类实现打印的例子，举手之劳，50分送上！！ ( 积分: 50 )

只用Printers类的Canvas实现在A4纸上任意位置（X：Y可设置）的文字的打印
举例请包括以下三点内容：
1、打印内容不止一个，可能有多个文字信息，每个文字信息位置都可自己设置
2、是在标准A4的纸上操作
3、对关键步骤请注视一下
谢谢！！！

http://www.skycn.com/soft/21563.html

请别给我连接好吗？？
我想要单纯的、赤裸裸的源代码和思路
估计几句就能搞定吧

D5开发人员指南

uses Printers;
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.PrinterIndex := ComboBox1.ItemIndex;
Printer.begin
Doc;
Printer.Canvas.TextOut(1, 1, 'adfadsfadsf');
printer.EndDoc;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if Printer.Printers.Count > 0 then
begin
ComboBox1.Items := Printer.Printers;
ComboBox1.ItemIndex := 0;
end;

end;

接受答案了.