关于写操作的问题,在线等候,十万火急!!!!!!!!

Question

Open "LPT1:" For Output As #1
  Send = Space(10) & "你好你好你好你好你好你好你好"
  Print #1, Send
  Close #1
我用上面代码编写一段将数据写到打印机,但是打印机打印出来的不是中文,而是乱码,请问各位大虾,如何解决

Answer 1

Private Sub Command1_Click()
Dim send As String
 Open "LPT1:" For Output As #1
  send = Space(10) & "你好"
  Print #1, send
  Close #1
End Sub
打印机是松下KX-P1121 24针打印机