用print #打印定位的问题

[xx800329]

关于票据打印的问题困扰了很长时间了，最近参考了一篇“控制打印机走纸的方法”的文章，却不知道如何给打印的内容定位了，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

如果要将打印的内容定位，应该怎么做呢！

[lxq19851204]

dim sPrnLn as string
sPrnLn=.....
pnt1 sPrnLn

[xx800329]

请说得再详细一点，好吗？您是指用空格吗？

[SYSSZ]

Print #1, "Zone 1"； Tab ； "Zone 2" ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World" ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello" ' 将数据写在第十列。


Print #1, , "LPT1:" &Tab(4) ； "带有心脏的中英文打印机"

[lxq19851204]

sPrnLn = PADR(oTD.Qty, 5) & PADRChinese(IIf(oTD.NoPriceShift, "*", " ") & Trim(sName), 24) & Space(1) & PADL(Trim(oCurrency.FormatCurrency(oTD.Amount)), 10)

[lxq19851204]

需要有空格来控制你要打印的字体

[king06]

Print #1, , "LPT1:" & "带有心脏的中英文打印机"
看不懂,为什么有俩逗号?

[Tiger_Zhao]

一样用控制字符控制，不同打印机可能不同，类似

Print #1, chr(27) & "$" & chr(10) & chr(3)

http://guide.it168.com/files/5195/5195004000000.asp
http://unix-cd.com/unixcd12/article_872.html

[xx800329]

楼上，我看了您给出的文章，请问命令中的FS、sub、ESC分别怎么写
ESC对应的是chr(27)吗？那FS和sub呢！

[熊孩子开学喽]

为何不用VB的PRINTER对象来控制打印内容呢??

[LiuLinda999]

路过，顶！

[Tiger_Zhao]

ASCII表
http://www.cnblogs.com/locoy/archive/2006/10/16/530008.html

[学习风]

顶，。。。。。。上去