Question

用VB做循环打印输出，像超市小票那样的小单子，经常会出现打十几行以后，打印机就隔好几行才打一行数据！

这是什么原因，一直不得其解！

Answer 1

1应该是打印机的问题，一般这样的打印程序，应该使用专门的票据打印机
票据打印机不会像你说的那样往前走纸！
2. 还有一个应该是纸张需要自定义大小。

追问

谢谢momwoo！我用EpsonLQ300+测试过，也是POS58热敏打印测试过，都会出现这种情况，就是数据多的情况下容易发生，比如：循环的行数超过一定的数量就会出现，平时几行十几行不会出现这种情况，兄弟有没有碰到过？

追答

哦，我也用epson的小打印机做程序，不过我每次打印的的数据行数是固定的，没发生过你说的情况。 你看看我的代码，看看对你有用否。代码太多，中间删掉很多。
Private Function f_PrintScheme(ByVal sWaitingNo As String) As Boolean
f_PrintScheme = False
On Error GoTo Morn
iFontSize = 12
'1 获取用户的设置
sngMargin(0) = 0.1 * mCcmToTwips '将厘米换算成缇
sngMargin(1) = 0.1 * mCcmToTwips '将厘米换算成缇

sngTblM = iFontSize * mCPointToTwips + sngMargin(0) '页眉高度
'sTitle = "中国人民银行"
sTmp = sWaitingNo & ""
sDepName = sDepName
'sNote1 = "注意事项：叫号后请在中厅等待！"
'snote2 = " 三分钟未到，"
'snote3 = " 请重新挂号排队！"
'sRegisterNo = "部门名称：" & sDepName ' sRegisterNo = "挂号号码：" & sRegisterNo
sNowTime = sNowTime
sCount = "您前边还有" & sCount & "个人"

'2.开始打印
If sWaitingNo = "" Then Exit Function
With Printer
' 不能用Set Printer.Font = gaUserfont(0)，打印机字体可能被某些隐含过程改变，从而影响到userfont
'1. 打印标题
With .Font
.Name = "隶书"
.Size = start.myFontSize.Size_Title
.Bold = True
.Italic = False
.Underline = False
.Strikethrough = False
End With
tmpX = Printer.Width / 2 - Printer.TextWidth(start.myText.text_Title) / 2
tmpY = 0
.CurrentY = tmpY
.CurrentX = tmpX
Printer.Print start.myText.text_Title '居中打印标题
'2 打印排队序号
With .Font
.Name = "宋体"
.Size = 12
.Bold = False
.Italic = False
.Underline = False
.Strikethrough = False
End With
sngLMargin = Printer.TextWidth("111")
tmpX = sngLMargin
tmpY = f_GetPoint(start.myFontSize.Size_SerialNumber) 'sngFontSize = iFontSize * mCPointToTwips
.CurrentY = tmpY
.CurrentX = tmpX
Printer.Print "排队序号："
.EndDoc

End With
f_PrintScheme = True
Exit Function

Morn:
Printer.KillDoc
Morn.sub_ErrCenter
End Function

追问

我做的这个打印行数是不限制的，比如客人在包厢里点餐，点的数目是不确定的，所以有时候点了几十样的时候，再下单会出现打印机先正常打了十几行，后面突然空白进纸很长一段，再打一行数据，又进纸很长一段，再。。。唉，不知什么原因！

追答

我晚上后来考虑，应该还是纸张的问题，
每次打印前需要设置纸张；宽度和高度需要根据需要打印的数据先计算出来。你的宽度是不变的
需要计算的高度。
printer.PaperSize =VbPRPSUser '设置为自定义纸张
printer.width=.... '设置纸张宽度
printer.height= '设置纸张高度

Answer 2

上面说的很详细了，你可以按他说的做一下试试，然后自己再进行修改一下！