frmprintpaper.frm

电气设备管理系统信息在社会和经济的发展中所起的作用越来越为人们所重视。信息资源的开发利用水平成为衡量一个国家综合国力的重要标志之一

VERSION 5.00
Begin VB.Form FrmPrintPaper 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "打印查询人信息"
   ClientHeight    =   3540
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5685
   Icon            =   "FrmPrintPaper.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3540
   ScaleWidth      =   5685
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox PicPrint 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   555
      Left            =   3645
      ScaleHeight     =   555
      ScaleWidth      =   1845
      TabIndex        =   12
      Top             =   2850
      Width           =   1845
      Begin VB.CommandButton CmdPrint 
         BackColor       =   &H00E0E0E0&
         Caption         =   "打印"
         Height          =   360
         Left            =   840
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   150
         Width           =   960
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   255
         Picture         =   "FrmPrintPaper.frx":058A
         Top             =   45
         Width           =   480
      End
   End
   Begin VB.Label LabBM 
      BackStyle       =   0  'Transparent
      Caption         =   "部门"
      Height          =   180
      Left            =   2835
      TabIndex        =   11
      Top             =   2070
      Width           =   1710
   End
   Begin VB.Label LabZW 
      BackStyle       =   0  'Transparent
      Caption         =   "职务"
      Height          =   180
      Left            =   2835
      TabIndex        =   10
      Top             =   1635
      Width           =   1710
   End
   Begin VB.Label LabBJ 
      BackStyle       =   0  'Transparent
      Caption         =   "班组"
      Height          =   180
      Left            =   2835
      TabIndex        =   9
      Top             =   2520
      Width           =   1710
   End
   Begin VB.Label LabXM 
      BackStyle       =   0  'Transparent
      Caption         =   "姓名"
      Height          =   180
      Left            =   2835
      TabIndex        =   8
      Top             =   1215
      Width           =   1710
   End
   Begin VB.Label LabID 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "123456789"
      Height          =   180
      Left            =   4410
      TabIndex        =   7
      Top             =   720
      Width           =   810
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "编号:"
      Height          =   180
      Left            =   3915
      TabIndex        =   6
      Top             =   720
      Width           =   450
   End
   Begin VB.Line Line4 
      X1              =   2835
      X2              =   4650
      Y1              =   2715
      Y2              =   2715
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "班 组:"
      Height          =   240
      Left            =   2205
      TabIndex        =   5
      Top             =   2520
      Width           =   555
   End
   Begin VB.Line Line3 
      X1              =   2835
      X2              =   4650
      Y1              =   2265
      Y2              =   2265
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "部 门:"
      Height          =   240
      Left            =   2205
      TabIndex        =   4
      Top             =   2100
      Width           =   555
   End
   Begin VB.Line Line2 
      X1              =   2835
      X2              =   4650
      Y1              =   1830
      Y2              =   1830
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "职 务:"
      Height          =   240
      Left            =   2205
      TabIndex        =   3
      Top             =   1650
      Width           =   555
   End
   Begin VB.Line Line1 
      X1              =   2835
      X2              =   4650
      Y1              =   1425
      Y2              =   1425
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "姓 名:"
      Height          =   240
      Left            =   2205
      TabIndex        =   2
      Top             =   1230
      Width           =   555
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "员 工 证"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   480
      Left            =   1770
      TabIndex        =   1
      Top             =   195
      Width           =   1920
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "贴照片处"
      Height          =   405
      Left            =   735
      TabIndex        =   0
      Top             =   1725
      Width           =   465
      WordWrap        =   -1  'True
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   1  'Opaque
      Height          =   1800
      Left            =   240
      Top             =   990
      Width           =   1485
   End
   Begin VB.Shape Shape2 
      BackStyle       =   1  'Opaque
      Height          =   3405
      Left            =   45
      Top             =   60
      Width           =   5550
   End
End
Attribute VB_Name = "FrmPrintPaper"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub CmdPrint_Click()
Me.BorderStyle = 0
PicPrint.Visible = False
Me.PrintForm
DoEvents
Me.BorderStyle = 3
PicPrint.Visible = True
End Sub