printform.frm

来自「一套比较全面的茶馆控制系统软件源代码」· FRM 代码 · 共 82 行

VERSION 5.00
Begin VB.Form PrintForm 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "打印模块"
   ClientHeight    =   900
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   4680
   Icon            =   "PrintForm.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   900
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdExit 
      Caption         =   "取消打印(&Exit)"
      CausesValidation=   0   'False
      Height          =   405
      Left            =   2790
      TabIndex        =   1
      Top             =   270
      Width           =   1650
   End
   Begin VB.CommandButton cmdPrint 
      Caption         =   "打印收据(&P)"
      Default         =   -1  'True
      Height          =   405
      Left            =   1185
      TabIndex        =   0
      Top             =   270
      Width           =   1575
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00E0E0E0&
      X1              =   -15
      X2              =   4665
      Y1              =   870
      Y2              =   870
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   4680
      Y1              =   825
      Y2              =   825
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   360
      Picture         =   "PrintForm.frx":030A
      Top             =   180
      Width           =   480
   End
End
Attribute VB_Name = "PrintForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdExit_Click()

  Unload Me
  
End Sub

Private Sub cmdPrint_Click()
     
  PrintSheet
  Unload Me

End Sub

Private Sub Form_Load()

  FormTop True, Me
  
End Sub