15-01-2013, 09:59 PM
و عليكم السلام و رحمة الله
كود :
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRShape4.Height:=DetailBand1.Size.Resolution;
end;