这样吧:
if Application.MessageBox('打印','提醒您!!',MB_OKCANCEL+MB_IconInformation+MB_DefBUTTON1)
= IDOK then qreport1.QRPrinter.PrintSetup
else
......
end;
if Application.MessageBox('打印','提醒您!!',MB_OKCANCEL+MB_IconInformation+MB_DefBUTTON1)
= IDOK then qreport1.QRPrinter.PrintSetup
else
......
end;
showmessage('a')
else
showmessage('b');