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

shishi1234 2004-03-05 02:18:00
我在用vb打印的时候,我不想让其走纸。想打出超市小票的效果。

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

上面的程序,我想打一行走一行。不打不走。
...全文
82 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Sunql 2004-08-16
将排版后的小票数据存入TXT文件,然后读取该文件也可以做到超市小票的效果
回复
saiko 2004-08-16
可以这样:
在打印前,就开始将纸退几行

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

另外,你应该将纸的类型设置正确!!!!!
回复
cqm2099 2004-08-13
UP
回复
yonghengdizhen 2004-08-13
slmn(小鱼) 说的方法没错
回复
friendwei 2004-04-23
打印机是自动走的,但可以将纸退回来呀
回复
slmn 2004-03-22
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的打印机,如果要更改字体去看打印机设默说明书
回复
slmn 2004-03-22
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方法来打印,不过不同的打印机的PUT方法不一样


回复
lhsok 2004-03-22
我也要找这样的东东呀,顶了
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-03-05 02:18
社区公告
暂无公告