用print #打印定位的有关问题

2012-01-15

用print #打印定位的问题关于票据打印的问题困扰了很长时间了，最近参考了一篇“控制打印机走纸的方法”的文

用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

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

[解决办法]
dim sPrnLn as string
sPrnLn=.....
pnt1 sPrnLn
[解决办法]
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) ； "带有心脏的中英文打印机"

[解决办法]
sPrnLn = PADR(oTD.Qty, 5) & PADRChinese(IIf(oTD.NoPriceShift, "*", " ") & Trim(sName), 24) & Space(1) & PADL(Trim(oCurrency.FormatCurrency(oTD.Amount)), 10)
[解决办法]
Print #1, , "LPT1:" & "带有心脏的中英文打印机"
看不懂,为什么有俩逗号?

[解决办法]
一样用控制字符控制，不同打印机可能不同，类似

VB code

Print #1, chr(27) & "$" & chr(10) & chr(3)
[解决办法]
为何不用VB的PRINTER对象来控制打印内容呢??

热点排行