qrmaker 打印生成二维码
最近在做使用打印机打印二维码的程序,代码如下:
Prntr = Printer();
Prntr->BeginDoc();
qr2->AutoRedraw = 1;
qr2->TextOrBinary = 0;
qr2->ModelNo = 2;
qr2->InputData = barid1;
//qr2->Refresh();
Prntr->Canvas->Refresh();
Prntr->Canvas->StretchDraw(Rect(150+25,10, 95, 95),
qr2->Picture->Graphic);
Prntr->Canvas->Font->Size = 4;
Prntr->Canvas->Ellipse(240+25,20,315+25,100);
Prntr->Canvas->TextOut(260+25,30,"LQC");
Prntr->Canvas->TextOut(255+25,50,"PASS");
Prntr->Canvas->TextOut(275+25-reLast->Text.Length()*3,70,reLast->Text);
Prntr->Canvas->TextOut(170+30,100,barid1);
Prntr->Canvas->Refresh();
Prntr->Refresh();
Prntr->EndDoc();