7489
社区成员
- 全部
vb打印的时候，我不想让其走纸。
我在用vb打印的时候，我不想让其走纸。想打出超市小票的效果。
请高手帮忙
Printer.Print \"中华人民共和国\"
Printer.EndDoc
上面的程序，我想打一行走一行。不打不走。
请高手帮忙
Printer.Print \"中华人民共和国\"
Printer.EndDoc
上面的程序，我想打一行走一行。不打不走。
...全文
当前发帖距今超过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
另外，你应该将纸的类型设置正确！！！！！
在打印前，就开始将纸退几行
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的打印机，如果要更改字体去看打印机设默说明书
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方法来打印，不过不同的打印机的ＰＵＴ方法不一样
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
我也要找这样的东东呀，顶了
C#基础教程-c#实例教程，适合初学者 C#基础教程-c#实例教程，适合初学者。...当然仅靠一章的内容就完全掌握C#语言是不可能的，如需进一步学习C#语言，还需要认真阅读有关C#语言的专著。 1.1 C#语言特点 Microsoft.NET(以下简称.NET)框...
VB小票打印，逐行打印，不多走纸 小票打印系统，我开始的思路是做一个用针式打印机打印固定格式的小票，可是从成本角度出发，想做成超市POS机一样，小票跟据销售的货品件数定页面长度，有多少行就打印多行。 可我对POS机的编程方式不太行，大家知道...
vb.net 教程 11-1 打印组件 4 PrintDocument 2 版权声明：本文为博主原创文章，转载...代码中先是调用了打印对话框，然后再打印的，其实在打印对话框PrintDialog的时候也没有做什么设置，直接按下打印也可以打印出来 那么深入一点考虑，是否打印对话框也不需要呢...
WPF 打印界面(控件)到A4纸 这次遇到一个需求，就是将整个界面打印在A4纸上。 需求清楚后，Bing一下关于打印，就找到一个类PrintDialog ，其中两个方法可能会用到： 特别是public void PrintVisual(Visual visual, string description)可以...
如何让VB6.0升级到VB.NET的过程变得更简单？ 我以前都是用C#来写，这次搞这个VB.NET项目，有点突然。还好语言都是相通的。1.虽说以前的Microsoft Visual Basic和.NET都是微软自己的东西，可有很多功能的实现方式还不一样，特别是那些控件。2.每个程序都会有自己...
vb中我想调用excel的打印功能打印。有个问题要问一下。谢大家回答 1、我试过，可以直接按钮后，就直接打印（网上找的办法，不让excel显示），但，能加一个预览功能吗？ 2、打印前是否可以设置打印格式，比如纸张大小，打印方式，还是需要做个excel模板，在excel中设置呢？
vb源码 VB源码:HOOK 万能网游密码截取技术之（诛仙） ... ...VB源码:IP地址输入框控件 下载地址:http://www.2e3.org/down.asp?url=lelecode_2 VB源码:生成MD5码 下载地址:http://www.2e3.
VB编程资源大全（源码 其它4） prnprv3.zip
在vb5/6中增加打印预览功能(78KB)
662,vbprint.zip
vb中使用打印功能的add-in(764KB)
663,spool.zip
打印文件的例子(5KB)
664,versioninfo.zip
从dll或exe文件中获得版本信息(3KB)...
vb6/win2000/epson LQ300K/定宽不定长单据打印的走纸控制问题求解 本人的软件中需要在2000/XP下打印一个定宽不定长的单据,因为成本的原因,客户只使用LQ300K打印机,这种打印机专门用来打印连续纸,但因为是按页的形式打印,每次打印完成都会走一页或多页的纸,因为是整页的,往往会多走...
VB操作EXCEL表的常用方法 VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。...VB本身提自动化功能可以读写EXCEL表，其方法如下： ...
VB编程资源大全 1,eyes.zip
跟着鼠标转的眼睛(6KB)
2,sunv.ZIP
东方快车的悬浮窗体(5KB)
3,Menubmp.ZIP
带图象的下拉菜单(4KB)
4,strangeform.ZIP
不规则窗体(7KB)
5,autosize form.ZIP
随窗体变化...
vb的数据报表(data report)如何支持分组报表分页打印 我最近遇到一些问题想向各位请教： 1、使用环境： VB6.0+ACCESS数据库 2、完成功能：针对系统中待打印数据中的不同部门，使用datareport制作分组表报，并打印报表。 3、遇到问题： 因为部门信息的多少各有不同，直接...
vb调用excel方法详解及操作相关操作命令大全 如果你要在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。 因为EXCEL...
VB6定义纸张大小 公司有个“请款审批单”，现在想通过编程来打印，直接用printer命令来定位打印，但是，对于纸张的定义，找了很多书，看了很多网页，都没有讲VB6里的纸张定义单位是毫米？还是像素？ 审批单的尺寸是188*130毫米，我在...
我用vb调用水晶报表打印 如何控制打印机走纸???两年拉都没解决!!!都来提提意见啊 惨！！！ 打印机是爱普生的针式打印机，我想实现以下功能： 每次程序调用打印完毕之后，如果一张纸没有打印完，则停在最后打印的地方，下次打印 的时候从后面开始继续打；而不是像现在的那样，每次都要用完整张纸，太浪费了
请教----vb.net....PrintDocument 打印自定义纸张发票 我想打印几种运单发票，但格式都不是标准尺寸。能否用PrintDocument 实现发票的自定义打印？ 1.制作思路？ 2.PrintDocument 打印的代码 3.针式打印机，该如何设置》？？ 小弟先谢过了，希望大家帮忙
用VB代码控制打印机走纸 以下条件已具备： 打印机：LQ-300K 自动切纸设置：开 OS：win2k 现在我想在VB中用代码控制其自动切纸功能，即打完一页后，马上自动切纸，而不用去等待那两秒钟 并且打印下一页时，打印纸还能归位。 因为客户不想等待...
vb打印问题 有个表单可以填入一些信息..提交之后有一个窗体出来.可以选择预览和打印. 我会把提交的信息分别放在这纸张的一些位置... 我还想问一下.如果这样做可行的话.那打印预览的代码是怎样的. 谢了..第一次发帖.请多多帮帮菜鸟.
vb如何读取excel文件 转自：http://zhidao.baidu.com/link?url=f567gT9oPD0F_MoLS61zCVsFGzGpzSQvUM9hU-wC7SdALJucmFDGMMU_E0c8ntTnK8ms2fkUF-a8xTDJrgJV_H1Iq2wa7WKCydAFksm95ba 1、调用Excel对象打开EXCEL文件后，读取文件内容 ...
简述VB.NET中用OPENCV来处理摄像头拍摄图像的畸变 这几天在做一个双目视觉的东西，要达到深度识别0.1mm以内，没深入过这方面的东西，边学边记录。所以，这一篇代码非常简单和粗鄙，甚至需要你自己修改很多东西才能运行。 使用OPENCV来进行矫正图像，首先要得到两个...
VB.NET绘图8---总结 《VB.NET 绘图基础》吧，因为篇幅实在有点长，计划分成：Graphics章、Pen章、Brush章、Text章。由于涉及到的内容比较多，加之包含比较多的实例代码，所以根据内容的长短把每一章分成若干篇博文发出来。其中： ...
VB中链式纸打印问题！ 我有VB6写一打印程序，打印机为star ar-3200+，用链式纸打印一小报表可打印完后打印纸总是走很长一段纸，我想在程序中控制纸的长度让它打印完后不走纸，不知在程序中怎么控制纸的长度，而让Winodws中打印机设置的纸...
VB读写Excel 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。 因为...
