📄 单据打印设置.frm
字号:
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 = 5
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 = 4
Top = 0
Visible = 0 'False
Width = 1260
End
End
Begin MSComctlLib.Toolbar SzToolbar
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 13
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1005
ButtonWidth = 820
ButtonHeight = 953
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 = 17
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 = 540
Left = 9510
TabIndex = 15
Top = 0
Width = 2475
_ExtentX = 4366
_ExtentY = 953
ButtonWidth = 1455
ButtonHeight = 953
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 = 14
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 = 20
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 '是否显示合计网格
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
Dim GridBoolean() As Boolean '网格列信息(布尔型)
Dim GridStr() As String '网格列信息(字符型)
Dim GridInt() As Integer '网格列信息(整型)
Dim Sfblbzkd As Boolean '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
Dim Shsfts As Boolean '删除记录行是否提示
Dim Szzls As Integer '网格信息数组最大下标值(网格列数-1)
'以下为固定使用变量(文本框)
Dim Textvar() As Variant '存储变体型文本框信息
Dim Textboolean() As Boolean '存储布尔型文本框信息
Dim Textint() As Integer '存储整型文本框信息
Dim Textstr() As String '存储字符型文本框信息
Dim Max_Text_Index As Integer '最大录入文本框索引值
Dim TextGroupCode As String '文本框录入分组编码
Dim TextValiJudgeLock() As Boolean '文本框录入有效性判断控制锁
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim jsqte As Integer
Dim TF As Boolean
Dim Move_Y As Integer
Dim Move_X As Integer
Dim Textindex As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -