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

2012-02-16

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

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 !'这个话

热点排行

.NET

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