100分求关于修改打印任务名问题

关于网友提出的“ 100分求关于修改打印任务名问题
”问题疑问，本网通过在网上对“ 100分求关于修改打印任务名问题
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： 100分求关于修改打印任务名问题
描述:

这是我打印任务的一个例子，想给这个例子的打印任务名一个名称，有哪位高手知道怎么弄啊？

procedure TForm1.Button1Click(Sender: TObject);

var tf :TextFile;

begin

        assignfile(tf, 'LPT1');

        rewrite(tf);

        writeln(tf, #$1B + #$40+'How are you ！' );

        CloseFile(tf);

end;

---

解决方案1:

引用 5 楼 jianxin882000 的回复:

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

不用举例了，上面都说的非常清楚了，设置printer.Title就行了，DocInfo中的lpszDocName就是取值Title 解决方案2:

打开Printer类的实现
实现打印的关键API是StartDoc
function StartDoc; external gdi32 name 'StartDocA';
调用形式
StartDoc(DC, DocInfo);
其中DC是一个整型数，代表打印机的设备ID
DocInfo是一个结构体，代表要送到打印机的内容
结构体中有一数据项
lpszDocName: PAnsiChar;
这个就是“打印文档”名，也就是打印任务的名称

解决方案3:

uses printers;
begin
  printer.Title:='YourName';
  printer.BeginDoc;
  Printer.Canvas.TextOut(10,10,#$1B + #$40+'How are you !' );
  printer.EndDoc;
end;

以上介绍了“ 100分求关于修改打印任务名问题”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2249496.html