?? skrzpreview.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 SKRZPREVIEW
BorderStyle = 1 'Fixed Single
Caption = "散客入住登記表"
ClientHeight = 6855
ClientLeft = 45
ClientTop = 330
ClientWidth = 10080
Icon = "SKRZPREVIEW.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6855
ScaleWidth = 10080
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 840
Top = 2880
_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 = "SKRZPREVIEW.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKRZPREVIEW.frx":048E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKRZPREVIEW.frx":0956
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKRZPREVIEW.frx":0E5A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKRZPREVIEW.frx":0FDE
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKRZPREVIEW.frx":14A6
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKRZPREVIEW.frx":162A
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKRZPREVIEW.frx":1AB6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "SKRZPREVIEW.frx":1F0A
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "SKRZPREVIEW"
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
Public 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 SKRZ.Label1(0).Caption
p.FontSize = 11
p.NewLine
p.NewLine
p.CurrentX = 2.2 * Sr
p.FontSize = 11
p.PrintPrint "日期:" & Format(Now(), "LONG DATE") & Space(12) & SKRZ.Label1(1).Caption & SKRZ.Text6.Text
p.NewLineBG 0
p.CurrentY = p.CurrentY + 80
p.CurrentX = 200
p.BoxOut "客人姓名", 1200, "C", 100, "1111"
p.BoxOut " " & SKRZ.Text2.Text, 1530, "L", 100, "1111"
p.BoxOut "性別", 800, "C", 100, "1111"
p.BoxOut SKRZ.Combo1.Text, 800, "C", 100, "1111"
p.BoxOut "房號", 800, "C", 100, "1111"
p.BoxOut SKRZ.Text8.Text, 800, "C", 100, "1111"
p.BoxOut "房價", 800, "C", 100, "1111"
p.BoxOut SKRZ.Text3.Text, 1523, "C", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "入住日期", 1200, "C", 100, "1111"
p.BoxOut " " & Format(SKRZ.DTPicker1.Value, "LONG DATE"), 2950, "L", 100, "1111"
p.BoxOut "離住日期", 1200, "C", 100, "1111"
p.BoxOut " ", 2940, "L", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "證件名稱", 1200, "C", 100, "1111"
p.BoxOut " " & SKRZ.DBCombo1.Text, 2950, "L", 100, "1111"
p.BoxOut "證件號碼", 1200, "C", 100, "1111"
p.BoxOut " " & SKRZ.Text7.Text, 2940, "L", 100, "1111"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut "保 證 金", 1200, "C", 100, "1110"
p.BoxOut " " & SKRZ.Text5.Text & " 金額" & SKRZ.Label2(7).Caption, 7110, "L", 100, "1110"
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 102
p.BoxOut " 備注:", 800, "L", 100, "1100"
p.BoxOut "", 7510, "L", 100, "0110"
Dim HC1, HC2, HC3
HC1 = 0
START = 1
While START < LenB(SKRZ.Text1(8).Text)
STRPRINT = MidB(SKRZ.Text1(8).Text, START, 66)
If InStrB(1, STRPRINT, Chr(13)) > 0 Then
START = START + InStrB(1, STRPRINT, Chr(13)) + 3
STRPRINT = MidB(STRPRINT, 1, InStrB(1, STRPRINT, Chr(13)))
Else
START = START + 66
End If
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut " ", 800, "L", 100, "1000"
p.BoxOut STRPRINT, 7510, "L", 100, "0010"
HC1 = HC1 + 1
Wend
If HC1 < 5 Then
For HC2 = 1 To 5 - HC1
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut " ", 800, "L", 100, "1000"
p.BoxOut " ", 7510, "L", 100, "0010"
Next
End If
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.BoxOut " ", 800, "L", 100, "1001"
p.BoxOut " ", 7510, "L", 100, "0011"
p.NewLineBG 0
p.CurrentX = 400
p.CurrentY = p.CurrentY + 200
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 + -