📄 thjzpreveiw.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{07525B37-E688-4F18-BBFE-7A97EE12D38D}#1.0#0"; "PREVIEW.OCX"
Begin VB.Form THJZPREVIEW
BorderStyle = 1 'Fixed Single
Caption = "团会离店结算单"
ClientHeight = 6855
ClientLeft = 45
ClientTop = 330
ClientWidth = 10080
Icon = "THJZPREVEIW.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6855
ScaleWidth = 10080
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 960
Top = 3240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin 预览.preview preview1
Height = 6135
Left = 0
TabIndex = 0
Top = 720
Width = 7695
_ExtentX = 13573
_ExtentY = 10821
BackColor = -2147483643
ForeColor = -2147483640
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 720
Left = 0
TabIndex = 1
Top = 0
Width = 10080
_ExtentX = 17780
_ExtentY = 1270
ButtonWidth = 873
ButtonHeight = 1111
Appearance = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
ImageIndex = 2
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 5
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "25%"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "50%"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "100%"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "200%"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "300%"
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
ImageIndex = 9
EndProperty
EndProperty
Begin VB.Frame Frame2
Height = 615
Left = 5160
TabIndex = 5
Top = 0
Width = 3255
Begin VB.CheckBox Check1
Caption = "一页内打印两联单"
Height = 255
Left = 120
TabIndex = 6
Top = 240
Width = 3015
End
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 495
Left = 2160
TabIndex = 2
Top = 120
Width = 2175
Begin VB.ComboBox Combo1
Height = 300
Left = 960
TabIndex = 3
Text = "1"
Top = 80
Width = 975
End
Begin VB.Label Label1
Caption = "显示比例:"
Height = 375
Left = 120
TabIndex = 4
Top = 120
Width = 855
End
End
End
Begin MSComctlLib.ImageList ImageList2
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 26
ImageHeight = 23
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":048E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":0956
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":0E5A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":0FDE
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":14A6
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":162A
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":1AB6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "THJZPREVEIW.frx":1F0A
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "THJZPREVIEW"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Xx, Yy, Xx1, Yy1
Dim cx, cy
Dim Sr
Dim p As New PrnCls
Dim START As Long, STRPRINT As String, BZTOP As Long, STRFH As String
Private Sub Check1_Click()
Toolbar1_ButtonClick Toolbar1.Buttons(2)
End Sub
Private Sub Combo1_Validate(Cancel As Boolean)
Toolbar1_ButtonClick Toolbar1.Buttons(2)
End Sub
Private Sub Form_Activate()
Toolbar1_ButtonClick Toolbar1.Buttons(2)
End Sub
Private Sub Form_Load()
Combo1.AddItem ("0.25")
Combo1.AddItem ("0.5")
Combo1.AddItem ("1")
Combo1.AddItem ("2")
Combo1.AddItem ("3")
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 KRJZ2.Label1(0).Caption
p.FontSize = 11
p.NewLine
p.NewLine
p.CurrentX = 2.2 * Sr
p.PrintPrint "日期:" & Format(Now(), "LONG DATE") & Space(12) & "№" & KRJZ2.Label1(18).Caption
p.NewLineBG 0
p.CurrentY = p.CurrentY + 80
p.CurrentX = 200
p.BoxOut "团会名称", 1200, "C", 100, "1111"
p.BoxOut " " & KRJZ2.Label1(27).Caption, 4000, "L", 100, "1111"
p.BoxOut "房号", 800, "C", 100, "1111"
p.BoxOut KRJZ2.Label1(31).Caption, 2300, "C", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "入住日期", 1200, "C", 100, "1111"
p.BoxOut KRJZ2.Label1(28).Caption, 1600, "C", 100, "1111"
p.BoxOut "离住日期", 1210, "C", 100, "1111"
p.BoxOut KRJZ2.Label1(30).Caption, 1600, "C", 100, "1111"
p.BoxOut "保证金", 1145, "C", 100, "1111"
p.BoxOut KRJZ2.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 KRJZ2.Label4(1).Caption, 1450, "R", 100, "1111"
p.BoxOut "停车费", 1210, "C", 100, "1111"
p.BoxOut KRJZ2.Label4(6).Caption, 1600, "R", 100, "1111"
p.BoxOut "舞 厅", 1150, "C", 100, "1111"
p.BoxOut KRJZ2.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 KRJZ2.Label4(2).Caption, 1450, "R", 100, "1111"
p.BoxOut "电话费", 1210, "C", 100, "1111"
p.BoxOut KRJZ2.Label4(7).Caption, 1600, "R", 100, "1111"
p.BoxOut "旅游费", 1150, "C", 100, "1111"
p.BoxOut KRJZ2.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 KRJZ2.Label4(3).Caption, 1450, "R", 100, "1111"
p.BoxOut "商务费", 1210, "C", 100, "1111"
p.BoxOut KRJZ2.Label4(8).Caption, 1600, "R", 100, "1111"
p.BoxOut "赔偿费", 1150, "C", 100, "1111"
p.BoxOut KRJZ2.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 KRJZ2.Label4(4).Caption, 1450, "R", 100, "1111"
p.BoxOut "会 议", 1210, "C", 100, "1111"
p.BoxOut KRJZ2.Label4(9).Caption, 1600, "R", 100, "1111"
p.BoxOut "其 他", 1150, "C", 100, "1111"
p.BoxOut KRJZ2.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 KRJZ2.Label4(5).Caption, 1450, "R", 100, "1111"
p.BoxOut "酒 吧", 1210, "C", 100, "1111"
p.BoxOut KRJZ2.Label4(10).Caption, 1600, "R", 100, "1111"
p.BoxOut "合 计", 1150, "C", 100, "1111"
p.BoxOut KRJZ2.Label4(15).Caption, 1520, "R", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut KRJZ2.Label1(35).Caption, 1350, "C", 100, "1111"
p.BoxOut KRJZ2.Label4(16).Caption, 1450, "R", 100, "1111"
p.BoxOut "结帐收现", 1210, "C", 100, "1111"
p.BoxOut KRJZ2.Label4(18).Caption, 1600, "R", 100, "1111"
p.BoxOut "下欠金额", 1150, "C", 100, "1111"
p.BoxOut KRJZ2.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 KRJZ2.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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -