vb程序调用南天打印机换行怎么办?我设定了XY坐标,但是只打印一行,怎么让文本框换行?
DimabcAsStringPrivateSubCommand1_Click()vb程序调用南天打印机换行怎么办?我设定了XY坐标,但是只打印一行,怎么让文本框换行?以及...
Dim abc As String
Private Sub Command1_Click()
vb程序调用南天打印机换行怎么办?我设定了XY坐标,但是只打印一行,怎么让文本框换行?以及怎么样使打印换行?
Dim X As Printer
abc = Text1.Text
For Each X In Printers
If X.DeviceName = "\\192.168.1.2\print" Then
Set Printer = X
End If
Next
'坐标X轴
Printer.CurrentX = 1000
'坐标Y轴
Printer.CurrentY = 1000
'字号
Printer.FontSize = 18
'打印内容
Printer.Print abc
Printer.EndDoc '提交打印
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_Change()
abc = Text1.Text
End Sub 展开
Private Sub Command1_Click()
vb程序调用南天打印机换行怎么办?我设定了XY坐标,但是只打印一行,怎么让文本框换行?以及怎么样使打印换行?
Dim X As Printer
abc = Text1.Text
For Each X In Printers
If X.DeviceName = "\\192.168.1.2\print" Then
Set Printer = X
End If
Next
'坐标X轴
Printer.CurrentX = 1000
'坐标Y轴
Printer.CurrentY = 1000
'字号
Printer.FontSize = 18
'打印内容
Printer.Print abc
Printer.EndDoc '提交打印
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_Change()
abc = Text1.Text
End Sub 展开
1个回答
展开全部
Dim X As Printer
abc = Text1.Text
For Each X In Printers
If X.DeviceName = "\\192.168.1.2\print" Then
Set Printer = X
End If
Next
'坐标X轴
Printer.CurrentX = 1000
'坐标Y轴
Printer.CurrentY = 1000
'字号
Printer.FontSize = 18
'打印内容
Printer.Print abc
printer print'意思是换行。朋友。
Printer.EndDoc '提交打印
End Sub
abc = Text1.Text
For Each X In Printers
If X.DeviceName = "\\192.168.1.2\print" Then
Set Printer = X
End If
Next
'坐标X轴
Printer.CurrentX = 1000
'坐标Y轴
Printer.CurrentY = 1000
'字号
Printer.FontSize = 18
'打印内容
Printer.Print abc
printer print'意思是换行。朋友。
Printer.EndDoc '提交打印
End Sub
追问
printer print'意思是换行。朋友。
我的意思是,abc这个字符串里面有很多字,如果超过很多,就会自动打印换行的,不是人工来换行
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询