📄 frmmultipgpreview_withchart.frm
字号:
VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form frmMultiPgPreview
Appearance = 0 'Flat
BackColor = &H80000010&
BorderStyle = 0 'None
ClientHeight = 6720
ClientLeft = 4650
ClientTop = 2220
ClientWidth = 5835
ControlBox = 0 'False
ForeColor = &H80000008&
Icon = "frmMultiPgPreview_WithChart.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 6720
ScaleWidth = 5835
ShowInTaskbar = 0 'False
Begin VB.PictureBox picFullPage
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 675
Left = 4320
ScaleHeight = 43
ScaleMode = 3 'Pixel
ScaleWidth = 16
TabIndex = 23
Top = 2400
Visible = 0 'False
Width = 270
End
Begin VB.PictureBox picPrintPic
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 435
Left = 3885
ScaleHeight = 435
ScaleWidth = 255
TabIndex = 20
Top = 4440
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox Picture2
Align = 4 'Align Right
AutoRedraw = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6450
Left = 5280
ScaleHeight = 6450
ScaleWidth = 555
TabIndex = 13
TabStop = 0 'False
Top = 0
Width = 555
Begin VB.CommandButton cmd_print
Caption = "打印"
Height = 615
Left = 30
Picture = "frmMultiPgPreview_WithChart.frx":000C
Style = 1 'Graphical
TabIndex = 26
ToolTipText = "Send to Printer"
Top = 600
Width = 525
End
Begin VB.CommandButton cmd_quit
Cancel = -1 'True
Caption = "退出"
Height = 585
Left = 30
Picture = "frmMultiPgPreview_WithChart.frx":0405
Style = 1 'Graphical
TabIndex = 25
ToolTipText = "Close"
Top = 15
Width = 525
End
Begin VB.CheckBox cmdFullPage
Caption = "整页"
Height = 255
Left = 30
Style = 1 'Graphical
TabIndex = 24
Top = 1215
Width = 525
End
Begin VB.CommandButton cmdGoTo
Caption = "转到"
Height = 300
Left = 45
TabIndex = 2
ToolTipText = "Goto Page"
Top = 2580
Width = 525
End
Begin VB.CommandButton Command1
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 285
Picture = "frmMultiPgPreview_WithChart.frx":07FE
Style = 1 'Graphical
TabIndex = 1
ToolTipText = "Next Page"
Top = 2220
UseMaskColor = -1 'True
Width = 225
End
Begin VB.CommandButton Command1
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 0
Left = 45
Picture = "frmMultiPgPreview_WithChart.frx":08B8
Style = 1 'Graphical
TabIndex = 0
ToolTipText = "Prev. Page"
Top = 2220
UseMaskColor = -1 'True
Width = 225
End
Begin VB.VScrollBar VScroll1
Height = 2220
LargeChange = 10
Left = 105
Max = 100
Min = -20
TabIndex = 3
Top = 2910
Width = 330
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "P 1"
Height = 600
Left = 45
TabIndex = 14
Top = 1500
Width = 465
End
End
Begin VB.PictureBox picHScroll
Align = 2 'Align Bottom
BorderStyle = 0 'None
Height = 270
Left = 0
ScaleHeight = 270
ScaleWidth = 5835
TabIndex = 17
TabStop = 0 'False
Top = 6450
Visible = 0 'False
Width = 5835
Begin VB.HScrollBar HScroll1
Height = 270
Left = 0
Max = 100
TabIndex = 4
Top = 0
Width = 3765
End
End
Begin VB.PictureBox picPrintOptions
Appearance = 0 'Flat
BackColor = &H80000010&
ForeColor = &H000000FF&
Height = 2355
Left = 555
ScaleHeight = 2325
ScaleWidth = 3150
TabIndex = 15
TabStop = 0 'False
Top = 0
Visible = 0 'False
Width = 3180
Begin VB.TextBox txtFrom
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Height = 285
Left = 1695
TabIndex = 8
Text = "1"
Top = 1095
Width = 420
End
Begin VB.TextBox txtTo
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Height = 285
Left = 2475
TabIndex = 9
Text = "1"
Top = 1095
Width = 420
End
Begin VB.CommandButton cmdPrint
Caption = "确定"
Height = 360
Left = 2145
TabIndex = 11
Top = 1815
Width = 705
End
Begin VB.Image optPrint
Appearance = 0 'Flat
Height = 225
Index = 0
Left = 270
Picture = "frmMultiPgPreview_WithChart.frx":0972
Top = 450
Width = 300
End
Begin VB.Label optText
BackStyle = 0 'Transparent
Caption = "复制到剪切板"
ForeColor = &H80000014&
Height = 300
Index = 0
Left = 585
TabIndex = 5
Top = 480
Width = 2250
End
Begin VB.Label optText
BackStyle = 0 'Transparent
Caption = "打印当前页"
ForeColor = &H80000014&
Height = 300
Index = 1
Left = 585
TabIndex = 6
Top = 810
Width = 1965
End
Begin VB.Image optPrint
Appearance = 0 'Flat
Height = 225
Index = 1
Left = 270
Picture = "frmMultiPgPreview_WithChart.frx":0A0F
Top = 780
Width = 300
End
Begin VB.Image optPrint
Appearance = 0 'Flat
Height = 225
Index = 2
Left = 270
Picture = "frmMultiPgPreview_WithChart.frx":0AAC
Top = 1080
Width = 300
End
Begin VB.Image optPrint
Appearance = 0 'Flat
Height = 225
Index = 3
Left = 270
Picture = "frmMultiPgPreview_WithChart.frx":0B49
Top = 1410
Width = 300
End
Begin VB.Label optText
BackStyle = 0 'Transparent
Caption = "打印全部"
ForeColor = &H80000014&
Height = 300
Index = 3
Left = 585
TabIndex = 10
Top = 1440
Width = 1965
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "至"
ForeColor = &H80000014&
Height = 270
Left = 2175
TabIndex = 19
Top = 1125
Width = 345
End
Begin VB.Label lblPrintingPg
Alignment = 2 'Center
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 210
Left = 255
TabIndex = 18
Top = 1995
Visible = 0 'False
Width = 2670
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "打印选项"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000F&
Height = 315
Left = 135
TabIndex = 16
Top = 120
Width = 2865
End
Begin VB.Shape Shape1
BorderColor = &H8000000F&
Height = 2250
Left = 30
Top = 30
Width = 3090
End
Begin VB.Label optText
BackStyle = 0 'Transparent
Caption = "打印第"
ForeColor = &H80000014&
Height = 300
Index = 2
Left = 585
TabIndex = 7
Top = 1140
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -