小票打印机纸张大小设置的问题。在线等。解决立即给分！！！

Question

用open LPT 打印,即直接端口输出打印，这样你只要在循环中有多少打印的行，循环结束，自动停止！

Answer 1

把纸张大小设置的足够大，免得Windows自己控制它滚页。

Answer 2

枕善居主，请问，open lpt 怎么写。请举例，谢谢。

Answer 3

呵呵.这是我程序里面的一个模拟现实模块
希望有些帮助objObject 对象是为了处理模拟现实和真实打印时候的区别用的,可选打印机或者pic控件,OutText是一个格式化打印的函数Public Sub prnInit(objObject As Object, Height As Integer, Width As Integer, Optional Org As Long = 1) '初始化输出设备
    'Static InitPrn As Boolean    If objObject Is Printer Then
        If Not InitPrn Then
            objObject.Orientation = Org
            objObject.PaperSize = 256 '定义纸张大小
            objObject.Height = Height
            objObject.Width = Width
            objObject.ScaleMode = vbMillimeters
            InitPrn = True
        End If
    Else
            If Org = 1 Then
                objObject.Height = Height
                objObject.Width = Width
            Else
                objObject.Height = Width
                objObject.Width = Height
            End If
            objObject.ScaleMode = vbMillimeters
    End If
    OutText objObject, 0, 0, "Times New Roman", 9, Format(Now, "yyyyMMdd"), False, False, False
    OutText objObject, 0, 3, "Times New Roman", 9, "EagleMIS", False, False, False
End Sub
======================
      重在参与
======================

Answer 4

到我的问题里去看看，保你满意。如你不行的话mail 给我.http://www.csdn.net/expert/topic/981/981334.xml?temp=.887356