用print #打印定位的问题
关于票据打印的问题困扰了很长时间了,最近参考了一篇“控制打印机走纸的方法”的文章,却不知道如何给打印的内容定位了,printer.currentX和printer.currentY都不起作用了,请各位指导一下,应该怎么定位呢!
Private Sub Command1_Click()
Dim i As Integer
Open "LPT1" For Output As #1
Print #1, Chr(27); Chr(64) '清除原先的打印设置,即初始化
Print #1, Chr(28) & "@" '设置汉字状态
pnt1
Close #1
End Sub
Private Sub Form_Load()
Text1 = ""
Open "LPT1" For Output As #1
Print #1, Chr(27); Chr(64) '清除原先的打印设置,即初始化
Close
End Sub
Public Sub pnt1()
Print #1, , "LPT1:" & "带有心脏的中英文打印机"
End Sub
如果要将打印的内容定位,应该怎么做呢!