vb打印的时候，我不想让其走纸。

[shishi1234]

我在用vb打印的时候，我不想让其走纸。想打出超市小票的效果。

请高手帮忙
Printer.Print \"中华人民共和国\"
Printer.EndDoc

上面的程序，我想打一行走一行。不打不走。

[lhsok]

我也要找这样的东东呀，顶了

[slmn]

2000系统
Dim A As Integer
aa = Shell("c:\windows\system32\cmd.exe /k echo " & "要打印的文本" & ">lpt1", vbHide)
98系统
Dim A As Integer
aa = Shell("c:\command.exe /k echo " & "要打印的文本" & ">lpt1", vbHide)
缺点：不能改变字体
还可以用put方法来打印，不过不同的打印机的ＰＵＴ方法不一样

[slmn]

put方法
Open "LPT1:" For Binary Access Write As #1
Put #1, , Chr$(27) & Chr$(67) & "1" '页长
Put #1, , strOut0 = Chr$(27) & Chr$(60) '归位
Put #1, , Chr$(28) & Chr$(38) '设置汉字模式
Put #1, , Chr$(7) '设置响声
Put #1, , Chr$(28) & Chr$(120) & "1" '设置高速
Put #1, , Chr$(27) & Chr$(119) & "1" '设置倍高
Put #1, , Chr$(27) & Chr$(69) '设置粗体

Put #1, , Chr$(11) & "要打印的文本" & Chr(10)

Put #1, , Chr$(27) & Chr$(64) '初始化
Close #1 ' 关闭打印机端口


这是Epson LQ-300K的打印机，如果要更改字体去看打印机设默说明书

[friendwei]

打印机是自动走的，但可以将纸退回来呀

[yonghengdizhen]

slmn(小鱼) 说的方法没错

[cqm2099]

UP

[saiko]

可以这样：
在打印前，就开始将纸退几行

Public Sub return_paper()
Dim i As Integer
Open "PRN" For Output As #1
For i = 1 To 2 '这里是退 2 行
Print #1, Chr$(27) + "j" + Chr$(255)
Next
Close #1
End Sub

另外，你应该将纸的类型设置正确！！！！！

[Sunql]

将排版后的小票数据存入TXT文件，然后读取该文件也可以做到超市小票的效果