这个过程如何实现？(100分)

通过QUERY选出一条记录，然后打印。打印成功后修改该记录某一列的标志位，不成功责提示
出错，并不修改标志位。请问如何实现？

是不是得检测打印机的状态？请高手帮忙。

有个Tprint类，看看源代码

请具体点好吗，我是个初学者。谢谢

判断打印是否成功？ 就算打印机运行正常 但打印纸位置不好甚至卡住了 而打印机有时
也会返回成功打印的信息 如果通过打印机可以测试好 那Windows打印机安装是 为何要
人工判断打印是否正常呢 再者 如果打印不正常 但程序返回正常 修改了某列 那企不是
又要再加其他处理 还是跟‘打印测试’学吧

向WINDOWS的“打印测试页”学习，在打印完成后，弹出询问FROM！

请详细点，我是初学者

procedure tform.buttonclick(sender:tobject);
var
f : boolean;//f=false时，quickrep1打印
sr : tmodalresult;
begin
quickrep1.Print;
f := false;
repeat
if checkbox1.Checked then
begin
form2.ShowModal;
if form2.ModalResult = mrno then
quickrep1.Print
else
begin
f := true;
if form2.ModalResult = mrok then
;
//标记;
end;
end
else
begin
sr := messagedlg('打印正确吗？', mtConfirmation, [mbyes, mbno, mbcancel], 0);
if sr = mrno then
quickrep1.Print
else
begin
f := true;
if sr = mrok then
//标记;
end;
end;
until f
end;
//checkbox1.caption := '用窗体。';

补充：
checkbox１的作用是选择是用自己做的form来作对话框还是用windows的message来做对话框。

比较简单，但我不会提供代码，因为我现在win98下，无法给你未经运行的代码。