skjzpreveiw.frm

计算机学位毕业设计 客房管理系统 无解压密码

End Sub
Private Sub Form_Resize()
    With preview1
        .Width = IIf(ScaleWidth - (.left) * 2 > 0, ScaleWidth - (.left) * 2, 0)
        .Height = IIf(ScaleHeight - .top > 0, ScaleHeight - .top, 0)
        preview1.Refresh
    End With
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    If Button = "退出" Then
       Unload Me
       Exit Sub
    End If
    Dim X
    Dim psm
    Dim zm
    Dim FS, ZFS
    
    On Error GoTo EXITERROR
    
    ZFS = Check1.Value + 1
    zm = Val(Combo1.Text)
    Sr = 1440
    If Button = "打印" Then
       CommonDialog1.ShowPrinter
       p.PrintStartDoc Printer, zm
    End If
    If Button = "预览" Then
       p.PrintStartDoc preview1, zm
    End If
    p.ForeColor = &H0&
    p.ForeColor = &HFF0000
    p.CurrentY = 1.2 * Sr
    
    For FS = 1 To ZFS
    
    p.CurrentX = 1.5 * Sr
    p.FontName = "宋体"
    p.FontItalic = True
    p.FontSize = 12
    p.PrintPrint STRBGNAME
    p.CurrentX = 2.2 * Sr
    p.CurrentY = p.CurrentY - 240.485 / 2
    p.FontSize = 18
    p.FontItalic = False
    p.PrintPrint KRJZ1.Label1(0).Caption
    p.FontSize = 11
    p.NewLine
    p.NewLine
    p.CurrentX = 2.2 * Sr
    p.PrintPrint "日期:" & Format(Now(), "LONG DATE") & Space(12) & "№" & KRJZ1.Label1(18).Caption
    p.NewLineBG 0
    p.CurrentY = p.CurrentY + 80
    p.CurrentX = 200
    p.BoxOut "客人姓名", 1200, "C", 100, "1111"
    p.BoxOut " " & KRJZ1.Label1(27).Caption, 1600, "L", 100, "1111"
    p.BoxOut "性别", 800, "C", 100, "1111"
    p.BoxOut KRJZ1.Label1(29).Caption, 730, "C", 100, "1111"
    p.BoxOut "房号", 800, "C", 100, "1111"
    p.BoxOut KRJZ1.Label1(31).Caption, 800, "C", 100, "1111"
    p.BoxOut "房价", 805, "C", 100, "1111"
    p.BoxOut KRJZ1.Label1(36).Caption, 1525, "C", 100, "1111"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 100
    p.BoxOut "入住日期", 1200, "C", 100, "1111"
    p.BoxOut KRJZ1.Label1(28).Caption, 1600, "C", 100, "1111"
    p.BoxOut "离住日期", 1210, "C", 100, "1111"
    p.BoxOut KRJZ1.Label1(30).Caption, 1600, "C", 100, "1111"
    p.BoxOut "保证金", 1145, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(0).Caption, 1525, "L", 100, "1111"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 100
    p.BoxOut "客", 490, "C", 100, "1010"
    p.BoxOut "房租费", 850, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(1).Caption, 1450, "R", 100, "1111"
    p.BoxOut "停车费", 1210, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(6).Caption, 1600, "R", 100, "1111"
    p.BoxOut "舞  厅", 1150, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(11).Caption, 1520, "R", 100, "1111"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 100
    p.BoxOut "房", 490, "C", 100, "1010"
    p.BoxOut "商  品", 850, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(2).Caption, 1450, "R", 100, "1111"
    p.BoxOut "电话费", 1210, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(7).Caption, 1600, "R", 100, "1111"
    p.BoxOut "旅游费", 1150, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(12).Caption, 1520, "R", 100, "1111"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 102
    p.BoxOut "部", 490, "C", 100, "1011"
    p.BoxOut "加床费", 850, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(3).Caption, 1450, "R", 100, "1111"
    p.BoxOut "商务费", 1210, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(8).Caption, 1600, "R", 100, "1111"
    p.BoxOut "赔偿费", 1150, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(13).Caption, 1520, "R", 100, "1111"
    
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 100
    p.BoxOut "膳", 490, "C", 100, "1010"
    p.BoxOut "餐饮费", 850, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(4).Caption, 1450, "R", 100, "1111"
    p.BoxOut "会  议", 1210, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(9).Caption, 1600, "R", 100, "1111"
    p.BoxOut "其  他", 1150, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(14).Caption, 1520, "R", 100, "1111"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 100
    p.BoxOut "食", 490, "C", 100, "1010"
    p.BoxOut "酒  水", 850, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(5).Caption, 1450, "R", 100, "1111"
    p.BoxOut "酒  吧", 1210, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(10).Caption, 1600, "R", 100, "1111"
    p.BoxOut "合  计", 1150, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(15).Caption, 1520, "R", 100, "1111"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 100
    p.BoxOut KRJZ1.Label1(35).Caption, 1350, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(16).Caption, 1450, "R", 100, "1111"
    p.BoxOut "结帐收现", 1210, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(18).Caption, 1600, "R", 100, "1111"
    p.BoxOut "下欠金额", 1150, "C", 100, "1111"
    p.BoxOut KRJZ1.Label4(17).Caption, 1520, "R", 100, "1111"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 98
    p.BoxOut "合计金额<大写>", 1890, "C", 100, "1111"
    p.BoxOut KRJZ1.Label1(34).Caption, 6430, "L", 100, "1111"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 100
    p.BoxOut " 备  注：", 5000, "L", 10, "1110"
    p.BoxOut "挂", 400, "C", 10, "1110"
    p.BoxOut "", 2910, "C", 10, "1110"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 10
    p.BoxOut " ", 5000, "L", 10, "1010"
    p.BoxOut "帐", 400, "C", 10, "1010"
    p.BoxOut "", 2910, "C", 10, "1010"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 10
    p.BoxOut " ", 5000, "L", 10, "1010"
    p.BoxOut "签", 400, "C", 10, "1010"
    p.BoxOut "签名(盖章):", 2910, "C", 10, "1010"
    p.NewLineBG 0
    p.CurrentX = 200
    p.CurrentY = p.CurrentY + 10
    p.BoxOut " ", 5000, "L", 10, "1011"
    p.BoxOut "单", 400, "C", 10, "1011"
    p.BoxOut "    年  月  日", 2910, "C", 10, "1011"
    p.NewLineBG 0
    p.CurrentX = 300
    p.CurrentY = p.CurrentY + 100
    p.PrintPrint "负责人：              制单：" & frmLogin.CZYXM & Space(8 - LenB(frmLogin.CZYXM)) & "   收款:                总1页第1页"
    p.NewLine
    p.NewLine
    p.NewLine
    p.NewLine
    p.NewLine
    If FS = 1 Then
       p.PrintLine p.CurrentX, p.CurrentY, p.PaperWidth, p.CurrentY
       p.NewLine
       p.NewLine
       p.NewLine
       p.NewLine
       p.NewLine
    End If
    Next
    p.EndDoc
    Exit Sub
    
EXITERROR:
    If Err.Number = 32755 Then
        Exit Sub
        Else
          MsgBox CStr(Err.Number) & "-" & Err.Description, vbCritical, "错误信息"
          Exit Sub
    End If


End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    If ButtonMenu = "25%" Then
       Combo1.Text = "0.25"
       Else
         If ButtonMenu = "50%" Then
            Combo1.Text = "0.5"
            Else
              If ButtonMenu = "100%" Then
                 Combo1.Text = "1"
                 Else
                   If ButtonMenu = "200%" Then
                      Combo1.Text = "2"
                      Else
                        If ButtonMenu = "300%" Then
                           Combo1.Text = "3"
                        End If
                   End If
              End If
         End If
    End If

    Toolbar1_ButtonClick Toolbar1.Buttons(2)
End Sub