📄
字号:
ScaleWidth = 1875
TabIndex = 7
Top = 270
Visible = 0 'False
Width = 1875
Begin VB.Label Caption_XY
BackColor = &H00E0E0E0&
ForeColor = &H00C00000&
Height = 225
Left = 90
TabIndex = 8
Top = 45
Width = 1695
End
End
Begin VB.TextBox LrText
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 0
Left = 690
TabIndex = 1
Text = "0"
Top = 1020
Visible = 0 'False
Width = 1350
End
Begin VB.Label TsLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "订单号："
Height = 180
Index = 0
Left = 90
TabIndex = 3
Top = 690
Visible = 0 'False
Width = 720
End
Begin VB.Label Lab_Title
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "销售订单"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 4590
TabIndex = 2
Top = 0
Visible = 0 'False
Width = 1260
End
End
Begin MSComctlLib.Toolbar SzToolbar
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 11
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "竖对"
Key = "SD"
ImageIndex = 14
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "横对"
Key = "HD"
ImageIndex = 13
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "sx"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "表头"
Key = "Item"
ImageIndex = 16
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置"
Key = "sz"
ImageKey = "sz"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "yl"
ImageKey = "yl"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "bz"
ImageIndex = 8
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
ImageIndex = 9
EndProperty
EndProperty
BorderStyle = 1
Begin MSComctlLib.ImageCombo Imgcbo_SysName
Height = 315
Left = 4860
TabIndex = 15
Top = 120
Width = 1575
_ExtentX = 2778
_ExtentY = 556
_Version = 393216
ForeColor = -2147483640
BackColor = -2147483643
OLEDropMode = 1
Locked = -1 'True
End
Begin MSComctlLib.Toolbar GsToolbar
Height = 525
Left = 9510
TabIndex = 13
Top = 0
Width = 2475
_ExtentX = 4366
_ExtentY = 926
ButtonWidth = 1455
ButtonHeight = 926
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存格式"
Key = "bcgs"
ImageKey = "bcgs"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "默认列宽"
Key = "hfmrgs"
ImageKey = "mrlk"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "显示项目"
Key = "szxsxm"
ImageKey = "xsxm"
EndProperty
EndProperty
End
Begin VB.ComboBox ComboName
Height = 300
Left = 6540
Style = 2 'Dropdown List
TabIndex = 12
Top = 120
Width = 1305
End
Begin MSComctlLib.ImageList ImageList1
Left = 4920
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 16
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":1042
Key = "sz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":13DC
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":1776
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":1B10
Key = "xz"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":1EAA
Key = "xg"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":2244
Key = "sc"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":25DE
Key = "sx"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":2978
Key = "bz"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":2D12
Key = "tc"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":30AC
Key = "bcgs"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":3446
Key = "mrlk"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":37E0
Key = "xsxm"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":3B7A
Key = "ht"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":3F14
Key = "st"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":42AE
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据打印设置.frx":4648
Key = "ml"
EndProperty
EndProperty
End
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "打印类型:"
Height = 180
Left = 5520
TabIndex = 18
Top = 660
Width = 810
End
End
Attribute VB_Name = "XT_BillPrintDesign"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************************************************
'* 模 块 名 称 :单据设置
'* 功 能 描 述 :此功能模块主要完成单据设置
'* 程序员姓名 :王雄
'* 最后修改人 :王雄
'* 最后修改时间:2001/09/10
'*********************************************************************************************************
Option Explicit
'[以下为根据实际情况设置变量
Dim Bln_BillChange As Boolean '标识单据是否发生改动
']
'以下为固定使用变量(单据)
' Dim BillCode As String '单据设计编码(索引号)
Dim Var_Bill() As Variant '用来返回单据设计信息
Dim ReportTitle As String '报表主标题
Dim Tsxx As String '系统提示信息
'以下为固定使用变量(网格)
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Pmbcsjhs As Long '屏幕网格保持数据行数(大于等于1)
Dim Fzxwghs As Integer '辅助项网格行数(包括合计行)
Dim Sfxshjwg As Boolean '是否显示合计网格
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -