在线等待：谁能帮我呀！

Question

我的打印程序，打印不了是怎么回事？当我运行时点command2没有反应！
Private Sub Command2_Click()
   printto Printer
End SubPrivate Sub printto(obj As Object)
Dim x, y As Integer
y = y + 1500
obj.CurrentX = obj.ScaleLeft + 700
obj.CurrentY = y
obj.FontSize = 10
obj.FontName = "宋体"
obj.ForeColor = RGB(123, 200, 12)
obj.Print Combo(0).Text
 obj.CurrentX = obj.ScaleLeft + 7000
 obj.CurrentY = y
 obj.FontSize = 10
 obj.ForeColor = RGB(123, 200, 12)
 obj.Print Combo(2).Text
obj.CurrentX = obj.ScaleLeft + 9500
obj.CurrentY = y
obj.FontName = "宋体"
obj.ForeColor = RGB(123, 200, 12)
obj.Print Text(4).Text
 obj.CurrentX = obj.ScaleLeft + 700
 obj.CurrentY = y + 300
 obj.FontSize = 10
 obj.ForeColor = RGB(123, 200, 12)
 obj.Print Combo(1).Text
obj.CurrentX = obj.ScaleLeft + 7000
obj.CurrentY = y + 300
obj.FontName = "宋体"
obj.ForeColor = RGB(123, 200, 12)
obj.Print Text(3).Text
 obj.CurrentX = obj.ScaleLeft + 9500
 obj.CurrentY = y + 300
 obj.FontSize = 10
 obj.ForeColor = RGB(123, 200, 12)
 obj.Print Combo(3).Text
 
obj.Print Chr(13)
obj.Print Chr(13)
y = obj.CurrentY
obj.CurrentX = obj.ScaleLeft + 100
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(6).Text
obj.CurrentX = obj.ScaleLeft + 1500
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Combo(4).Text
obj.CurrentX = obj.ScaleLeft + 2800
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(8).Text
obj.CurrentX = obj.ScaleLeft + 3800
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(9).Text
obj.CurrentX = obj.ScaleLeft + 4600
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(10).Text
obj.CurrentX = obj.ScaleLeft + 5400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(11).Text
obj.CurrentX = obj.ScaleLeft + 6400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(12).Text
obj.CurrentX = obj.ScaleLeft + 7400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(13).Text
obj.CurrentX = obj.ScaleLeft + 9100
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(14).Text
 
obj.Print Chr(13)
 y = obj.CurrentY
 obj.CurrentX = obj.ScaleLeft + 100
 obj.CurrentY = y
 obj.ForeColor = RGB(123, 200, 12)
 obj.FontSize = 10
 obj.FontName = "宋体"
  obj.Print Text(15).Text
 obj.CurrentX = obj.ScaleLeft + 1500
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Combo(5).Text
obj.CurrentX = obj.ScaleLeft + 2800
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(17).Text
obj.CurrentX = obj.ScaleLeft + 3800
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(18).Text
obj.CurrentX = obj.ScaleLeft + 4600
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(19).Text
obj.CurrentX = obj.ScaleLeft + 5400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(20).Text
obj.CurrentX = obj.ScaleLeft + 6400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(21).Text
obj.CurrentX = obj.ScaleLeft + 7400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(22).Text
obj.CurrentX = obj.ScaleLeft + 9100
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(23).Text
 
 obj.Print Chr(13)
  y = obj.CurrentY
 obj.CurrentX = obj.ScaleLeft + 100
 obj.CurrentY = y
 obj.ForeColor = RGB(123, 200, 12)
 obj.FontSize = 10
 obj.FontName = "宋体"
  obj.Print Text(24).Text
 obj.CurrentX = obj.ScaleLeft + 1500
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Combo(6).Text
obj.CurrentX = obj.ScaleLeft + 2800
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(26).Text
obj.CurrentX = obj.ScaleLeft + 3800
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(27).Text
obj.CurrentX = obj.ScaleLeft + 4600
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(28).Text
obj.CurrentX = obj.ScaleLeft + 5400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(29).Text
obj.CurrentX = obj.ScaleLeft + 6400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(30).Text
obj.CurrentX = obj.ScaleLeft + 7400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(31).Text
obj.CurrentX = obj.ScaleLeft + 9100
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(32).Text
 
obj.Print Chr(13)
  y = obj.CurrentY
 obj.CurrentX = obj.ScaleLeft + 100
 obj.CurrentY = y
 obj.ForeColor = RGB(123, 200, 12)
 obj.FontSize = 10
 obj.FontName = "宋体"
  obj.Print Text(33).Text
 obj.CurrentX = obj.ScaleLeft + 1500
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Combo(7).Text
obj.CurrentX = obj.ScaleLeft + 2800
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(35).Text
obj.CurrentX = obj.ScaleLeft + 3800
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(36).Text
obj.CurrentX = obj.ScaleLeft + 4600
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(37).Text
obj.CurrentX = obj.ScaleLeft + 5400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(38).Text
obj.CurrentX = obj.ScaleLeft + 6400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(39).Text
obj.CurrentX = obj.ScaleLeft + 7400
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(40).Text
obj.CurrentX = obj.ScaleLeft + 9100
obj.CurrentY = y
obj.ForeColor = RGB(123, 200, 12)
obj.FontSize = 10
obj.FontName = "宋体"
 obj.Print Text(41).Text
  
 obj.Print Chr(13)
 obj.CurrentX = obj.ScaleLeft + 1500
 obj.ForeColor = RGB(123, 200, 12)
 obj.FontSize = 10
 obj.FontName = "宋体"
 obj.Print Text(42).Text
End Sub

Answer 1

在 printto 最后面加一句obj.EndDoc执行打印操作.

Answer 2

你没有提交打印,应加上一句: printer.enddoc

Answer 3

谢谢大家！我知道了！改好了！但是谁能帮我解释下printer 了？