UC知道VB中变量赋值问题
来源：百度知道 编辑：UC知道 时间：2024/06/12 11:28:34
Private Sub Command3_Click()
Dim strOut As String
StrOut="^XA _
^BY1,2,8 _
^LT5 _
^LH60,15 _
^FO15,5 _
^BCN,20,N,N,A^FD1234567890^FS _
^FO15,35 _
^CFD,13,5^FD1234567890^FS _
^XZ"
'打开打印机端口，其中的“LPT1:”可能需要根据你的打印机设置而改变
Open "LPT1:" For Binary Access Write As #1
'发送给打印机，注意语句的最后一个参数必须是变量
Put #1, , strOut
'关闭打印机端口
Close #1
End Sub
这样赋值可以吗？ 为什么会编译错误：语法错误？？
比如说我在D盘下有个A.txt文件，
在VB程序是应该调用再发送给打印机呢？？？
Dim strOut As String
StrOut="^XA _
^BY1,2,8 _
^LT5 _
^LH60,15 _
^FO15,5 _
^BCN,20,N,N,A^FD1234567890^FS _
^FO15,35 _
^CFD,13,5^FD1234567890^FS _
^XZ"
'打开打印机端口，其中的“LPT1:”可能需要根据你的打印机设置而改变
Open "LPT1:" For Binary Access Write As #1
'发送给打印机，注意语句的最后一个参数必须是变量
Put #1, , strOut
'关闭打印机端口
Close #1
End Sub
这样赋值可以吗？ 为什么会编译错误：语法错误？？
比如说我在D盘下有个A.txt文件，
在VB程序是应该调用再发送给打印机呢？？？
StrOut="^XA _
^BY1,2,8 _
^LT5 _
^LH60,15 _
^FO15,5 _
^BCN,20,N,N,A^FD1234567890^FS _
^FO15,35 _
^CFD,13,5^FD1234567890^FS _
^XZ"
写法不正确
如果你的确要这样写就改成
StrOut="^XA" & _
"^BY1,2,8" & _
"^LT5" & _
"^LH60,15" & _
"^FO15,5" & _
"^BCN,20,N,N,A^FD1234567890^FS" & _
"^FO15,35" & _
"^CFD,13,5^FD1234567890^FS" & _
"^XZ"
如果你想要每行有个回车符就在 _ 插入 vbcrlf & ,如下
StrOut="^XA" & vbcrlf & _
"^BY1,2,8" & vbcrlf & _
"^LT5" & vbcrlf & _
"^LH60,15" & vbcrlf & _
"^FO15,5" & vbcrlf & _
"^BCN,20,N,N,A^FD1234567890^FS" & vbcrlf & _
"^FO15,35" & vbcrlf & _
"^CFD,13,5^FD1234567890^FS" & vbcrlf & _
"^XZ"
自己做 不是好孩子