dlgprint.frm
来自「通用书店管理系统」· FRM 代码 · 共 536 行 · 第 1/2 页
FRM
536 行
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 = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form dlgPrint
BorderStyle = 3 'Fixed Dialog
Caption = "页面设置"
ClientHeight = 5295
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 7080
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5295
ScaleWidth = 7080
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog cd
Left = 1170
Top = 2625
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame3
Caption = "页面配置"
Height = 2535
Left = 120
TabIndex = 12
Top = 90
Width = 6690
Begin VB.Frame fraContent
Caption = "内容"
Height = 2295
Left = 2610
TabIndex = 14
Top = 150
Width = 3990
Begin VB.TextBox txtContent
Height = 1530
Left = 90
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 17
Top = 210
Width = 3705
End
Begin VB.CommandButton cmdFont
Caption = "字体"
Height = 330
Left = 1755
TabIndex = 16
Top = 1875
Width = 915
End
Begin VB.CommandButton cmdColor
Caption = "颜色"
Height = 330
Left = 2940
TabIndex = 15
Top = 1860
Width = 900
End
End
Begin MSComctlLib.ImageList ist
Left = 1980
Top = 1845
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "dlgPrint.frx":0000
Key = "closeParent"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "dlgPrint.frx":0454
Key = "openParent"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "dlgPrint.frx":08A8
Key = "leaf"
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView tv
Height = 2205
Left = 90
TabIndex = 13
Top = 240
Width = 2490
_ExtentX = 4392
_ExtentY = 3889
_Version = 393217
Indentation = 353
LineStyle = 1
Style = 7
ImageList = "ist"
Appearance = 1
End
End
Begin VB.Frame Frame2
Caption = "副本"
Height = 1950
Left = 4305
TabIndex = 8
Top = 2760
Width = 2520
Begin MSComCtl2.UpDown UpDown1
Height = 330
Left = 1741
TabIndex = 11
Top = 210
Width = 270
_ExtentX = 476
_ExtentY = 582
_Version = 393216
Value = 1
AutoBuddy = -1 'True
BuddyControl = "txtCopyQty"
BuddyDispid = 196615
OrigLeft = 2010
OrigTop = 195
OrigRight = 2280
OrigBottom = 540
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.TextBox txtCopyQty
Height = 330
Left = 930
TabIndex = 10
Text = "1"
Top = 210
Width = 810
End
Begin VB.Image Image1
Height = 990
Left = 330
Picture = "dlgPrint.frx":1190
Top = 780
Width = 1665
End
Begin VB.Label Label2
Caption = "份数："
Height = 210
Left = 300
TabIndex = 9
Top = 300
Width = 615
End
End
Begin VB.Frame Frame1
Caption = "页面范围"
Height = 1965
Left = 105
TabIndex = 2
Top = 2745
Width = 4035
Begin VB.TextBox txtPageRange
Height = 315
Left = 1605
TabIndex = 7
Top = 1035
Width = 2280
End
Begin VB.OptionButton optPageRange
Caption = "页码范围(&G)"
Height = 240
Index = 2
Left = 225
TabIndex = 5
Top = 1095
Width = 1350
End
Begin VB.OptionButton optPageRange
Caption = "当前页(&E)"
Height = 240
Index = 1
Left = 240
TabIndex = 4
Top = 675
Width = 1365
End
Begin VB.OptionButton optPageRange
Caption = "全部(&A)"
Height = 240
Index = 0
Left = 255
TabIndex = 3
Top = 285
Value = -1 'True
Width = 1215
End
Begin VB.Label Label1
Caption = "请键入页码和-或用逗号分隔的页码范围（例如：1，2，3-5）"
Height = 375
Left = 225
TabIndex = 6
Top = 1455
Width = 2880
End
End
Begin VB.CommandButton CancelButton
Caption = "取消"
Height = 330
Left = 5565
TabIndex = 1
Top = 4905
Width = 1215
End
Begin VB.CommandButton OKButton
Caption = "确定"
Height = 330
Left = 3855
TabIndex = 0
Top = 4920
Width = 1215
End
End
Attribute VB_Name = "dlgPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public blnOK As Boolean '是否确定
Public blnOptPageRange_0 As Boolean '可选项
Public strTxtPageRange As String '打印哪些页
Public strTxtCopyQty As String '打印份数
Public PrintInfo As DefinePrintInfo '打印信息
Private pi As New DefinePrintInfo '保存动态信息
Private Sub iniForm()
'll
Call tv.Nodes.Add(, , "页眉", "页眉", "closeParent", "openParent")
Call tv.Nodes.Add("页眉", tvwChild, "页眉内容", "内容", "leaf")
'Call tv.Nodes.Add("页眉", tvwChild, "页眉字体", "字体", "leaf")
'Call tv.Nodes.Add("页眉", tvwChild, "页眉颜色", "颜色", "leaf")
Call tv.Nodes.Add(, , "正标题", "正标题", "closeParent", "openParent")
Call tv.Nodes.Add("正标题", tvwChild, "正标题内容", "内容", "leaf")
'Call tv.Nodes.Add("正标题", tvwChild, "正标题字体", "字体", "leaf")
'Call tv.Nodes.Add("正标题", tvwChild, "正标题颜色", "颜色", "leaf")
Call tv.Nodes.Add(, , "副标题", "副标题", "closeParent", "openParent")
Call tv.Nodes.Add("副标题", tvwChild, "副标题内容", "内容", "leaf")
'Call tv.Nodes.Add("副标题", tvwChild, "副标题字体", "字体", "leaf")
'Call tv.Nodes.Add("副标题", tvwChild, "副标题颜色", "颜色", "leaf")
Call tv.Nodes.Add(, , "表前叙述", "表前叙述", "closeParent", "openParent")
Call tv.Nodes.Add("表前叙述", tvwChild, "表前叙述内容", "内容", "leaf")
'Call tv.Nodes.Add("表前叙述", tvwChild, "表前叙述字体", "字体", "leaf")
'Call tv.Nodes.Add("表前叙述", tvwChild, "表前叙述颜色", "颜色", "leaf")
Call tv.Nodes.Add(, , "表单正文", "表单正文", "closeParent", "openParent")
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?