📄 frmpreview.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPreview
BackColor = &H80000004&
Caption = "打印预览"
ClientHeight = 6285
ClientLeft = 1410
ClientTop = 1605
ClientWidth = 9315
Icon = "frmPreview.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 6285
ScaleWidth = 9315
WindowState = 2 'Maximized
Begin VB.PictureBox picRight
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 3930
Left = 8325
MousePointer = 1 'Arrow
ScaleHeight = 3930
ScaleWidth = 555
TabIndex = 6
Top = 945
Width = 555
Begin VB.PictureBox picVS
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 510
Left = 135
ScaleHeight = 480
ScaleWidth = 210
TabIndex = 7
Top = 225
Width = 240
End
End
Begin VB.PictureBox picTb
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000004&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 690
Left = 840
ScaleHeight = 690
ScaleWidth = 7485
TabIndex = 2
Top = -30
Width = 7485
Begin MSComctlLib.Toolbar tbOperate
Height = 330
Left = -180
TabIndex = 3
Top = -15
Width = 7335
_ExtentX = 12938
_ExtentY = 582
ButtonWidth = 1482
ButtonHeight = 582
Style = 1
TextAlignment = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 12
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "printer"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "输出"
Key = "export"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 4
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "jpg"
Text = "图像(Jpg、Bmp)"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "html"
Text = "超文本(Html)"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "excel"
Text = "Excel"
EndProperty
EndProperty
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置"
Key = "set"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "边距"
Key = "margin"
Style = 1
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "100%"
Key = "zoom"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 10
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "r25"
Object.Tag = "0.25"
Text = " 25%"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "r50"
Object.Tag = "0.5"
Text = " 50%"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "r75"
Object.Tag = "0.75"
Text = " 75%"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "r100"
Object.Tag = "1"
Text = "100%"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "r125"
Object.Tag = "1.25"
Text = "125%"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "r150"
Object.Tag = "1.5"
Text = "150%"
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "r200"
Object.Tag = "2"
Text = "200%"
EndProperty
BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "rwidth"
Object.Tag = "no"
Text = "页宽"
EndProperty
BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "rpage"
Object.Tag = "no"
Text = "整页"
EndProperty
BeginProperty ButtonMenu10 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "rdblpage"
Object.Tag = "no"
Text = "双页"
EndProperty
EndProperty
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "help"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "quit"
EndProperty
EndProperty
Begin MSComctlLib.ImageList imgIcon
Left = 5760
Top = -135
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":030A
Key = "export"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":0DD4
Key = "quit"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":0F2E
Key = "help"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":36E0
Key = "margin"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":3B32
Key = "printer"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":62E4
Key = "set"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":8A96
Key = "zoom"
EndProperty
EndProperty
End
End
End
Begin VB.PictureBox picBK
Appearance = 0 'Flat
BackColor = &H00808080&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 5235
Left = 180
MousePointer = 99 'Custom
ScaleHeight = 5235
ScaleWidth = 8385
TabIndex = 0
Top = 630
Width = 8385
Begin VB.PictureBox picPage
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1995
Index = 0
Left = 90
ScaleHeight = 1995
ScaleWidth = 1950
TabIndex = 1
Top = 225
Visible = 0 'False
Width = 1950
End
End
Begin VB.PictureBox picBot
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 465
Left = 120
ScaleHeight = 465
ScaleWidth = 8115
TabIndex = 4
Top = 5895
Width = 8115
Begin VB.PictureBox flatProgressBar1
Height = 210
Left = 1410
ScaleHeight = 150
ScaleWidth = 570
TabIndex = 8
Top = 60
Width = 630
End
Begin VB.PictureBox picHS
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 195
Left = 2160
ScaleHeight = 165
ScaleWidth = 525
TabIndex = 5
Top = 135
Width = 555
End
Begin VB.Label labInfo
Height = 195
Left = 30
TabIndex = 9
Top = 30
Width = 1545
End
End
End
Attribute VB_Name = "frmPreview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -