关于打印的问题？ ( 积分: 100 )

关于打印的问题？
一、如何知道计算机把一张票据打印完毕,然后写入数据库中？并不是用户按了〔打印〕按钮，也许用户取消了打印...或者断电...
二、fastreport当打印预览界面出现后，是否一定要用鼠标点击fastrwport预览界面上面的打印机图标才可以打印，有快捷键吗？可以自定义快捷键吗？还有〔close〕图标有快捷键吗？可以自定义快捷键吗？

关于打印的问题？
一、如何知道计算机把一张票据打印完毕,然后写入数据库中？并不是用户按了〔打印〕按钮，也许用户取消了打印...或者断电...
二、fastreport当打印预览界面出现后，是否一定要用鼠标点击fastrwport预览界面上面的打印机图标才可以打印，有快捷键吗？可以自定义快捷键吗？还有〔close〕图标有快捷键吗？可以自定义快捷键吗？

//根据打印标题查找当前未完成打印任务数
//你按打印后，隔一段时间判断任务数没了就说明已经打印完毕
function GetJobCount(stitle:string):integer;
const
InfoLevel = 1;
FirstJob = 0;
LastJob = 19;
var
Jobs: array [FirstJob..LastJob] of TJobInfo1;
PrinterHandle,BytesNeeded,NumJobs: Cardinal;
i:integer;
begin
result:=0;
if OpenPrinter(PChar(printer.Printers[printer.printerindex]),PrinterHandle,nil) then
begin
if EnumJobs(PrinterHandle,FirstJob,LastJob+1,InfoLevel,@Jobs,SizeOf(Jobs),BytesNeeded,NumJobs) then
for i:=0 to NumJobs-1do
if Jobs.pDocument=stitle then
inc(result);
ClosePrinter(PrinterHandle);
end;
end;

--------------------------------------------------------
推荐一个不错的控件包，对你一定有用：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2967266