📄 frmac_detailselectprint2.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_DetailSelectPrint2
BorderStyle = 3 'Fixed Dialog
Caption = "明细账：选择范围"
ClientHeight = 4575
ClientLeft = 3840
ClientTop = 3060
ClientWidth = 4800
HelpContextID = 1052
Icon = "frmAC_DetailSelectprint2.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4575
ScaleWidth = 4800
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
Begin CELL50Lib.Cell Cllr
Height = 855
Left = 1680
TabIndex = 40
Top = 6240
Width = 2535
_Version = 65536
_ExtentX = 4471
_ExtentY = 1508
_StockProps = 0
End
Begin VB.Frame Frame2
Height = 1155
Left = 120
TabIndex = 31
Top = 2880
Width = 4605
Begin VB.CheckBox Check1
Caption = "保存到excel"
Height = 255
Left = 240
TabIndex = 39
Top = 840
Width = 2535
End
Begin VB.CheckBox Chk_NbalaHappen
Caption = "若期初无余额，本期无发生也打印"
Height = 375
Left = 240
TabIndex = 11
Top = 120
Width = 3255
End
Begin VB.CheckBox Chk_BalaNHappen
Caption = "若期初有余额，本期无发生也打印"
Height = 375
Left = 240
TabIndex = 12
Top = 480
Width = 3255
End
End
Begin VB.Frame Frame1
Height = 2100
Left = 90
TabIndex = 22
Top = 720
Width = 4605
Begin VB.CheckBox chkPrintDetial
Caption = "非末级科目是否打印明细"
Height = 285
Left = 1920
TabIndex = 10
Top = 1710
Width = 2325
End
Begin VB.TextBox txtPrintEnd
Alignment = 1 'Right Justify
Height = 270
Left = 3120
TabIndex = 7
Top = 1320
Width = 735
End
Begin VB.TextBox txtPageStart
Alignment = 1 'Right Justify
Height = 270
Left = 3780
TabIndex = 5
Text = "1"
Top = 990
Width = 735
End
Begin VB.TextBox txtPrintStart
Alignment = 1 'Right Justify
Height = 270
Left = 1215
TabIndex = 6
Text = "1"
Top = 1320
Width = 735
End
Begin VB.CheckBox chkModePrint
Caption = "套打"
Height = 240
Left = 1200
TabIndex = 9
Top = 1725
Width = 1095
End
Begin MSComCtl2.UpDown UpDown2
Height = 285
Left = 2565
TabIndex = 36
Top = 990
Width = 270
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 5
BuddyControl = "txtJcEnd"
BuddyDispid = 196619
OrigLeft = 2610
OrigTop = 990
OrigRight = 2880
OrigBottom = 1185
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox txtJcEnd
Enabled = 0 'False
Height = 285
Left = 2295
TabIndex = 35
Text = "5"
Top = 990
Width = 270
End
Begin MSComCtl2.UpDown UpDown1
Height = 285
Left = 1395
TabIndex = 34
Top = 990
Width = 270
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 1
AutoBuddy = -1 'True
BuddyControl = "txtJcStart"
BuddyDispid = 196620
OrigLeft = 1440
OrigTop = 990
OrigRight = 1710
OrigBottom = 1275
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox txtJcStart
Enabled = 0 'False
Height = 285
Left = 1125
TabIndex = 33
Text = "1"
Top = 990
Width = 270
End
Begin VB.CheckBox chkEndLevelSubject
Caption = "末级科目"
Height = 285
Left = 120
TabIndex = 8
Top = 1710
Width = 1035
End
Begin VB.ComboBox cboAccountFormat
Enabled = 0 'False
Height = 300
Left = 1110
Style = 1 'Simple Combo
TabIndex = 13
Text = "cboAccountFormat"
Top = 225
Width = 1755
End
Begin VB.TextBox txtMonthTo
Height = 285
Left = 3510
MaxLength = 2
TabIndex = 4
Top = 600
Width = 420
End
Begin VB.TextBox txtYear
Height = 285
Left = 1110
Locked = -1 'True
TabIndex = 2
Top = 600
Width = 810
End
Begin VB.TextBox txtMonthFrom
Height = 285
Left = 2190
MaxLength = 2
TabIndex = 3
Top = 600
Width = 420
End
Begin MSComCtl2.UpDown updMonthTo
Height = 285
Left = 3930
TabIndex = 23
Top = 600
Width = 270
_ExtentX = 423
_ExtentY = 503
_Version = 393216
BuddyControl = "txtMonthTo"
BuddyDispid = 196623
OrigLeft = 2820
OrigTop = 570
OrigRight = 3015
OrigBottom = 855
Max = 12
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComCtl2.UpDown updMonthFrom
Height = 285
Left = 2610
TabIndex = 24
Top = 600
Width = 270
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 1
BuddyControl = "txtMonthFrom"
BuddyDispid = 196625
OrigLeft = 2760
OrigTop = 240
OrigRight = 2955
OrigBottom = 525
Max = 12
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Line Line4
X1 = 2070
X2 = 3030
Y1 = 1440
Y2 = 1440
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "起始页号："
Height = 180
Left = 2895
TabIndex = 38
Top = 1035
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "打印范围："
Height = 180
Left = 120
TabIndex = 37
Top = 1365
Width = 900
End
Begin VB.Line Line3
X1 = 1755
X2 = 2205
Y1 = 1125
Y2 = 1125
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "科目级次："
Height = 180
Left = 135
TabIndex = 32
Top = 990
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "账页格式："
Height = 180
Left = 150
TabIndex = 30
Top = 300
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "至"
Height = 180
Left = 3210
TabIndex = 29
Top = 645
Width = 180
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "月"
Height = 180
Left = 4230
TabIndex = 28
Top = 645
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "查询日期："
Height = 180
Left = 150
TabIndex = 27
Top = 645
Width = 900
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -