📄 系统_打印页面设置.frm
字号:
VERSION 5.00
Object = "{7E00A3A2-8F5C-11D2-BAA4-04F205C10000}#1.0#0"; "VsVIEW6.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form DY_Dyymsz
BorderStyle = 3 'Fixed Dialog
Caption = "打印页面设置"
ClientHeight = 5190
ClientLeft = 45
ClientTop = 330
ClientWidth = 6030
ControlBox = 0 'False
HelpContextID = 2501002
Icon = "系统_打印页面设置.frx":0000
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5190
ScaleWidth = 6030
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton BcCommand
Caption = "保存设置(&S)"
Height = 300
Left = 3540
TabIndex = 41
Top = 4410
Width = 1120
End
Begin VB.VScrollBar BxjgVScroll
Height = 285
Left = 5610
Max = 1
Min = 32767
TabIndex = 40
Top = 3480
Value = 32767
Width = 255
End
Begin VB.TextBox BbsclText
Height = 315
Left = 6300
TabIndex = 37
Top = 2880
Width = 915
End
Begin VB.VScrollBar BjjgVScroll
Height = 255
Left = 5610
TabIndex = 35
Top = 3030
Width = 255
End
Begin VB.Frame Frame1
Caption = "基本设置项目"
Height = 1035
Left = 1290
TabIndex = 30
Top = 150
Width = 2895
Begin VB.Label Label7
Caption = "包括:打印纸张大小,纸张来源,打印方向 打印上下边界,左右边界及打印机属性"
Height = 735
Left = 90
TabIndex = 31
Top = 240
Width = 2745
End
End
Begin VB.CommandButton bzCommand
Caption = "帮助(&H)"
Height = 300
Left = 4740
TabIndex = 29
Top = 4410
Width = 1120
End
Begin VSVIEW6Ctl.VSPrinter YmszPrinter
Height = 615
Left = 6300
TabIndex = 26
Top = 3780
Visible = 0 'False
Width = 495
_cx = 4195177
_cy = 4195389
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
MousePointer = 0
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty HdrFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Courier New"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_ConvInfo = 1
AutoRTF = -1 'True
Preview = -1 'True
DefaultDevice = 0 'False
PhysicalPage = -1 'True
AbortWindow = -1 'True
AbortWindowPos = 0
AbortCaption = "Printing..."
AbortTextButton = "Cancel"
AbortTextDevice = "on the %s on %s"
AbortTextPage = "Now printing Page %d of"
FileName = ""
MarginLeft = 1440
MarginTop = 1440
MarginRight = 1440
MarginBottom = 1440
MarginHeader = 0
MarginFooter = 0
IndentLeft = 0
IndentRight = 0
IndentFirst = 0
IndentTab = 720
SpaceBefore = 0
SpaceAfter = 0
LineSpacing = 100
Columns = 1
ColumnSpacing = 180
ShowGuides = 2
LargeChangeHorz = 300
LargeChangeVert = 300
SmallChangeHorz = 30
SmallChangeVert = 30
Track = 0 'False
ProportionalBars= -1 'True
Zoom = -.377833753148615
ZoomMode = 3
ZoomMax = 400
ZoomMin = 10
ZoomStep = 5
MouseZoom = 2
MouseScroll = -1 'True
MousePage = -1 'True
EmptyColor = -2147483636
TextColor = 0
HdrColor = 0
BrushColor = 0
BrushStyle = 0
PenColor = 0
PenStyle = 0
PenWidth = 0
PageBorder = 0
Header = ""
Footer = ""
TableSep = "|;"
TableBorder = 7
TablePen = 0
TablePenLR = 0
TablePenTB = 0
HTMLStyle = 1
End
Begin MSComDlg.CommonDialog YmszDialog
Left = 6300
Top = 3240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton JbszCommand
Caption = "基本设置"
Height = 975
Left = 150
Picture = "系统_打印页面设置.frx":1042
Style = 1 'Graphical
TabIndex = 18
Top = 210
Width = 1035
End
Begin VB.CommandButton QxCommand
Caption = "取消(&C)"
Height = 300
Left = 4740
TabIndex = 17
Top = 4800
Width = 1120
End
Begin VB.Frame Frame3
Caption = "报表字体/行数"
Height = 1515
Left = 120
TabIndex = 9
Top = 1320
Width = 5775
Begin VB.CommandButton Bbztcommand
Caption = "表体设置(&B)"
Height = 300
Left = 4500
TabIndex = 21
Top = 690
Width = 1120
End
Begin VB.CommandButton Btztcommand
Caption = "标题设置(&T)"
Height = 300
Left = 4500
TabIndex = 20
Top = 270
Width = 1120
End
Begin VB.VScrollBar BbhsVScroll
Height = 285
Left = 2280
TabIndex = 16
Top = 1110
Width = 285
End
Begin VB.TextBox BbhsText
Height = 300
Left = 1290
MaxLength = 4
TabIndex = 15
Top = 1110
Width = 1305
End
Begin VB.Label Sjzhlabel
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 300
Left = 3660
TabIndex = 25
Top = 690
Width = 765
End
Begin VB.Label SjztLabel
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 300
Left = 930
TabIndex = 24
Top = 690
Width = 1665
End
Begin VB.Label Btzhlabel
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 300
Left = 3660
TabIndex = 23
Top = 270
Width = 765
End
Begin VB.Label Btztlabel
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 300
Left = 930
TabIndex = 22
Top = 270
Width = 1665
End
Begin VB.Label Label6
Caption = "(指定行数大于满页行数以满页计)"
Height = 195
Left = 2820
TabIndex = 19
Top = 1170
Width = 2715
End
Begin VB.Label Label5
Caption = "每页报表行数:"
Height = 225
Left = 120
TabIndex = 14
Top = 1140
Width = 1185
End
Begin VB.Label Label4
Caption = "表体字号:"
Height = 255
Left = 2850
TabIndex = 13
Top = 720
Width = 855
End
Begin VB.Label Label3
Caption = "表体字体:"
Height = 225
Left = 120
TabIndex = 12
Top = 720
Width = 825
End
Begin VB.Label Label2
Caption = "标题字号:"
Height = 285
Left = 2850
TabIndex = 11
Top = 300
Width = 825
End
Begin VB.Label Label1
Caption = "标题字体:"
Height = 255
Left = 120
TabIndex = 10
Top = 330
Width = 825
End
End
Begin VB.CommandButton QdCommand
Caption = "确定(&O)"
Height = 300
Left = 3540
TabIndex = 2
Top = 4800
Width = 1120
End
Begin VB.Frame Frame2
Caption = "输出方式"
Height = 2205
Left = 150
TabIndex = 1
Top = 2910
Width = 2775
Begin VB.CheckBox TdfsCheck
Caption = "套打方式输出(&D)"
Height = 285
Left = 180
TabIndex = 42
Top = 1860
Width = 1995
End
Begin VB.CheckBox GdscCheck
Caption = "报表分页是否重复输出固定列"
Height = 690
Left = 2070
TabIndex = 32
Top = 1920
Visible = 0 'False
Width = 1755
End
Begin VB.CheckBox LxscCheck
Caption = "报表打印未满页连续打印(&L)"
Height = 420
Left = 180
TabIndex = 28
Top = 1440
Width = 2565
End
Begin VB.CheckBox KbscCheck
Caption = "无记录输出空表(&K)"
Height = 345
Left = 180
TabIndex = 27
Top = 810
Width = 2205
End
Begin VB.CheckBox ZdhsCheck
Caption = "指定每页报表行数(&Z)"
Height = 285
Left = 180
TabIndex = 8
Top = 525
Width = 2055
End
Begin VB.CheckBox BjdcCheck
Caption = "对称页边距(&I)"
Height = 285
Left = 180
TabIndex = 7
Top = 1155
Width = 1965
End
Begin VB.CheckBox MydyCheck
Caption = "报表满页打印(&M)"
Height = 285
Left = 180
TabIndex = 6
Top = 240
Width = 1935
End
End
Begin VB.Frame Zdwzframe
Caption = "装订位置"
Height = 1035
Left = 4290
TabIndex = 0
Top = 150
Width = 1605
Begin VB.OptionButton Zdoption
Caption = "页 面 左 端"
Height = 255
Index = 2
Left = 120
TabIndex = 5
Top = 750
Width = 1455
End
Begin VB.OptionButton Zdoption
Caption = "页 面 上 端"
Height = 345
Index = 1
Left = 120
TabIndex = 4
Top = 450
Width = 1425
End
Begin VB.OptionButton Zdoption
Caption = "无 装 订 线"
Height = 345
Index = 0
Left = 120
TabIndex = 3
Top = 180
Width = 1365
End
End
Begin VB.Label BxjgLabel
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 315
Left = 4740
TabIndex = 39
Top = 3450
Width = 1155
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "表格线输出间隔行数"
Height = 345
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -