📄 frmprint.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomct2.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmPrint
Caption = "打印预览"
ClientHeight = 7140
ClientLeft = 1305
ClientTop = 495
ClientWidth = 9300
Icon = "frmPrint.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7140
ScaleWidth = 9300
WindowState = 2 'Maximized
Begin VB.PictureBox pct
Align = 1 'Align Top
BorderStyle = 0 'None
Height = 405
Left = 0
ScaleHeight = 405
ScaleWidth = 9300
TabIndex = 44
Top = 0
Width = 9300
Begin VB.CommandButton cmdReturn
BackColor = &H00C0E0FF&
Caption = "关闭(&R)"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5070
TabIndex = 4
Top = 0
Width = 1065
End
Begin VB.CommandButton cmdPrint
BackColor = &H00C0E0FF&
Caption = "打印(&P)"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3990
TabIndex = 3
Top = 0
Width = 1065
End
Begin VB.PictureBox Picture3
BorderStyle = 0 'None
Height = 315
Left = 6180
ScaleHeight = 315
ScaleWidth = 3045
TabIndex = 45
Top = 30
Width = 3045
Begin VB.TextBox txtPageRange
Enabled = 0 'False
Height = 270
Left = 2070
TabIndex = 7
ToolTipText = "页码范围格式为:起始页-终止页,如1-20"
Top = 30
Width = 885
End
Begin VB.OptionButton optSelect
Caption = "页码范围"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1050
TabIndex = 6
Top = 30
Width = 1035
End
Begin VB.OptionButton optAll
Caption = "全部页"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 60
TabIndex = 5
Top = 30
Value = -1 'True
Width = 945
End
End
Begin VB.OptionButton optContents
Caption = "打印内容选择(&S)"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
Style = 1 'Graphical
TabIndex = 0
Top = 0
Width = 1575
End
Begin VB.OptionButton optSetPaper
Caption = "页面设置(&G)"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1590
Style = 1 'Graphical
TabIndex = 1
Top = 0
Width = 1185
End
Begin VB.OptionButton optPreview
Caption = "打印预览(&V)"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2790
Style = 1 'Graphical
TabIndex = 2
Top = 0
Width = 1185
End
End
Begin VB.Frame fraContents
Height = 6585
Left = 60
TabIndex = 8
Top = 465
Width = 9180
Begin VB.Frame Frame2
Height = 1365
Left = 2190
TabIndex = 13
Top = 120
Width = 6855
Begin VB.CheckBox chkAlignLeft
Caption = "左对齐"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5850
TabIndex = 46
Top = 570
Width = 915
End
Begin VB.TextBox txtReportFooter
Height = 315
Left = 900
TabIndex = 12
Top = 900
Width = 5835
End
Begin VB.TextBox txtReportCaption
Height = 315
Left = 900
TabIndex = 11
Top = 540
Width = 4905
End
Begin VB.TextBox txtReportTitle
Height = 315
Left = 900
TabIndex = 10
Top = 180
Width = 5835
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "报表末行"
Height = 270
Left = 60
TabIndex = 56
Top = 960
Width = 915
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "报表首行"
Height = 270
Left = 60
TabIndex = 55
Top = 592
Width = 915
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "报表标题"
Height = 270
Left = 60
TabIndex = 54
Top = 225
Width = 915
End
End
Begin VB.ComboBox cmbFontSize
Height = 315
ItemData = "frmPrint.frx":0442
Left = 6405
List = "frmPrint.frx":0461
Style = 2 'Dropdown List
TabIndex = 14
Top = 1560
Width = 1095
End
Begin MSFlexGridLib.MSFlexGrid msgContents
DragIcon = "frmPrint.frx":0489
Height = 4575
Left = 2160
TabIndex = 15
Top = 1920
Width = 6885
_ExtentX = 12144
_ExtentY = 8070
_Version = 393216
AllowUserResizing= 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ListView lvwFieldName
Height = 6285
Left = 60
TabIndex = 9
Top = 210
Width = 2055
_ExtentX = 3625
_ExtentY = 11086
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
Checkboxes = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "字体大小"
Height = 270
Left = 5595
TabIndex = 53
Top = 1650
Width = 915
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "打印内容："
Height = 270
Left = 2280
TabIndex = 52
Top = 1650
Width = 915
End
End
Begin VB.Frame fraPreview
Height = 6615
Left = 45
TabIndex = 38
Top = 450
Width = 9195
Begin VB.PictureBox pctBK
Height = 6015
Left = 60
ScaleHeight = 5955
ScaleWidth = 8895
TabIndex = 41
Top = 510
Width = 8955
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -