📄 hjszpreview.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.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 HJSZPREVIEW
BorderStyle = 1 'Fixed Single
Caption = "房间设置一览表"
ClientHeight = 6855
ClientLeft = 45
ClientTop = 330
ClientWidth = 10080
Icon = "HJSZPREVIEW.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6855
ScaleWidth = 10080
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1200
Top = 3000
_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 = 4
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
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "输出"
EndProperty
EndProperty
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 495
Left = 2160
TabIndex = 2
Top = 120
Width = 5415
Begin VB.TextBox Text1
Height = 300
Left = 3720
Locked = -1 'True
TabIndex = 5
Text = "1"
Top = 80
Width = 730
End
Begin VB.ComboBox Combo1
Height = 300
Left = 960
TabIndex = 3
Text = "1"
Top = 80
Width = 975
End
Begin MSComCtl2.UpDown UpDown1
Height = 300
Left = 4440
TabIndex = 6
Top = 75
Width = 270
_ExtentX = 476
_ExtentY = 529
_Version = 393216
BuddyControl = "Text1"
BuddyDispid = 196610
OrigLeft = 4320
OrigTop = 75
OrigRight = 4590
OrigBottom = 375
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label Label2
Caption = "当前预览页码"
Height = 255
Left = 2520
TabIndex = 7
Top = 120
Width = 1335
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 = "HJSZPREVIEW.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HJSZPREVIEW.frx":048E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HJSZPREVIEW.frx":0956
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HJSZPREVIEW.frx":0E5A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HJSZPREVIEW.frx":0FDE
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HJSZPREVIEW.frx":14A6
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HJSZPREVIEW.frx":162A
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HJSZPREVIEW.frx":1AB6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "HJSZPREVIEW.frx":1F0A
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "HJSZPREVIEW"
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
Dim X
Dim psm
Dim zm
Dim HC, YHC ' 页记录数
Dim PS, ZPS ' 总页数
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")
If HJSZ.Data1.Recordset.RecordCount > 0 Then HJSZ.Data1.Recordset.MoveLast
YHC = 30 '设置页记录数
PS = 1 '设置起始页1
ZPS = Int(Round(HJSZ.Data1.Recordset.RecordCount / YHC + 0.5)) '设置总页数
Text1.Text = 1
UpDown1.Min = 1
UpDown1.Max = ZPS
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)
Dim INTFROMPAGE, INTTOPAGE, INTPAGE
On Error GoTo EXITERROR
If Button = "打印" Then
CommonDialog1.FromPage = UpDown1.Min
CommonDialog1.ToPage = UpDown1.Max
CommonDialog1.Min = UpDown1.Min
CommonDialog1.Max = UpDown1.Max
CommonDialog1.ShowPrinter
If CommonDialog1.flags Mod 16 = 0 Then
INTFROMPAGE = 1
INTTOPAGE = UpDown1.Max
End If
If (CommonDialog1.flags - 1) Mod 16 = 0 Then
INTFROMPAGE = 1
INTTOPAGE = UpDown1.Max
End If
If (CommonDialog1.flags - 2) Mod 16 = 0 Then
INTFROMPAGE = CommonDialog1.FromPage
INTTOPAGE = CommonDialog1.ToPage
End If
For INTPAGE = INTFROMPAGE To INTTOPAGE '起始页码
Text1.Text = INTPAGE
Toolbar1_ButtonClick Toolbar1.Buttons(4)
Next
End If
If Button = "退出" Then
Unload Me
Exit Sub
End If
zm = Val(Combo1.Text)
Sr = 1440
If Button = "输出" Then
p.PrintStartDoc Printer, zm
Else
p.PrintStartDoc preview1, zm
End If
PS = Text1.Text
HJSZ.Data1.Recordset.MoveFirst
For HC = 1 To YHC * (PS - 1)
HJSZ.Data1.Recordset.MoveNext
Next
p.ForeColor = &H0&
p.ForeColor = &HFF0000
p.CurrentY = 1.2 * Sr
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 "房间设置一览表"
p.FontSize = 11
p.NewLineBG 0
p.NewLineBG 0
p.CurrentX = 2.2 * Sr
p.PrintPrint "日期:" & Format(Now, "LONG DATE")
p.NewLineBG 0
p.CurrentY = p.CurrentY + 80
p.CurrentX = 200
p.FontBold = True
p.BoxOut "楼层", 1200, "C", 200, "1111"
p.BoxOut "房号", 1200, "C", 200, "1111"
p.BoxOut "类型", 1200, "C", 200, "1111"
p.BoxOut "房态", 1200, "C", 200, "1111"
p.BoxOut "房价", 1200, "C", 200, "1111"
p.BoxOut "附 注", 2300, "C", 200, "1111"
p.FontBold = False
p.CurrentY = p.CurrentY + 100
For HC = 1 To YHC
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
If Not HJSZ.Data1.Recordset.EOF Then
p.BoxOut IIf(Not IsNull(HJSZ.Data1.Recordset("楼层")), HJSZ.Data1.Recordset("楼层"), ""), 1200, "C", 100, "1111"
p.BoxOut IIf(Not IsNull(HJSZ.Data1.Recordset("房号")), HJSZ.Data1.Recordset("房号"), ""), 1200, "C", 100, "1111"
p.BoxOut IIf(Not IsNull(HJSZ.Data1.Recordset("类型")), " " & HJSZ.Data1.Recordset("类型"), ""), 1200, "L", 100, "1111"
p.BoxOut IIf(Not IsNull(HJSZ.Data1.Recordset("房态")), HJSZ.Data1.Recordset("房态"), ""), 1200, "C", 100, "1111"
p.BoxOut IIf(Not IsNull(HJSZ.Data1.Recordset("房价")), FormatNumber(HJSZ.Data1.Recordset("房价"), 2, vbTrue, , vbFalse), ""), 1200, "R", 100, "1111"
p.BoxOut IIf(Not IsNull(HJSZ.Data1.Recordset("附注")), HJSZ.Data1.Recordset("附注"), ""), 2300, "C", 100, "1111"
HJSZ.Data1.Recordset.MoveNext
Else
p.BoxOut "", 1200, "C", 100, "1111"
p.BoxOut "", 1200, "C", 100, "1111"
p.BoxOut "", 1200, "C", 100, "1111"
p.BoxOut "", 1200, "C", 100, "1111"
p.BoxOut "", 1200, "C", 100, "1111"
p.BoxOut "", 2300, "C", 100, "1111"
End If
Next
p.NewLineBG 0
p.CurrentX = 200
p.CurrentY = p.CurrentY + 100
p.CurrentX = 400
p.CurrentY = p.CurrentY + 100
p.PrintPrint "负责人： 制表：" & frmLogin.CZYXM & Space(8 - LenB(frmLogin.CZYXM)) & " 总" & CStr(ZPS) & "页第" & CStr(PS) & "页"
p.NewLine
p.NewLine
p.NewLine
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
Public Sub PR()
Toolbar1_ButtonClick Toolbar1.Buttons(2)
End Sub
Private Sub UpDown1_Change()
Toolbar1_ButtonClick Toolbar1.Buttons(2)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -