📄 printset.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmPrintSet
BorderStyle = 1 'Fixed Single
Caption = "打印设置"
ClientHeight = 5970
ClientLeft = 45
ClientTop = 330
ClientWidth = 8565
HelpContextID = 9002
Icon = "Printset.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5970
ScaleWidth = 8565
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog dlgFontSet
Left = 3810
Top = -15
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin TabDlg.SSTab SSTab1
Height = 4665
Left = 285
TabIndex = 12
Top = 300
Width = 4725
_ExtentX = 8334
_ExtentY = 8229
_Version = 393216
Tabs = 2
Tab = 1
TabHeight = 520
TabCaption(0) = "字体"
TabPicture(0) = "Printset.frx":038A
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label4"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblbbbtzt"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "lblbglbtzt"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "lblbgnrzt"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "txtbbbt"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "CmdBbbtzt"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "CmdLbtzt"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "CmdBgnrzt"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).ControlCount= 11
TabCaption(1) = "页面设置"
TabPicture(1) = "Printset.frx":03A6
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label13"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label14"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label15"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label16"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label17"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Frame2"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "ComboDyrqwz"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "ComboCzywz"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "ComboGsswz"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "ComboYmwz"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "CmbPageSize"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).ControlCount= 11
Begin VB.ComboBox CmbPageSize
Height = 300
Left = 1410
TabIndex = 31
Text = "CmbPageSize"
Top = 600
Width = 2970
End
Begin VB.ComboBox ComboYmwz
Height = 300
Left = 1740
TabIndex = 30
Text = "ComboYmwz"
Top = 3705
Width = 2625
End
Begin VB.ComboBox ComboGsswz
Height = 300
Left = 1740
TabIndex = 29
Text = "ComboGsswz"
Top = 3150
Width = 2625
End
Begin VB.ComboBox ComboCzywz
Height = 300
Left = 1740
TabIndex = 28
Text = "ComboCzywz"
Top = 2625
Width = 2625
End
Begin VB.ComboBox ComboDyrqwz
Height = 300
Left = 1740
TabIndex = 27
Text = "ComboDyrqwz"
Top = 2040
Width = 2625
End
Begin VB.Frame Frame2
Caption = "打印方向"
Height = 735
Left = 270
TabIndex = 22
Top = 1125
Width = 4095
Begin VB.OptionButton optPrintDirection
Caption = "横向"
Height = 330
Index = 1
Left = 2235
TabIndex = 33
Top = 255
Width = 1500
End
Begin VB.OptionButton optPrintDirection
Caption = "竖向"
Height = 255
Index = 0
Left = 300
TabIndex = 32
Top = 330
Width = 1155
End
End
Begin VB.CommandButton CmdBgnrzt
Caption = "表格内容字体（&F）"
Height = 345
Left = -73425
TabIndex = 20
Top = 4080
Width = 1770
End
Begin VB.CommandButton CmdLbtzt
Caption = "列标题字体（&R）"
Height = 345
Left = -73425
TabIndex = 19
Top = 2970
Width = 1770
End
Begin VB.CommandButton CmdBbbtzt
Caption = "报表标题字体（&T）"
Height = 345
Left = -73425
TabIndex = 18
Top = 1800
Width = 1770
End
Begin VB.TextBox txtbbbt
Height = 270
Left = -73590
TabIndex = 17
Top = 645
Width = 3105
End
Begin VB.Label lblbgnrzt
AutoSize = -1 'True
Height = 180
Left = -73425
TabIndex = 36
Top = 3615
Width = 90
End
Begin VB.Label lblbglbtzt
AutoSize = -1 'True
Height = 180
Left = -73425
TabIndex = 35
Top = 2445
Width = 90
End
Begin VB.Label lblbbbtzt
AutoSize = -1 'True
Height = 180
Left = -73425
TabIndex = 34
Top = 1350
Width = 90
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
Caption = "页码位置："
Height = 285
Left = 480
TabIndex = 26
Top = 3780
Width = 1050
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
Caption = "工商所位置："
Height = 300
Left = 135
TabIndex = 25
Top = 3200
Width = 1395
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
Caption = "操作员位置："
Height = 270
Left = 420
TabIndex = 24
Top = 2670
Width = 1110
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
Caption = "打印日期位置："
Height = 285
Left = 180
TabIndex = 23
Top = 2145
Width = 1350
End
Begin VB.Label Label13
Caption = "纸张大小："
Height = 285
Left = 180
TabIndex = 21
Top = 675
Width = 1050
End
Begin VB.Label Label4
Caption = "表格内容字体："
Height = 270
Left = -74700
TabIndex = 16
Top = 3615
Width = 1380
End
Begin VB.Label Label3
Caption = "表格列标题字体："
Height = 270
Left = -74880
TabIndex = 15
Top = 2430
Width = 1560
End
Begin VB.Label Label2
Caption = "报表标题字体："
Height = 270
Left = -74700
TabIndex = 14
Top = 1335
Width = 1275
End
Begin VB.Label Label1
Caption = "报表标题："
Height = 255
Left = -74760
TabIndex = 13
Top = 690
Width = 1035
End
End
Begin VB.CommandButton CmdExit
Caption = "退出（&E）"
Height = 360
Left = 6390
TabIndex = 11
Top = 5370
Width = 1455
End
Begin VB.CommandButton CmdCancel
Caption = "取消（&C）"
Height = 390
Left = 4170
TabIndex = 10
Top = 5325
Width = 1500
End
Begin VB.CommandButton CmdSave
Caption = "保存（&S）"
Height = 390
Left = 1725
TabIndex = 9
Top = 5295
Width = 1545
End
Begin VB.Frame Frame1
BackColor = &H80000009&
BorderStyle = 0 'None
Caption = "Frame1"
Height = 3390
Left = 5565
TabIndex = 2
Top = 1410
Width = 2610
Begin VB.Label lblbgnr
Alignment = 2 'Center
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -