adaprint.cls

windows下测试打印机源码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsadaprint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private top_car_x  As Long
Private top_car_y  As Long
Private left_car_x  As Long
Private left_car_y  As Long
Private right_car_x  As Long
Private right_car_y  As Long
Public Function settop_car_x(Optional x As Long = 0) As Boolean
    top_car_x = x
End Function
Public Function gettop_car_x() As Long
    gettop_car_x = top_car_x
End Function
Public Function test() As Boolean
    MsgBox "top_car_x=" & top_car_x
End Function
Public Function setposition() As Boolean
    
End Function