O
orlen
Unregistered / Unconfirmed
GUEST, unregistred user!
我在程式里手工创建了一个childband,可是为什么打印不出来啊?
请教各位,谢谢!
代码如下:
procedure TForm2.QRBand2afterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
var
mBand:TQRChildBand;
mo:TQRMemo;
begin
mBand := TQRChildBand.Create(self);
mBand.ParentBand := QRBand2;
mBand.Width := QrBand2.Width;
mBand.Height := 30;
mo := TQRMemo.Create(mBand);
mo.Lines.Add('adsafffffffffffffffffffffff');
mo.Height := 30;
end;
请教各位,谢谢!
代码如下:
procedure TForm2.QRBand2afterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
var
mBand:TQRChildBand;
mo:TQRMemo;
begin
mBand := TQRChildBand.Create(self);
mBand.ParentBand := QRBand2;
mBand.Width := QrBand2.Width;
mBand.Height := 30;
mo := TQRMemo.Create(mBand);
mo.Lines.Add('adsafffffffffffffffffffffff');
mo.Height := 30;
end;