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

2004-03-05 02:18:00 142 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb.net下打印清单示例（连续纸和固定纸张打印）清单按类别打印 Private Sub print_doc(ByVal sender As Object, ByVal e As PrintPageEventArgs) Dim m_arg As New drawArg(m_printArg.m_title_font, Brushes.Black, New Pen(Color.Blue, 2)) Dim m_ 阅读详情

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

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

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

...全文

VB实现文本打印打印机属性设置[转] Printer 对象常数打印机颜色模式常数值描述 vbPRCMMonochrome 1 单色输出 vbPRCMColor 2 彩色输出双面打印常数值描述 vbPRDPSimplex 1 单面打印 vbPRDPHorizontal 2 双面水平打印 vbPRDPVertical 3 双面垂直打印打印方向常数值描述 vbPRORPortrait 1 文档打印以纸的窄边作顶部 vbPRO 阅读详情

shishi1234

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

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方法来打印，不过不同的打印机的ＰＵＴ方法不一样

lhsok 2004-03-22

打赏
举报

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

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

相关推荐