📄 n_prnprv.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form PrnPRV
Caption = "打印预览"
ClientHeight = 7695
ClientLeft = 915
ClientTop = 1380
ClientWidth = 6825
BeginProperty Font
Name = "Arial"
Size = 7.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "n_prnprv.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 7695
ScaleWidth = 6825
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.FileListBox TmpList
Height = 1260
Left = 5115
TabIndex = 29
Top = 1515
Visible = 0 'False
Width = 1632
End
Begin VB.PictureBox bBar
Align = 1 'Align Top
Appearance = 0 'Flat
AutoSize = -1 'True
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 6825
TabIndex = 16
Top = 0
Width = 6825
Begin VB.ComboBox zVal
Height = 315
ItemData = "n_prnprv.frx":0442
Left = 3600
List = "n_prnprv.frx":045E
Style = 2 'Dropdown List
TabIndex = 28
ToolTipText = "zoom factor"
Top = -30
Width = 768
End
Begin VB.ComboBox ePag
Height = 315
ItemData = "n_prnprv.frx":0487
Left = 4470
List = "n_prnprv.frx":0489
Style = 2 'Dropdown List
TabIndex = 27
ToolTipText = "select (selected) page"
Top = -15
Width = 768
End
Begin VB.CommandButton Cmd
Height = 280
Index = 10
Left = 45
Picture = "n_prnprv.frx":048B
Style = 1 'Graphical
TabIndex = 26
ToolTipText = "关闭"
Top = 0
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 8
Left = 3120
Picture = "n_prnprv.frx":058D
Style = 1 'Graphical
TabIndex = 25
ToolTipText = "最后一页"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 7
Left = 2835
Picture = "n_prnprv.frx":068F
Style = 1 'Graphical
TabIndex = 24
ToolTipText = "下页(PgDn)"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 6
Left = 2550
Picture = "n_prnprv.frx":0791
Style = 1 'Graphical
TabIndex = 23
ToolTipText = "上页(PgUp)"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 5
Left = 2265
Picture = "n_prnprv.frx":0893
Style = 1 'Graphical
TabIndex = 22
ToolTipText = "第一页"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 4
Left = 1935
Picture = "n_prnprv.frx":0995
Style = 1 'Graphical
TabIndex = 21
ToolTipText = "选择打印机"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 3
Left = 1650
Picture = "n_prnprv.frx":0A97
Style = 1 'Graphical
TabIndex = 20
ToolTipText = "打印"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 2
Left = 1320
Picture = "n_prnprv.frx":0B99
Style = 1 'Graphical
TabIndex = 19
ToolTipText = "缩小(-)"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 1
Left = 1035
Picture = "n_prnprv.frx":0C9B
Style = 1 'Graphical
TabIndex = 18
ToolTipText = "放大(+)"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
Begin VB.CommandButton Cmd
Height = 280
Index = 0
Left = 750
Picture = "n_prnprv.frx":0D9D
Style = 1 'Graphical
TabIndex = 17
ToolTipText = "重置(CR)"
Top = -15
UseMaskColor = -1 'True
Width = 290
End
End
Begin VB.PictureBox sBar
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 216
Left = 0
ScaleHeight = 210
ScaleWidth = 6825
TabIndex = 9
Top = 7485
Width = 6825
Begin VB.Label zPag
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 270
Left = 3105
TabIndex = 15
Top = -30
Width = 1665
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "比例："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 264
Left = 2304
TabIndex = 14
Top = 0
Width = 768
End
Begin VB.Label tPag
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 270
Left = 1770
TabIndex = 13
Top = -30
Width = 510
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "共："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 264
Left = 1368
TabIndex = 12
Top = 0
Width = 372
End
Begin VB.Label aPag
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 270
Left = 825
TabIndex = 11
Top = -15
Width = 510
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "页号:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 264
Left = 36
TabIndex = 10
Top = 0
Width = 768
End
End
Begin VB.PictureBox Img
Height = 408
Left = 5148
ScaleHeight = 345
ScaleWidth = 345
TabIndex = 8
Top = 684
Visible = 0 'False
Width = 408
End
Begin MSComDlg.CommonDialog Apre
Left = 5805
Top = 675
_ExtentX = 688
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -