用QUICKREPORT也不算麻烦呀我用的都是用QUICKREPORT
begin
if messagedlg('请将证放入打印机,然后按确定打印!',
mtconfirmation,[mbyes,mbno],0)=mryes then
begin
QRLabelForm.QuickRep1.Print;
end;
报表的数据源就为查询的数据源不算麻烦就这样用吧.
begin
if messagedlg('请将证放入打印机,然后按确定打印!',
mtconfirmation,[mbyes,mbno],0)=mryes then
begin
QRLabelForm.QuickRep1.Print;
end;
报表的数据源就为查询的数据源不算麻烦就这样用吧.
我要
[email protected]
你还是用QUICKREP
然后把报表form的dataset指向你的那个dbgird的table或query
uses unit*
我的E_mail是[email protected],发我一份好吗?
use Printersprinter.canvas.font.name:='宋体';
printer.canvas.font.size:=12;
printer.begindoc;
printer.canvas.textout(0,0,'text1');
printer.enddoc;
我没用过QR:)