vb barcodectrl打印条形码为空白？

  StrSql = " Select * from sysCutterInfo  Where Part_No ='" & strpn & "' and IsPr =0  Order By Cutter_ID "
  Rs.Open StrSql, CnServer, adOpenStatic, adLockReadOnly, adCmdText
             
   If Rs.RecordCount = 0 Then
      MsgBox "PN编号输入有误,请核对！", vbInformation, "Info"
      Exit Sub
   End If
   
   For PintFor = 0 To Rs.RecordCount - 1
      BarCode.value = Trim(Rs.Fields("Cutter_ID"))
      
      For Each prn In Printers     '''这是我指定打印到条码打印机上去.
         If prn.DeviceName = StrPrint Then
              Set Printer = prn
              Exit For
         End If
      Next prn
      Printer.Print BarCode.value    ''''这里是打印条码 
      Printer.EndDoc
     Rs.MoveNext
   Next