100分求关于修改打印任务名问题
这是我打印任务的一个例子，想给这个例子的打印任务名一个名称，有哪位高手知道怎么弄啊？

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var tf :TextFile;begin        assignfile(tf, 'LPT1');        rewrite(tf);        writeln(tf, #$1B + #$40+'How are you ！' );        CloseFile(tf);end;

[解决办法]
uses printers;

begin
printer.Title:='YourName';
printer.BeginDoc;
Printer.Canvas.TextOut(10,10,#$1B + #$40+'How are you !' );
printer.EndDoc;
end;
[解决办法]
打开Printer类的实现

实现打印的关键API是StartDoc
function StartDoc; external gdi32 name 'StartDocA';

调用形式
StartDoc(DC, DocInfo);
其中DC是一个整型数，代表打印机的设备ID
DocInfo是一个结构体，代表要送到打印机的内容
结构体中有一数据项
lpszDocName: PAnsiChar;
这个就是“打印文档”名，也就是打印任务的名称
[解决办法]

探讨

楼上能不能举个具体的例子，例如上面两个例子打印'How are you !'这个话