VERSION 5.00
Begin VB.Form Form45 
   Caption         =   "直齒輪幾何計算結果顯示打印窗口"
   ClientHeight    =   7245
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9165
   LinkTopic       =   "Form45"
   ScaleHeight     =   7245
   ScaleWidth      =   9165
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "顯示結果"
      Height          =   615
      Left            =   8040
      TabIndex        =   2
      Top             =   6480
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   615
      Left            =   6720
      TabIndex        =   1
      Top             =   6480
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "打印"
      Height          =   615
      Left            =   5400
      TabIndex        =   0
      Top             =   6480
      Width           =   975
   End
End
Attribute VB_Name = "Form45"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'打印機觸發
Private Sub Command1_Click()
 Me.AutoRedraw = True
    Command1.Visible = False
    Command2.Visible = False
    Command3.Visible = False
    Dim UR As Integer
    UR = MsgBox("做好打印準備后請按“確定”，取消打印請按“退出”", vbOKCancel + vbInformation + vbDefaultButton1, "打印準備")
    If (UR = vbCancel) Then
       Me.Hide
       Form2.Show
    Else: On Error GoTo printerror
          Me.PrintForm
    End If
    Exit Sub
printerror:
          MsgBox (Err.Description), , "出錯信息"
          Me.Hide
       Form2.Show
End Sub

Private Sub Command2_Click()
 Me.Hide
    Form2.Show
    Unload Me
End Sub

Private Sub Command3_Click()

   Dim m As Single
Dim av As Double
Dim ha As Single
Dim hf As Single
Dim h As Single
Dim da As Single
Dim df As Single
Dim db As Single
Dim p As Single
Dim pb As Single
Dim s As Single
Dim e As Single
Dim a As Single
Dim d0 As Single
Dim d As Single
Dim i As Single
Dim z1 As Single
Dim z2 As Single
Dim c As Single
Dim dd As Single
Dim dda As Single
Dim ddf As Single
Dim ddb As Single
Dim dd0 As Single


m = Form2.Text1.Text
z1 = Form2.Text4.Text
z2 = Form2.Text2.Text
av = Form2.Text3.Text
d = Form2.Text5.Text
ha = Form2.Text6.Text
hf = Form2.Text7.Text
h = Form2.Text8.Text
da = Form2.Text9.Text
df = Form2.Text10.Text
db = Form2.Text11.Text
p = Form2.Text12.Text
pb = Form2.Text13.Text
s = Form2.Text14.Text
e = Form2.Text15.Text
c = Form2.Text16.Text
a = Form2.Text17.Text
d0 = Form2.Text18.Text
i = Form2.Text19.Text
dd = Form2.Text24.Text
dda = Form2.Text23.Text
ddf = Form2.Text22.Text
ddb = Form2.Text21.Text
dd0 = Form2.Text20.Text
   
   Command1.Enabled = True
   Command2.Enabled = True
   Command1.Visible = True
   Command2.Visible = True

   
   Me.Print
   Me.Print Spc(5); "直齒小齒輪幾何參數計算結果如下：（壓力角單位為 °，各尺寸單位為mm）"
   Me.Print
   'Me.Print
   Me.Print Spc(5); "已知參數："
   'Me.Print
   Me.Print Spc(5); "模      數："; Spc(5); m
   'Me.Print
   Me.Print Spc(5); "小齒輪齒數："; Spc(5); z1
   'Me.Print
   Me.Print Spc(5); "大齒輪齒數："; Spc(5); z2
  ' Me.Print
   Me.Print Spc(5); "壓  力  角："; Spc(5); av
   'Me.Print
   Me.Print Spc(5); "計算結果："
   Me.Print Spc(5); "1.小齒輪幾何參數："
   Me.Print Spc(5); "分度圓直徑："; Spc(5); d
   'Me.Print
   'Me.Print Spc(5); "齒  頂  高："; Spc(5); ha
   'Me.Print
   'Me.Print Spc(5); "齒  根  高："; Spc(5); hf
   'Me.Print
   'Me.Print Spc(5); "齒  全  高："; Spc(5); h
   'Me.Print
   Me.Print Spc(5); "齒頂圓直徑："; Spc(5); da
   'Me.Print
   Me.Print Spc(5); "齒根圓直徑："; Spc(5); df
   Me.Print Spc(5); "基 圓 直徑："; Spc(5); db
   Me.Print Spc(5); "節 圓 直徑："; Spc(5); d0
   Me.Print Spc(5); "2.大齒輪幾何參數："
   Me.Print Spc(5); "分度圓直徑："; Spc(5); dd
   'Me.Print
   'Me.Print Spc(5); "齒  頂  高："; Spc(5); ha
   'Me.Print
   'Me.Print Spc(5); "齒  根  高："; Spc(5); hf
   'Me.Print
   'Me.Print Spc(5); "齒  全  高："; Spc(5); h
   'Me.Print
   Me.Print Spc(5); "齒頂圓直徑："; Spc(5); dda
   'Me.Print
   Me.Print Spc(5); "齒根圓直徑："; Spc(5); ddf
   Me.Print Spc(5); "基 圓 直徑："; Spc(5); ddb
   Me.Print Spc(5); "節 圓 直徑："; Spc(5); dd0
   Me.Print Spc(5); "3.公共參數："
   Me.Print Spc(5); "齒  頂  高："; Spc(5); ha
   'Me.Print
   Me.Print Spc(5); "齒  根  高："; Spc(5); hf
   'Me.Print
   Me.Print Spc(5); "齒  全  高："; Spc(5); h
   Me.Print Spc(5); "齒      距："; Spc(5); p
   'Me.Print
   Me.Print Spc(5); "基 圓 齒距："; Spc(5); pb
   'Me.Print
   Me.Print Spc(5); "齒      厚："; Spc(5); s
   'Me.Print
   Me.Print Spc(5); "齒  槽  寬："; Spc(5); e
   'Me.Print
   Me.Print Spc(5); "頂      隙："; Spc(5); c
   'Me.Print
   Me.Print Spc(5); "標準中心距："; Spc(5); a
   'Me.Print
   'Me.Print
   Me.Print Spc(5); "傳  動  比："; Spc(5); i
   
   
   
End Sub

Private Sub Form_Load()
'Me.WindowState = 2  '最大化
   Me.BackColor = &HFFFFFF
   Me.ForeColor = &H80000012
   FontSize = 10
   Form2.Hide
   Command1.Enabled = False
   Command2.Enabled = False
   Command1.Visible = False
   Command2.Visible = False
   


   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
End Sub