100分白送，简单的Printer问题?

[Kerniphan]

说白送也不白送，各位大虾小弟在设计时遇到一个小问题,
请问各位如何在VB中控制打印机的卷纸长度?

[wuzhu]

With VB.Printer
.PaperSize = 256 ' 自定义纸张大小
.Width = CInt(paperWidth) * 56.7 ' 毫米
.Height = CInt(paperHeight) * 56.7
End With

例子:
Public Sub PrintText(text As String, x As Long, Y As Long, Optional Clr As Long = vbBlack, Optional fontsize As Long = 10)
' 在 （X，Y） 点打印 text 文本
With VB.Printer
' 按照毫米方式打印
.ScaleMode = 6
.CurrentX = x
.CurrentY = Y
.fontsize = fontsize
.ForeColor = Clr
End With
VB.Printer.Print text
'Form1.Print text
End Sub

[黑靥]

楼上的,那样可以解决滚筒式打印机多卷纸的问题吗?
就是我打印了一半,他却卷了一张纸,很浪费