printdemoabos.frm

windows下测试打印机源码

VERSION 5.00
Begin VB.Form PrintDemoabos 
   BackColor       =   &H80000009&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   10530
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   8115
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   NegotiateMenus  =   0   'False
   ScaleHeight     =   10530
   ScaleWidth      =   8115
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin VB.PictureBox picInf 
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      Height          =   8715
      Index           =   0
      Left            =   -60
      ScaleHeight     =   8715
      ScaleWidth      =   6105
      TabIndex        =   0
      Top             =   60
      Width           =   6105
      Begin VB.Label Label1 
         BackColor       =   &H00FFFFFF&
         Caption         =   "2006年10月21日"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   6
         Left            =   1740
         TabIndex        =   7
         Top             =   7980
         Width           =   1815
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFFFFF&
         Caption         =   "企独粤穗总字第XXXXXX号440100000001"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   5
         Left            =   1740
         TabIndex        =   6
         Top             =   7440
         Width           =   4095
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFFFFF&
         Caption         =   "安利(中国)日用品有限公司广东分公司"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   4
         Left            =   1740
         TabIndex        =   5
         Top             =   6900
         Width           =   4095
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "广州市"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   3
         Left            =   1200
         TabIndex        =   4
         Top             =   4200
         Width           =   4695
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "工人"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Index           =   2
         Left            =   3180
         TabIndex        =   3
         Top             =   2880
         Width           =   2400
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "女"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Index           =   1
         Left            =   3180
         TabIndex        =   2
         Top             =   2340
         Width           =   2400
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "直销人员"
         BeginProperty Font 
            Name            =   "黑体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Index           =   0
         Left            =   3180
         TabIndex        =   1
         Top             =   1800
         Width           =   2400
      End
   End
End
Attribute VB_Name = "PrintDemoabos"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Load()
    On Error Resume Next
    'Me.Height = 23000
    'Me.Width = 12000
    'Me.Left = 0
    'Me.Top = 0
    
'    ada.settop_car_x (30)
'    ada.settop_car_y (15)
'    ada.setleft_car_x (135)
'    ada.setleft_car_y (13000)
'    ada.setright_car_x (5265)
'    ada.setright_car_y (13000)
'
'    'whether he or she has a spouse
'    ada.setstrspouseflag ("N")
'    'distributor type(A/B/C/D/E/F/G/P)
'    ada.setstrdsttype ("P")
'    'center code
'    ada.setstrshopno ("01")
'    'center name
'    ada.setstrshopname ("广州测试店铺")
'
'    'barcode number
'    ada.setlngbarcode (25377389)
'    'ada number
'    ada.setstradano ("360-00025377389-1")
'    'ada name
'    ada.setstradaname ("吴海棠")
'    'begin date
'    ada.setstrbegindate ("2006-01-23")
'    'end date
'    ada.setstrenddate ("2007-08-31")
'    'owner center
'    ada.setstrownershop ("21")
'    'pos number
'    ada.setstrpos ("01")
'    'information
'    ada.setstrinformation ("提示信息")
    
    'Me.picInf(0).Left = ada.gettop_car_x()
    'Me.picInf(0).Top = ada.gettop_car_y()
    'Me.picInf(1).Left = ada.getleft_car_x()
    'Me.picInf(1).Top = ada.getleft_car_y()
    'Me.picInf(2).Left = ada.getright_car_x()
    'Me.picInf(2).Top = ada.getright_car_y()
    openReport
    Me.Enabled = False

    'Printer.Orientation = vbPRORLandscape  '横向打印
    Printer.PaperBin = vbPRBNUpper
    Printer.PaperSize = vbPRPSA5
    Me.PrintForm
    'Printer.PaperBin = vbPRBNLower
    'Printer.PaperSize = vbPRPSA4
    Unload Me
    
 
End Sub

Private Function openReport() As Boolean
Me.Label1(0).Caption = ada.getadaName()
Me.Label1(1).Caption = ada.getadaSex()

Me.Label1(2).Caption = ada.getotherJob()

Me.Label1(3).Caption = ada.getadaArea()


Me.Label1(4).Caption = ada.getfzjg()

Me.Label1(5).Caption = ada.getcardNumber()

Me.Label1(6).Caption = ada.geteffectDate()
    
End Function