barcode应用

Option Explicit

Dim i As Integer
Dim pc2 As String
Private Sub Command1_Click()



If Trim(Text1.Text) = "" Then
  MsgBox "请先填写物料号"
  Exit Sub
Else
  wl = PadLeft(Trim(Text1.Text), 18, "0")
End If


If Trim(Text2.Text) = "" Then
  MsgBox "请先填写批次号"
  Exit Sub
Else
  pc = PadLeft(Trim(Text2.Text), 7, "0")
End If


If Trim(Text3.Text) = "" Then
  MsgBox "请先填写供应商"
  Exit Sub
Else
  gys = PadLeft(Trim(Text3.Text), 3, "0")
End If

If Trim(Text4.Text) = "" Then
MsgBox "请填写数量"
Else
printamount = CInt(Trim(Text4.Text))

For i = 0 To CInt(Trim(Text2.Text))
   
  pc2 = PadLeft$(CStr(CInt(Trim(pc)) + i), 7, "0")
  result = CheckD(wl, pc2, gys)
  Call openport("TSC TTP/TDP-243M(244ME)")
  Call setup("70", "30", "3", "11", "0", "2", "0")
  Call clearbuffer
  Call sendcommand("DIRECTION 0")
  Call barcode("20", "40", "39", "120", "0", "0", "1", "3", bar & result)
  Call windowsfont(20, 170, 30, 0, 2, 0, "黑体", "*" & bar & result & "*")
  Call printlabel("1", 1)
  Call closeport

Next



End Sub

这是个条码打印软件。请高手指导如何将数量天加进去实现要打多少就打多少。谢谢~~·

晕，不明不白，打印机型号是什么呀