📄 frmac_generalselectprint.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{7802D41A-28B0-43C4-95EA-17B7E32337D1}#1.0#0"; "CellCtrl5.ocx"
Begin VB.Form frmAC_GeneralSelectPrint
BorderStyle = 3 'Fixed Dialog
Caption = "总账：选择范围"
ClientHeight = 3090
ClientLeft = 3780
ClientTop = 2985
ClientWidth = 4665
HelpContextID = 1051
Icon = "frmAC_GeneralSelectPrint.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3090
ScaleWidth = 4665
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin CELL50Lib.Cell Cllr
Height = 1935
Left = 5640
TabIndex = 25
Top = 960
Width = 495
_Version = 65536
_ExtentX = 873
_ExtentY = 3413
_StockProps = 0
End
Begin VB.Frame Frame1
Height = 1575
Left = 135
TabIndex = 17
Top = 810
Width = 4380
Begin VB.CheckBox chkNoHappen
Caption = "无发生也打印"
Height = 255
Left = 2850
TabIndex = 5
Top = 1230
Value = 1 'Checked
Width = 1395
End
Begin VB.TextBox txtPageStart
Height = 270
Left = 3600
TabIndex = 2
Text = "1"
Top = 810
Width = 645
End
Begin VB.CheckBox chkMode
Caption = "套打"
Height = 285
Left = 1680
TabIndex = 4
Top = 1200
Width = 795
End
Begin VB.CheckBox chkEndLevelSubject
Caption = "末级科目"
Height = 285
Left = 240
TabIndex = 3
Top = 1200
Width = 1035
End
Begin VB.ComboBox cboAccountFormat
Enabled = 0 'False
Height = 300
Left = 1260
Style = 1 'Simple Combo
TabIndex = 6
Text = "cboAccountFormat"
Top = 270
Width = 2295
End
Begin VB.CheckBox ChkMj
Caption = "使用级次"
Height = 255
Left = 3420
TabIndex = 8
Top = 0
Value = 1 'Checked
Visible = 0 'False
Width = 1065
End
Begin VB.TextBox txtJcTo
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 270
Left = 2160
MaxLength = 2
TabIndex = 7
Text = "1"
Top = 810
Width = 420
End
Begin VB.TextBox txtJcFrom
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 270
Left = 1230
MaxLength = 2
TabIndex = 19
Text = "1"
Top = 810
Width = 420
End
Begin MSComCtl2.UpDown updJcTo
Height = 225
Left = 2565
TabIndex = 20
Top = 810
Width = 270
_ExtentX = 423
_ExtentY = 397
_Version = 393216
BuddyControl = "Label1"
BuddyDispid = 196621
OrigLeft = 2820
OrigTop = 570
OrigRight = 3015
OrigBottom = 855
Max = 12
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComCtl2.UpDown updJcFrom
Height = 225
Left = 1650
TabIndex = 22
Top = 810
Width = 270
_ExtentX = 423
_ExtentY = 397
_Version = 393216
Value = 1
BuddyControl = "Label1"
BuddyDispid = 196621
OrigLeft = 2820
OrigTop = 570
OrigRight = 3015
OrigBottom = 855
Max = 12
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "起始页号"
Height = 180
Left = 2880
TabIndex = 24
Top = 855
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "账页格式："
Height = 180
Left = 270
TabIndex = 23
Top = 360
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "至"
Height = 120
Left = 1935
TabIndex = 21
Top = 885
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "级次范围："
Height = 120
Left = 270
TabIndex = 18
Top = 870
Width = 900
End
End
Begin VB.CommandButton cmdpreview
Caption = "预览(&V)"
Height = 345
Left = 1230
TabIndex = 10
Top = 2610
Width = 1065
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消(&C)"
CausesValidation= 0 'False
Height = 345
Left = 2340
TabIndex = 11
Top = 2610
Width = 1065
End
Begin VB.CommandButton cmdHelp
Caption = "帮助(&H)"
CausesValidation= 0 'False
Height = 345
Left = 3450
TabIndex = 12
Top = 2610
Width = 1065
End
Begin VB.CommandButton cmdSubjectStart
CausesValidation= 0 'False
Height = 285
Left = 3990
Picture = "frmAC_GeneralSelectPrint.frx":000C
Style = 1 'Graphical
TabIndex = 14
Top = 60
Width = 315
End
Begin VB.CommandButton cmdprint
Caption = "打印(&P)"
Height = 345
Left = 150
TabIndex = 9
Top = 2610
Width = 1065
End
Begin VB.TextBox txtSubjectEnd
Height = 285
Left = 1290
MaxLength = 18
TabIndex = 1
Top = 450
Width = 2700
End
Begin VB.CommandButton cmdSubjectEnd
CausesValidation= 0 'False
Height = 285
Left = 3990
Picture = "frmAC_GeneralSelectPrint.frx":010E
Style = 1 'Graphical
TabIndex = 13
Top = 450
Width = 315
End
Begin VB.TextBox txtSubjectStart
Height = 285
Left = 1290
MaxLength = 18
TabIndex = 0
Top = 60
Width = 2700
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "起始科目："
Height = 180
Left = 300
TabIndex = 16
Top = 150
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "终止科目："
Height = 180
Left = 300
TabIndex = 15
Top = 525
Width = 900
End
Begin VB.Line Line2
BorderColor = &H80000005&
X1 = 180
X2 = 4560
Y1 = 2505
Y2 = 2505
End
Begin VB.Line Line1
X1 = 180
X2 = 4560
Y1 = 2505
Y2 = 2505
End
End
Attribute VB_Name = "frmAC_GeneralSelectPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Option Base 1
'Cell单元格对齐方式: 33 = 左对齐, 34 = 右对齐, 36 = 居中对齐;
Const COL_START = 1 '开始列
Const COL_MONTH = 1 '月列
Const COL_DAY = 2 '日列
Const COL_SUMMARY = 3 '摘要列
Const COL_DEBIT_AMOUNT = 4 '借方数量列
Const COL_DEBIT_FOREIGN = 5 '借方外币列
Const COL_DEBIT_MONEY = 6 '借方金额列
Const COL_CREDIT_AMOUNT = 7 '贷方数量列
Const COL_CREDIT_FOREIGN = 8 '贷方外币列
Const COL_CREDIT_MONEY = 9 '贷方金额列
Const COL_DIRECTION = 10 '方向列
Const COL_BALANCE_AMOUNT = 11 '数量余额列
Const COL_BALANCE_FOREIGN = 12 '外币余额列
Const COL_BALANCE_MONEY = 13 '金额余额列
Const COL_END = 13 '结束列
Const ROW_TITLE = 1 '标题行
Const ROW_ACCOUNTFORMAT = 2 '账页格式行
Const ROW_SUBJCODE = 3 '页眉科目代码行
Const ROW_SUBJNAME = 4 '页眉科目名称行
Const ROW_HEAD1 = 5 '页标头行1
Const ROW_HEAD2 = 6 '页标头行2
Const ROW_GRID_START = 7 '表格开始行
Const CRB_TITLE = &H8080FF '标题颜色
Const CRB_LINE = vbBlack '表格线的颜色
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -