条码BarCode打印识别问题

条码BarCode打印识别问题

用office自带的OCX实现一条形码打印程序，设计思想如下：  
  BarCodeCtrl由于不带打印功能，所以我先把需要打印的内容摆在一个窗体里面，然后抓取需要打印的内容，存成bmp图，最后由QuickRpt来打印抓取的图片。  
  存在问题：打印出来的条码识别率不够高，这是为什么呢，是不是图片被压缩了或者其他的原因？  
   
  条码控件属性如下：  
  BarCode.Style=2  
  BarCode.Width=135。  
  核心代码如下：  
   
  //抓图  
  procedure   TFmPrintStuffBarCode.CathBarCodeToImage();  
  var  
      BarCodeBitmap:   TBitmap;  
      BarCodeCanvas:   TCanvas;  
  begin  
   
      BarCodeCanvas   :=   TCanvas.Create;  
      BarCodeCanvas.Handle   :=   Self.Canvas.Handle;  
   
      BarCodeBitmap   :=   TBitmap.Create;  
      BarCodeBitmap.Width   :=   232;  
      BarCodeBitmap.Height   :=   110;  
      BarCodeBitmap.Canvas.CopyRect(Rect(0,0,232,110),  
                                                                  BarCodeCanvas,  
                                                                  Rect(0,0,225,110));  
      BarCodeCanvas.Free;  
      BarCodeBitmap.SaveToFile('BarCode.bmp');  
      BarCodeBitmap.Free;  
   
  end;  
   
  抓取的图片采用QuickRept打印。  
  QRImage的一些属性如下：  
  Autosize:=TRUE;  
  Stretch:=FALSE;