救命呀，超市收银系统的票据打印怎么样才能要多长就打多长？

Question

我每次打印都要溜出一张A4的纸那么长，但有的票据不要那么长，或有的票据要更长，我怎么办呀，救救我呀。是不是跟打印机有关呀。

Answer 1

我每次打印都要溜出一张A4的纸那么长，但有的票据不要那么长
--------------------以上问题是因为你打印机的默认纸张是A4，所以它不管你的数据是多少都会按A4来走纸，解决方法如下：1、在打印机的服务器属性里添加一种纸张类型，设置宽和高为票据的宽和高，然后定义一个名字（假如为AA），然后设置打印机的默认纸张为AA,这样打印时就会按AA来走纸。或有的票据要更长，我怎么办呀
--------------------这个问题可以在报表中设置（在报表中设置分页就行了），不管你的数据有多少都没有问题。

Answer 2

打印机的走纸长度就是与你设置的纸张大小有关系。VB源码下载：
http://www.egooglet.com论坛：
http://bbs.egooglet.com

Answer 3

直接用Printer做为对象进行打印，纸张类型设为自定义，想打多长就打多长啊。

Answer 4

直接发print命令到端口open ....
print ....
close ....

Answer 5

WIN98下能打印中文，WINXP下能打印英文字符及数字，打印机为EPSON针打：
Private Sub Command1_Click()
Open "LPT1" For Output As #1
For I = 1 To 5
    Print #1, Chr(10) '控制换行，同Chr(13)
Next
    Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
    Print #1, Chr(14); "ABCDEFGHIJKL" '宽体每行40字符
    Print #1, Chr(27); "IA" '恢复正常字体
    Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
    Print #1, Chr(27); "IB"; "ABCDEFGHIJKL" '横向扩展每行40字符
    Print #1, Chr(27); "IC"; "ABCDEFGHIJKL" '纵向扩展每行80字符
    Print #1, Chr(27); "E"; "ABCDEFGHIJKL" '加重黑体
    Print #1, Chr(27); "F" '取消加重黑体
    Print #1, Chr(27); "IA" '恢复正常字体
    Print #1, Chr(27); "4"; "ABCDEFGHIJKL" '斜体
    Print #1, Chr(27); "5" '取消斜体
    Print #1, Chr(27); "0"; "ABCDEFGHIJKL" '打印每吋6行改8行
    Print #1, Chr(27); "1"; "ABCDEFGHIJKL" '重置行间隔为7/72
    Print #1, Chr(27); "2"; "ABCDEFGHIJKL" '重置行间隔为1/6
    Print #1, Chr(27); "IA"; "ABCDEFGHIJKL" '正常字体每行80字符"
    'Print #1, Chr(12) '控制换页
Close #1
End Sub