📄 frmyh_yhdzwd.frm
字号:
Select Case stbYhdzcx.Tab
Case 0
With mfgYhdzd
For i = 1 To .Rows - 1
lCount = lCount + 1
Call AppendOneRow_YH(ROW_GRID_START + lCount - 1, .TextMatrix(i, 0), _
.TextMatrix(i, 1), .TextMatrix(i, 2), .TextMatrix(i, 3), _
.TextMatrix(i, 4), .TextMatrix(i, 5), .TextMatrix(i, 6), .TextMatrix(i, 7))
If lCount Mod ROWS_PAGE_YH = 0 And i <> .Rows - 1 Then
lPage = lPage + 1
frmP.Cllr.InsertSheet frmP.Cllr.GetTotalSheets, 1
Call SetGrid_YH(lPage, sTitle, ROW_GRID_START + lCount)
frmP.Cllr.SetCurSheet lPage
lCount = 0
End If
Next i
End With
lPage = lPage + 1
Call SetGrid_YH(lPage, sTitle, ROW_GRID_START + lCount)
frmP.Cllr.SetCurSheet 0
Case 1
With mfgDwrjz
For i = 1 To .Rows - 1
lCount = lCount + 1
Call AppendOneRow_DW(ROW_GRID_START + lCount - 1, .TextMatrix(i, 0), _
.TextMatrix(i, 1), .TextMatrix(i, 2), .TextMatrix(i, 3), _
.TextMatrix(i, 4), .TextMatrix(i, 5), .TextMatrix(i, 6), _
.TextMatrix(i, 7), .TextMatrix(i, 8), .TextMatrix(i, 9), .TextMatrix(i, 10), .TextMatrix(i, 11))
If lCount Mod ROWS_PAGE_DW = 0 And i <> .Rows - 1 Then
lPage = lPage + 1
frmP.Cllr.InsertSheet frmP.Cllr.GetTotalSheets, 1
Call SetGrid_DW(lPage, sTitle, ROW_GRID_START + lCount)
frmP.Cllr.SetCurSheet lPage
lCount = 0
End If
Next i
End With
lPage = lPage + 1
Call SetGrid_DW(lPage, sTitle, ROW_GRID_START + lCount)
frmP.Cllr.SetCurSheet 0
End Select
End Sub
'设置打印银行对账单表格
Private Sub SetGrid_YH(ByVal PageNo As Long, ByVal sTitle As String, Optional ByVal FactRows As Long)
Dim i As Long, j As Long
Dim iColWidth() As Integer
With frmP.Cllr
.SetCurSheet PageNo - 1
.SetRows FactRows, PageNo - 1
.SetCols COL_END_YH + 2, PageNo - 1
.PrintSetMargin 10, 10, 10, 10
.ShowSideLabel 0, PageNo - 1
.ShowTopLabel 0, PageNo - 1
.SetDefaultFont .FindFontIndex("宋体", 1), 10
'Title
.SetCellAlign COL_START_YH, ROW_TITLE, PageNo - 1, 36
.SetCellFont COL_START_YH, ROW_TITLE, PageNo - 1, .FindFontIndex("黑体", 1)
.SetCellFontSize COL_START_YH, ROW_TITLE, PageNo - 1, 19
.SetCellFontStyle COL_START_YH, ROW_TITLE, PageNo - 1, 10
.MergeCells COL_START_YH, ROW_TITLE, COL_END_YH, ROW_TITLE
.SetCellString COL_START_YH, ROW_TITLE, PageNo - 1, "长期未达审计（银行）"
.SetRowHeight 1, 40, ROW_TITLE, PageNo - 1
'Comment
.MergeCells COL_START_YH, ROW_SUBJNAME, COL_BILL_DATE, ROW_SUBJNAME
.MergeCells COL_JSFS_YH, ROW_SUBJNAME, COL_FX_YH, ROW_SUBJNAME
.MergeCells COL_JE_YH, ROW_SUBJNAME, COL_END_YH, ROW_SUBJNAME
.SetCellFont COL_START_YH, ROW_SUBJNAME, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize COL_START_YH, ROW_SUBJNAME, PageNo - 1, 11
.SetCellFontStyle COL_START_YH, ROW_SUBJNAME, PageNo - 1, 0
.SetCellAlign COL_JE_YH, ROW_SUBJNAME, PageNo - 1, 34
.SetCellFont COL_JE_YH, ROW_SUBJNAME, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize COL_JE_YH, ROW_SUBJNAME, PageNo - 1, 11
.SetCellFontStyle COL_JE_YH, ROW_SUBJNAME, PageNo - 1, 0
.SetCellString COL_START_YH, ROW_SUBJNAME, PageNo - 1, sTitle
.SetCellString COL_JSFS_YH, ROW_SUBJNAME, PageNo - 1, "截止日期：" & Label3.Caption
.SetCellString COL_JE_YH, ROW_SUBJNAME, PageNo - 1, "截止日期未达天数超过：" & Trim$(Label5.Caption) & "天"
'Head
For i = ROW_HEAD1 To ROW_HEAD1
.SetRowHeight 1, 30, i, PageNo - 1
For j = COL_START_YH To COL_END_YH
.SetCellAlign j, i, PageNo - 1, 36
.SetCellTextStyle j, i, PageNo - 1, 2
'' .DoSetCellFont j, i, 10, 0, "楷体_GB2312"
.SetCellFont j, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize j, i, PageNo - 1, 11
.SetCellFontStyle j, i, PageNo - 1, 0
Next j
Next i
'设置列宽
iColWidth = GetColWidth(COLWIDTH_YH)
For i = LBound(iColWidth) To UBound(iColWidth)
.SetColWidth 1, iColWidth(i), i + 1, PageNo - 1
Next i
.SetColWidth 1, 1, COL_END_YH + 1, PageNo - 1
'设置内容
.SetCellString COL_KMDM_YH, ROW_HEAD1, PageNo - 1, "科目代码"
.SetCellString COL_KMMC_YH, ROW_HEAD1, PageNo - 1, "科目名称"
.SetCellString COL_RQ, ROW_HEAD1, PageNo - 1, "日期"
.SetCellString COL_JSFS_YH, ROW_HEAD1, PageNo - 1, "结算方式"
.SetCellString COL_BILL_NUMBER_YH, ROW_HEAD1, PageNo - 1, "票号"
.SetCellString COL_FX_YH, ROW_HEAD1, PageNo - 1, "方向"
.SetCellString COL_JE_YH, ROW_HEAD1, PageNo - 1, "金额"
' .SetCellString COL_LQBZ_YH, ROW_HEAD1, PageNo - 1, "两清标志"
' .SetCellString COL_ZY, ROW_HEAD1, PageNo - 1, "摘要"
'Text
For i = ROW_GRID_START To .GetRows(PageNo - 1) - 1
For j = COL_START_YH To COL_END_YH
.SetCellFont j, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize j, i, PageNo - 1, 11
.SetCellFontStyle j, i, PageNo - 1, 0
Next j
.SetCellAlign COL_KMDM_YH, i, PageNo - 1, 36
.SetCellAlign COL_KMMC_YH, i, PageNo - 1, 36
.SetCellAlign COL_RQ, i, PageNo - 1, 36
.SetCellAlign COL_JSFS_YH, i, PageNo - 1, 36
.SetCellAlign COL_BILL_NUMBER_YH, i, PageNo - 1, 36
.SetCellAlign COL_FX_YH, i, PageNo - 1, 34
.SetCellAlign COL_JE_YH, i, PageNo - 1, 34
Next i
.MergeCells .GetCols(PageNo - 1) - 1, ROW_HEAD1, .GetCols(PageNo - 1) - 1, .GetRows(PageNo - 1) - 1
'Draw Line
.DrawGridLine COL_ID_YH, ROW_HEAD1, COL_END_YH, .GetRows(PageNo - 1) - 1, 0, 2, .FindColorIndex(RGB(0, 0, 0), 1)
.DrawGridLine COL_START_YH, ROW_HEAD1, COL_END_YH, .GetRows(PageNo - 1) - 1, 1, 3, .FindColorIndex(RGB(0, 0, 0), 1)
.DrawGridLine COL_JSFS_YH, ROW_HEAD1, COL_END_YH, .GetRows(PageNo - 1) - 1, 2, 2, .FindColorIndex(RGB(0, 0, 0), 1)
.SetRows .GetRows(PageNo - 1) + 1, PageNo - 1
i = .GetRows(PageNo - 1) - 1
.MergeCells COL_START_YH, i, COL_FX_YH, i
.MergeCells COL_JE_YH, i, COL_END_YH, i
.SetCellAlign COL_START_YH, i, PageNo - 1, 33
.SetCellAlign COL_JE_YH, i, PageNo - 1, 34
.SetCellFont COL_START_YH, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize COL_START_YH, i, PageNo - 1, 11
.SetCellFontStyle COL_START_YH, i, PageNo - 1, 0
.SetCellFont COL_JE_YH, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize COL_JE_YH, i, PageNo - 1, 11
.SetCellFontStyle COL_JE_YH, i, PageNo - 1, 0
.MergeCells COL_ID_YH, i, COL_RQ, i
.SetCellAlign COL_ID_YH, i, PageNo - 1, 33
.SetCellString COL_START_YH, i, PageNo - 1, "核算单位：" & GetEnterpriseName("")
.MergeCells COL_BILL_NUMBER_YH, i, COL_JE_YH, i
.SetCellAlign COL_BILL_NUMBER_YH, i, PageNo - 1, 34
.SetCellString COL_BILL_NUMBER_YH, i, PageNo - 1, "打印日期：" & Format(Date, "yyyy-mm-dd")
.ShowPageBreak False
End With
End Sub
'设置单位日记账打印表格
Private Sub SetGrid_DW(ByVal PageNo As Long, ByVal sTitle As String, Optional ByVal FactRows As Long)
Dim i As Long, j As Long
Dim iColWidth() As Integer
With frmP.Cllr
.SetCurSheet PageNo - 1
.SetRows FactRows, PageNo - 1
.SetCols COL_END_DW + 2, PageNo - 1
.PrintSetMargin 10, 10, 10, 10
.PrintSetOrient 1
.ShowSideLabel 0, PageNo - 1
.ShowTopLabel 0, PageNo - 1
.SetDefaultFont .FindFontIndex("宋体", 1), 10
.SetSelectMode PageNo - 1, 2
.WorkbookReadonly = True
.AllowSizeColInGrid = True
'Title
.SetCellAlign COL_START_DW, ROW_TITLE, PageNo - 1, 36
.SetCellFont COL_START_DW, ROW_TITLE, PageNo - 1, .FindFontIndex("黑体", 1)
.SetCellFontSize COL_START_DW, ROW_TITLE, PageNo - 1, 19
.SetCellFontStyle COL_START_DW, ROW_TITLE, PageNo - 1, 10
.MergeCells COL_START_DW, ROW_TITLE, COL_END_DW, ROW_TITLE
.SetCellString COL_START_DW, ROW_TITLE, PageNo - 1, "长期未达审计（单位）"
.SetRowHeight 1, 40, ROW_TITLE, PageNo - 1
'Comment
.MergeCells COL_START_DW, ROW_SUBJNAME, COL_BILL_NUMBER_DW, ROW_SUBJNAME
.MergeCells COL_JSFS_DW, ROW_SUBJNAME, COL_FX_DW, ROW_SUBJNAME
.MergeCells COL_JE_DW, ROW_SUBJNAME, COL_END_DW, ROW_SUBJNAME
.SetCellFont COL_START_DW, ROW_SUBJNAME, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize COL_START_DW, ROW_SUBJNAME, PageNo - 1, 11
.SetCellFontStyle COL_START_DW, ROW_SUBJNAME, PageNo - 1, 0
.SetCellAlign COL_JE_DW, ROW_SUBJNAME, PageNo - 1, 34
.SetCellFont COL_JE_DW, ROW_SUBJNAME, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize COL_JE_DW, ROW_SUBJNAME, PageNo - 1, 11
.SetCellFontStyle COL_JE_DW, ROW_SUBJNAME, PageNo - 1, 0
.SetCellString COL_START_DW, ROW_SUBJNAME, PageNo - 1, sTitle
.SetCellString COL_JSFS_DW, ROW_SUBJNAME, PageNo - 1, "截止日期：" & Label3.Caption
.SetCellString COL_JE_DW, ROW_SUBJNAME, PageNo - 1, "截止日期未达天数超过：" & Trim(Label5.Caption) + "天"
'Head
For i = ROW_HEAD1 To ROW_HEAD1
.SetRowHeight 1, 30, i, PageNo - 1
For j = COL_START_DW To COL_END_DW
.SetCellAlign j, i, PageNo - 1, 36
.SetCellTextStyle j, i, PageNo - 1, 2
.SetCellFont j, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize j, i, PageNo - 1, 11
.SetCellFontStyle j, i, PageNo - 1, 0
Next j
Next i
'设置列宽
iColWidth = GetColWidth(COLWIDTH_DW)
For i = LBound(iColWidth) To UBound(iColWidth)
.SetColWidth 1, iColWidth(i), i + 1, PageNo - 1
Next i
.SetColWidth 1, 1, COL_END_DW + 1, PageNo - 1
'设置内容
.SetCellString COL_KMDM_DW, ROW_HEAD1, PageNo - 1, "科目代码"
.SetCellString COL_KMMC_DW, ROW_HEAD1, PageNo - 1, "科目名称"
.SetCellString COL_PZRQ, ROW_HEAD1, PageNo - 1, "凭证日期"
.SetCellString COL_BILL_DATE, ROW_HEAD1, PageNo - 1, "票据日期"
.SetCellString COL_JSFS_DW, ROW_HEAD1, PageNo - 1, "结算方式"
.SetCellString COL_BILL_NUMBER_DW, ROW_HEAD1, PageNo - 1, "票号"
.SetCellString COL_FX_DW, ROW_HEAD1, PageNo - 1, "方向"
.SetCellString COL_JE_DW, ROW_HEAD1, PageNo - 1, "金额"
' .SetCellString COL_LQBZ_DW, ROW_HEAD1, PageNo - 1, "两清标志"
.SetCellString COL_PZZL, ROW_HEAD1, PageNo - 1, "凭证种类"
.SetCellString COL_PZBH, ROW_HEAD1, PageNo - 1, "凭证编号"
.SetCellString COL_PZZY, ROW_HEAD1, PageNo - 1, "摘要"
'Text
For i = ROW_GRID_START To .GetRows(PageNo - 1) - 1
For j = COL_START_DW To COL_END_DW
.SetCellFont j, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize j, i, PageNo - 1, 11
.SetCellFontStyle j, i, PageNo - 1, 0
Next j
.SetCellAlign COL_KMDM_DW, i, PageNo - 1, 36
.SetCellAlign COL_KMMC_DW, i, PageNo - 1, 36
.SetCellAlign COL_PZRQ, i, PageNo - 1, 36
.SetCellAlign COL_BILL_DATE, i, PageNo - 1, 36
.SetCellAlign COL_JSFS_DW, i, PageNo - 1, 36
.SetCellAlign COL_BILL_NUMBER_DW, i, PageNo - 1, 36
.SetCellAlign COL_FX_DW, i, PageNo - 1, 34
.SetCellAlign COL_JE_DW, i, PageNo - 1, 34
.SetCellAlign COL_PZZL, i, PageNo - 1, 36
.SetCellAlign COL_PZBH, i, PageNo - 1, 36
.SetCellAlign COL_PZZY, i, PageNo - 1, 33
Next i
.MergeCells .GetCols(.GetCurSheet) - 1, ROW_HEAD1, .GetCols(.GetCurSheet) - 1, .GetRows(.GetCurSheet) - 1
'Draw Line
'' 'Frame
.DrawGridLine COL_ID_DW, ROW_HEAD1, COL_END_DW + 1, .GetRows(PageNo - 1) - 1, 0, 2, .FindColorIndex(RGB(0, 0, 0), 1)
.DrawGridLine COL_START_DW, ROW_HEAD1, COL_END_DW, .GetRows(PageNo - 1) - 1, 1, 3, .FindColorIndex(RGB(0, 0, 0), 1)
' .DrawGridLine COL_BILL_DATE, ROW_HEAD1, COL_END_DW + 1, .GetRows(PageNo - 1) - 1, 2, 2, .FindColorIndex(RGB(0, 0, 0), 1)
.SetRows .GetRows(PageNo - 1) + 1, PageNo - 1
i = .GetRows(PageNo - 1) - 1
.MergeCells COL_START_DW, i, COL_BILL_NUMBER_DW, i
.MergeCells COL_FX_DW, i, COL_END_DW, i
.SetCellAlign COL_START_DW, i, PageNo - 1, 33
.SetCellAlign COL_FX_DW, i, PageNo - 1, 34
.SetCellFont COL_START_DW, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize COL_START_DW, i, PageNo - 1, 11
.SetCellFontStyle COL_START_DW, i, PageNo - 1, 0
.SetCellFont COL_FX_DW, i, PageNo - 1, .FindFontIndex("楷体_GB2312", 1)
.SetCellFontSize COL_FX_DW, i, PageNo - 1, 11
.SetCellFontStyle COL_FX_DW, i, PageNo - 1, 0
.MergeCells COL_ID_DW, i, COL_PZRQ, i
.SetCellAlign COL_ID_DW, i, PageNo - 1, 33
.SetCellString COL_START_DW, i, PageNo - 1, "核算单位：" & GetEnterpriseName("")
.SetCellString COL_FX_DW, i, PageNo - 1, "打印日期：" & Format(Date, "yyyy-mm-dd")
.ShowPageBreak False
End With
End Sub
'向表格中追加一行
Private Sub AppendOneRow_YH(ByVal i As Long, ByVal sId As Integer, ByVal sKmdm As String, ByVal sKmmc As String, ByVal sRq As String, ByVal sJsfs As String, _
ByVal sBill_Number As String, ByVal sFx As String, _
ByVal sJe As String)
With frmP.Cllr
.SetCellString COL_ID_YH, i, .GetCurSheet, sId
.SetCellString COL_KMDM_YH, i, .GetCurSheet, sKmdm
.SetCellString COL_KMMC_YH, i, .GetCurSheet, sKmmc
.SetCellString COL_RQ, i, .GetCurSheet, sRq
.SetCellString COL_JSFS_YH, i, .GetCurSheet, sJsfs
.SetCellString COL_BILL_NUMBER_YH, i, .GetCurSheet, sBill_Number
.SetCellString COL_FX_YH, i, .GetCurSheet, sFx
.SetCellString COL_JE_YH, i, .GetCurSheet, sJe
End With
End Sub
'向表格中追加一行
Private Sub AppendOneRow_DW(ByVal i As Long, ByVal sId As Integer, ByVal sKmdm As String, ByVal sKmmc As String, ByVal sPzrq As String, _
ByVal sBill_Date As String, ByVal sJsfs As String, _
ByVal sBill_Number As String, ByVal sFx As String, _
ByVal sJe As String, _
ByVal sPZZL As String, ByVal sPZBH As String, _
ByVal sPzzy As String)
With frmP.Cllr
.SetCellString COL_ID_DW, i, .GetCurSheet, sId
.SetCellString COL_KMDM_DW, i, .GetCurSheet, sKmdm
.SetCellString COL_KMMC_DW, i, .GetCurSheet, sKmmc
.SetCellString COL_PZRQ, i, .GetCurSheet, sPzrq
.SetCellString COL_BILL_DATE, i, .GetCurSheet, sBill_Date
.SetCellString COL_JSFS_DW, i, .GetCurSheet, sJsfs
.SetCellString COL_BILL_NUMBER_DW, i, .GetCurSheet, sBill_Number
.SetCellString COL_FX_DW, i, .GetCurSheet, sFx
.SetCellString COL_JE_DW, i, .GetCurSheet, sJe
.SetCellString COL_PZZL, i, .GetCurSheet, sPZZL
.SetCellString COL_PZBH, i, .GetCurSheet, sPZBH
.SetCellString COL_PZZY, i, .GetCurSheet, sPzzy
End With
End Sub
'得到每列宽度
Private Function GetColWidth(ByVal sColWidth As String) As Integer()
Dim i As Integer
Dim j As Integer
Dim iColWidth() As Integer
i = 0
ReDim iColWidth(0 To i)
For j = 1 To Len(sColWidth)
If j = 1 Then
iColWidth(i) = Mid(sColWidth, j, 1)
ElseIf Mid(sColWidth, j, 1) <> "," Then
iColWidth(i) = iColWidth(i) & Mid(sColWidth, j, 1)
Else
i = i + 1
ReDim Preserve iColWidth(0 To i)
End If
Next j
GetColWidth = iColWidth
End Function
Public Property Let uJzRq(ByVal vNewValue As Variant)
JzRq = Format(vNewValue, "yyyy-mm-dd")
End Property
Public Property Let uCgts(ByVal vNewValue As Variant)
Cgts = CInt(vNewValue)
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -