parallelport.frm

POS2000打印机演示程序

VERSION 5.00
Begin VB.Form ParralelPort 
   Caption         =   "并口演示"
   ClientHeight    =   3285
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4095
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   3285
   ScaleWidth      =   4095
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Close 
      Caption         =   "关闭软件"
      Height          =   495
      Left            =   2295
      TabIndex        =   2
      Top             =   1755
      Width           =   1395
   End
   Begin VB.CommandButton test 
      Caption         =   "演示打印"
      Height          =   540
      Left            =   450
      TabIndex        =   1
      Top             =   1710
      Width           =   1485
   End
   Begin VB.Label Label1 
      Caption         =   "POS2000 VisulBasic程序"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   420
      Left            =   315
      TabIndex        =   0
      Top             =   675
      Width           =   3645
   End
End
Attribute VB_Name = "ParralelPort"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Close_Click()
'exit
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub TEST_Click()
    Open "lpt1:" For Binary As #1
    Dim i As Integer
    ival = Val(InputBox("Input the Num of tickets: ", "DEMOPOS2K", 1))
If ival > 0 And ival < 100 Then
   Put #1, , Chr$(29) + "(" + "F" + Chr$(4) + Chr$(0) + Chr$(2) + Chr$(0) + Chr$(79) + Chr$(0)
   Put #1, , Chr$(29) + "(" + "F" + Chr$(4) + Chr$(0) + Chr$(1) + Chr$(0) + Chr$(192) + Chr$(0) ''''a=1
  For i = 1 To ival
''''设置切撕纸位置到黑标的距离为8mm
''''起始打印位置距切撕纸位置距离为11mm
  
'''''begin page printing
   Put #1, , Chr$(29) + Chr$(12)        'a=1
   Put #1, , Chr$(28) + Chr$(38) 'FS &进入汉字模式
   Put #1, , Chr$(&H1B) + "!" + Chr$(&H1)
   Put #1, , Chr$(28) + Chr$(87) + Chr$(1) '''''''FS W n=1
   Put #1, , "       北京公达集团公司" + Chr$(10)
   Put #1, , Chr$(28) + Chr$(87) + Chr$(0) ''''''''FS W n=0
   Put #1, , Chr$(28) + Chr$(33) + Chr$(12) ''''''FS ! n=12
   Put #1, , "     蛇口广华电子技术公司" + Chr$(10) + Chr$(10)
   Put #1, , Chr$(28) + Chr$(33) + Chr$(4) '''''FS ! n=4倍宽
   Put #1, , "       电话：[phone]" + Chr$(10)
   Put #1, , "       传真：[phone]" + Chr$(10) + Chr$(10)
   Put #1, , Chr$(28) + Chr$(33) + Chr$(8) ''''''FS ! n=8倍高
   Put #1, , Chr$(27) + "!" + Chr$(16) '''''''''ESC ！ n=16倍高
   Put #1, , "       TP POS2000针式打印机" + Chr$(10)
   Put #1, , Chr$(28) + "!" + Chr$(0)
   Put #1, , Chr$(27) + "!" + Chr$(0)
   Put #1, , "采用EPSON M-U110的针式打印机构" + Chr$(10)
   Put #1, , "打印方法：九针列式双向打印" + Chr$(10)
   Put #1, , "打印速度：约3.5行/秒（双向打印ASCII字符）" + Chr$(10)
   Put #1, , "走纸速度：约100mm/秒" + Chr$(10)
   Put #1, , "黑标检测：黑标印在票据正面左边，黑标长度（走纸方向）5mm，宽度最小12mm" + Chr$(10)
   Put #1, , "软件功能：能实现中西文同行混打；纸尽，暂停打印，上纸后继续打印，黑标定位打印" + Chr$(10)
   Put #1, , "打印机可靠性：500万行（MCBF）" + Chr$(10) + Chr$(10)
   Put #1, , Chr$(28) + Chr$(46) '''''''''FS .退出汉字模式
   Put #1, , Chr$(27) + "!" + Chr$(1) '设置字模7*7 ESC ！n=17,33,49'
   Put #1, , "HHHHHHHHHHHHHHHHHHHHH" + Chr$(10)
   Put #1, , Chr$(27) + "!" + Chr$(17)
   Put #1, , "HHHHHHHHHHHHHHHHHHHHH" + Chr$(10)
   Put #1, , Chr$(27) + "!" + Chr$(33)
   Put #1, , "HHHHHHHHHHHHHHHHHHHHH" + Chr$(10)
   Put #1, , Chr$(27) + "!" + Chr$(49)
   Put #1, , "HHHHHHHHHHHHHHHHHHHHH" + Chr$(10)
   Put #1, , Chr$(29) + "V" + Chr$(66) + Chr$(0) '
   
  Next i
  'Sleep (500)
 Else
 MsgBox ("Input error")
End If

Close #1

End Sub