📄 frmpagesetup.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPageSetup
BorderStyle = 3 'Fixed Dialog
Caption = "页面设置"
ClientHeight = 5625
ClientLeft = 45
ClientTop = 330
ClientWidth = 6705
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5625
ScaleWidth = 6705
ShowInTaskbar = 0 'False
Begin MSComDlg.CommonDialog CommonDialog1
Left = 7320
Top = 240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 300
Left = 5235
TabIndex = 43
Top = 5160
Width = 1335
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Default = -1 'True
Height = 300
Left = 3795
TabIndex = 42
Top = 5160
Width = 1335
End
Begin VB.PictureBox fraPaper
BorderStyle = 0 'None
Height = 4455
Left = 240
ScaleHeight = 4455
ScaleWidth = 6255
TabIndex = 45
TabStop = 0 'False
Top = 480
Width = 6255
Begin VB.TextBox txtZoom
Height = 270
Left = 1560
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Top = 2400
Width = 975
End
Begin VB.CheckBox chkBlackAndWhite
Caption = "单色打印(&W)"
Height = 255
Left = 3360
TabIndex = 19
Top = 4080
Width = 1575
End
Begin VB.OptionButton optPortrait
Caption = "纵向(&T)"
Height = 255
Left = 1080
TabIndex = 0
Top = 460
Width = 975
End
Begin VB.OptionButton optLandscape
Caption = "横向(&L)"
Height = 255
Left = 3240
TabIndex = 1
Top = 460
Width = 975
End
Begin VB.ComboBox cboPaperSize
Height = 300
Left = 1200
Style = 2 'Dropdown List
TabIndex = 3
Top = 1255
Width = 4935
End
Begin VB.CheckBox chkPrintFixedRow
Caption = "打印固定行(&R)"
Height = 255
Left = 480
TabIndex = 16
Top = 3705
Width = 1575
End
Begin VB.CheckBox chkPrintFixedColumn
Caption = "打印固定列(&C)"
Height = 255
Left = 480
TabIndex = 17
Top = 4065
Width = 1575
End
Begin VB.CheckBox chkPrintGridlines
Caption = "打印网格线(&G)"
Height = 255
Left = 3360
TabIndex = 18
Top = 3720
Width = 1575
End
Begin VB.TextBox txtPrintTitleRows
Height = 270
Left = 1560
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 11
Top = 3105
Width = 615
End
Begin VB.TextBox txtPrintTitleColumns
Height = 270
Left = 3360
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
Top = 3105
Width = 615
End
Begin VB.TextBox txtPaperWidth
Alignment = 1 'Right Justify
Height = 300
Left = 1200
TabIndex = 5
Top = 1660
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtPaperHeight
Alignment = 1 'Right Justify
Height = 300
Left = 3000
TabIndex = 7
Top = 1660
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtPrintBottomTitleRows
Height = 270
Left = 5520
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 15
Top = 3105
Width = 615
End
Begin VB.Line Line12
BorderColor = &H00808080&
X1 = 480
X2 = 6120
Y1 = 3585
Y2 = 3585
End
Begin VB.Line Line11
BorderColor = &H00FFFFFF&
BorderWidth = 2
X1 = 480
X2 = 6120
Y1 = 3600
Y2 = 3600
End
Begin VB.Label Label25
Caption = "% 正常尺寸"
Height = 255
Left = 2640
TabIndex = 57
Top = 2445
Width = 1575
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "缩放比例(&Z):"
Height = 180
Left = 480
TabIndex = 8
Top = 2445
Width = 1080
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "缩放"
Height = 180
Left = 0
TabIndex = 56
Top = 2040
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "方向"
Height = 180
Left = 0
TabIndex = 49
Top = 0
Width = 360
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 480
X2 = 6130
Y1 = 85
Y2 = 85
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "纸张"
Height = 180
Left = 0
TabIndex = 48
Top = 980
Width = 360
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "大小(&S):"
Height = 180
Left = 480
TabIndex = 2
Top = 1300
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "内容"
Height = 180
Left = 0
TabIndex = 47
Top = 3510
Width = 360
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = 480
X2 = 6130
Y1 = 1060
Y2 = 1060
End
Begin VB.Line Line6
BorderColor = &H00808080&
X1 = 480
X2 = 6130
Y1 = 2140
Y2 = 2140
End
Begin VB.Line Line9
BorderColor = &H00808080&
X1 = 480
X2 = 6130
Y1 = 2860
Y2 = 2860
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "标题"
Height = 180
Left = 0
TabIndex = 46
Top = 2790
Width = 360
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "标题行数(&I):"
Height = 180
Left = 480
TabIndex = 10
Top = 3150
Width = 1080
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "标题列数(&O):"
Height = 180
Left = 2280
TabIndex = 12
Top = 3150
Width = 1110
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "宽度(&W):"
Height = 180
Left = 480
TabIndex = 4
Top = 1720
Visible = 0 'False
Width = 720
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "高度(&H):"
Height = 180
Left = 2280
TabIndex = 6
Top = 1720
Visible = 0 'False
Width = 720
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "底部标题行数(&B):"
Height = 180
Left = 4080
TabIndex = 14
Top = 3150
Width = 1440
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
BorderWidth = 2
X1 = 480
X2 = 6130
Y1 = 100
Y2 = 100
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
BorderWidth = 2
X1 = 480
X2 = 6130
Y1 = 1075
Y2 = 1075
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
BorderWidth = 2
X1 = 480
X2 = 6130
Y1 = 2155
Y2 = 2155
End
Begin VB.Line Line10
BorderColor = &H00FFFFFF&
BorderWidth = 2
X1 = 480
X2 = 6120
Y1 = 2875
Y2 = 2875
End
End
Begin VB.PictureBox fraMargin
BorderStyle = 0 'None
Height = 4455
Left = 240
ScaleHeight = 4455
ScaleWidth = 6255
TabIndex = 50
TabStop = 0 'False
Top = 480
Visible = 0 'False
Width = 6255
Begin VB.TextBox txtLeftMargin
Height = 270
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 25
Top = 1680
Width = 855
End
Begin VB.TextBox txtRightMargin
Height = 270
Left = 3480
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 27
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -