📄 yk_list.frm
字号:
Printer.FontSize = 15
Printer.Print " [" + CStr(Year(M2)) + "年" + CStr(Month(M2)) + "月]出 库 汇 总 表 "
Printer.Print " "
Printer.FontSize = 10.5
Printer.FontName = "宋体"
Printer.Print "日期范围:" + CStr(m1) + "----" + CStr(M2) + " " + Space(50) + "页数: " + CStr(mpage) + "----" + CStr(RTrim(CStr(i))) + "/" + CStr(mpage)
Printer.Print "┌──────────┬───────────────┬───────────────┬───────────────┬───────────────┬───────────────┐"
Printer.Print "│ │ 西 药 │ 中 成 药 │ 饮 片 │ 卫 生 材 料 │ 合 计 │"
Printer.Print "│ 请 领 单 位 ├───────┬───────┼───────┬───────┼───────┬───────┼───────┬───────┼───────┬───────┤"
Printer.Print "│ │ 出库批发额 │ 返库批发额 │ 出库批发额 │ 返库批发额 │ 出库批发额 │ 返库批发额 │ 出库批发额 │ 返库批发额 │ 出库批发额 │ 返库批发额 │"
'打印记录
For j = 1 To mline
If Not biao.Resultset.EOF Then
mks_name = Left(CStr(biao.Resultset!请领单位), 20)
Printer.Print "├──────────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┤"
Printer.Print "│" + mks_name + Space(20 - DxLen(CStr(mks_name))) _
; "│" + iszero(biao.Resultset!西药出库批发额) _
; "│" + iszero(biao.Resultset!西药返库批发额) _
; "│" + iszero(biao.Resultset!中成药出库批发额) _
; "│" + iszero(biao.Resultset!中成药返库批发额) _
; "│" + iszero(biao.Resultset!饮片出库批发额) _
; "│" + iszero(biao.Resultset!饮片返库批发额) _
; "│" + iszero(biao.Resultset!卫生材料出库批发额) _
; "│" + iszero(biao.Resultset!卫生材料返库批发额) _
; "│" + iszero(biao.Resultset!批发额出库合计) _
; "│" + iszero(biao.Resultset!返库额批发合计) _
; "│"
biao.Resultset.MoveNext
If biao.Resultset.EOF Then Exit For
End If
Next j
Printer.Print "└──────────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┘"
Printer.Print "制表人: 科(处)长: 审核: 打印日期 " + CStr(Date) + " " + CStr(Time)
If biao.Resultset.EOF Then
Exit For
Else
Printer.NewPage
End If
Next i
Printer.EndDoc
End If
'*********清查******************************************************
If report_id = 3 Then
'打印纸张型号,高度,宽度
'Printer.PaperSize = 256
Printer.Height = 8000
Printer.Width = 24000
'提取打印信息
biao.Resultset.MoveFirst
'打印名头
Printer.FontSize = 18
Printer.Print " " + yuanming
Printer.FontSize = 5
Printer.Print " "
Printer.FontSize = 15
Printer.Print " [" + CStr(Year(M2)) + "年" + CStr(Month(M2)) + "月]清 查 汇 总 表 "
Printer.Print " "
Printer.FontSize = 10.5
Printer.FontName = "宋体"
Printer.Print "日期范围:" + CStr(m1) + "----" + CStr(M2)
Printer.Print "┌───────┬───────────────┬───────────────┬───────────────┬───────────────┬───────────────┐"
Printer.Print "│ │ 西 药 │ 中 成 药 │ 饮 片 │ 卫 生 材 料 │ 合 计 │"
Printer.Print "│ 清 查 内 容 ├───────┬───────┼───────┬───────┼───────┬───────┼───────┬───────┼───────┬───────┤"
Printer.Print "│ │ 进 货 额 │ 零 售 额 │ 进 货 额 │ 零 售 额 │ 进 货 额 │ 零 售 额 │ 进 货 额 │ 零 售 额 │ 进 货 额 │ 零 售 额 │"
'打印记录
Do While Not biao.Resultset.EOF
If Not biao.Resultset.EOF Then
mabstract = CStr(biao.Resultset!清查内容)
Printer.Print "├───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┤"
Printer.Print "│" + mabstract + Space(14 - DxLen(CStr(mabstract))) _
; "│" + iszero(biao.Resultset!西药进货额) _
; "│" + iszero(biao.Resultset!西药零售额) _
; "│" + iszero(biao.Resultset!中成药进货额) _
; "│" + iszero(biao.Resultset!中成药零售额) _
; "│" + iszero(biao.Resultset!饮片进货额) _
; "│" + iszero(biao.Resultset!饮片零售额) _
; "│" + iszero(biao.Resultset!卫生材料进货额) _
; "│" + iszero(biao.Resultset!卫生材料零售额) _
; "│" + iszero(biao.Resultset!进货额合计) _
; "│" + iszero(biao.Resultset!零售额合计) _
; "│"
biao.Resultset.MoveNext
If biao.Resultset.EOF Then Exit Do
End If
Loop
Printer.Print "└───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┘"
Printer.Print "制表人: 科(处)长: 审核: 打印日期 " + CStr(Date) + " " + CStr(Time)
Printer.EndDoc
End If
'*********调拔******************************************************
If report_id = 4 Then
'设置打印纸张型号,高度,宽度
biao.Resultset.MoveLast
mnumber = biao.Resultset.RowCount
biao.Resultset.MoveFirst
mline = 10
mpage = mnumber \ mline
mlast = mnumber Mod mline
If mlast <> 0 Then
mpage = mpage + 1
End If
'设置纸张型号,高度,宽度
' Printer.PaperSize = 256
Printer.Height = 8000
Printer.Width = 24000
'分页打印
For i = 1 To mpage
'打印名头
Printer.FontName = "隶书"
Printer.FontSize = 14
Printer.Print " " + yuanming
Printer.Print " "
Printer.Print " " + CStr(Year(M2)) + "年" + CStr(Month(M2)) + "月份入库汇总表 "
Printer.Print " " + CStr(m1) + "----" + CStr(M2)
Printer.Print " "
Printer.FontSize = 9
Printer.Print "打印日期: " + CStr(Date) + Space(102) + "页数: " + CStr(mpage) + "----" + CStr(RTrim(CStr(i))) + "/" + CStr(mpage)
Printer.Print "┌────────────────────┬───────────────┬───────────────┬───────────────┬───────────────┐"
Printer.Print "│ │ 西 药 │ 中 成 药 │ 中 草 药 │ 合 计 │"
Printer.Print "│ 调 拨 单 位 ├───────┬───────┼───────┬───────┼───────┬───────┼───────┬───────┤"
Printer.Print "│ │ 进 货 额 │ 零 售 额 │ 进 货 额 │ 零 售 额 │ 进 货 额 │ 零 售 额 │ 进 货 额 │ 零 售 额 │"
'打印记录
For j = 1 To mline
If Not biao.Resultset.EOF Then
msource = Left(CStr(biao.Resultset!调拨单位), 20)
money1 = Left(CStr(Format(biao.Resultset!西药进货额, "##,###,##0.00")), 14)
money11 = Left(CStr(Format(biao.Resultset!西药调拨额, "##,###,##0.00")), 14)
money2 = Left(CStr(Format(biao.Resultset!中成药进货额, "##,###,##0.00")), 14)
money22 = Left(CStr(Format(biao.Resultset!中成药调拨额, "##,###,##0.00")), 14)
money3 = Left(CStr(Format(biao.Resultset!饮片进货额, "##,###,##0.00")), 14)
money33 = Left(CStr(Format(biao.Resultset!饮片调拨额, "##,###,##0.00")), 14)
money0 = Left(CStr(Format(biao.Resultset!进货额合计, "##,###,##0.00")), 14)
money00 = Left(CStr(Format(biao.Resultset!调拨额合计, "##,###,##0.00")), 14)
Printer.Print "├────────────────────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┤"
Printer.Print "│" + msource + Space(40 - DxLen(CStr(msource))) _
; "│" + Space(14 - DxLen(money1)) + money1 _
; "│" + Space(14 - DxLen(money11)) + money11 _
; "│" + Space(14 - DxLen(money2)) + money2 _
; "│" + Space(14 - DxLen(money22)) + money22 _
; "│" + Space(14 - DxLen(money3)) + money3 _
; "│" + Space(14 - DxLen(money33)) + money33 _
; "│" + Space(14 - DxLen(money0)) + money0 _
; "│" + Space(14 - DxLen(money00)) + money00 + "│"
biao.Resultset.MoveNext
If biao.Resultset.EOF Then Exit For
End If
Next j
Printer.Print "└────────────────────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┘"
Printer.Print "制表人: 科(处)长: 审核: 打印日期 " + CStr(Date) + " " + CStr(Time)
If biao.Resultset.EOF Then
Exit For
Else
Printer.NewPage
End If
Next i
Printer.EndDoc
End If
'*********调价******************************************************
If report_id = 5 Then
'打印纸张设置
' Printer.PaperSize = 256
Printer.Height = 6000
Printer.Width = 24000
'打印名头
biao.Resultset.MoveFirst
Printer.FontSize = 18
Printer.Print " " + yuanming
Printer.FontSize = 5
Printer.Print " "
Printer.FontSize = 15
Printer.Print " [" + CStr(Year(M2)) + "年" + CStr(Month(M2)) + "月] 调 价 汇 总 表 "
Printer.Print " "
Printer.FontSize = 10.5
Printer.FontName = "宋体"
Printer.Print "日期范围:" + CStr(m1) + "----" + CStr(M2)
Printer.Print "┌─────┬─────────────┬─────────────┬─────────────┐"
Printer.Print "│ │ 调 前 (总额)│ 调 后 (总额)│ 增 减 额 (总额)│"
Printer.Print "│ 类 型 ├──────┬──────┼──────┬──────┼──────┬──────┤"
Printer.Print "│ │ 批 发 价 │ 零 售 价 │ 批 发 价 │ 零 售 价 │ 批 发 价 │ 零 售 价 │"
'打印记录
For j = 1 To biao.Resultset.RowCount
mkind = Left(CStr(biao.Resultset!类别), 10)
money1 = Left(CStr(Format(biao.Resultset!调前批发价, "#,###,##0.00")), 12)
money11 = Left(CStr(Format(biao.Resultset!调后批发价, "#,###,##0.00")), 12)
money2 = Left(CStr(Format(biao.Resultset!调前零售价, "#,###,##0.00")), 12)
money22 = Left(CStr(Format(biao.Resultset!调后零售价, "#,###,##0.00")), 12)
money3 = Left(CStr(Format(biao.Resultset!批发价价差, "#,###,##0.00")), 12)
money33 = Left(CStr(Format(biao.Resultset!零售价价差, "#,###,##0.00")), 12)
Printer.Print "├─────┼──────┼──────┼──────┼──────┼──────┼──────┤"
Printer.Print "│" + mkind + Space(10 - DxLen(CStr(mkind))) _
; "│" + Space(12 - DxLen(money1)) + money1 _
; "│" + Space(12 - DxLen(money2)) + money2 _
; "│" + Space(12 - DxLen(money11)) + money11 _
; "│" + Space(12 - DxLen(money22)) + money22 _
; "│" + Space(12 - DxLen(money3)) + money3 _
; "│" + Space(12 - DxLen(money33)) + money33 + "│"
biao.Resultset.MoveNext
Next
Printer.Print "└─────┴──────┴──────┴──────┴──────┴──────┴──────┘"
Printer.Print "制表人: 科(处)长: 审核: 打印日期 " + CStr(Date) + " " + CStr(Time)
Printer.EndDoc
End If
'****库存动态汇总*******************************************************
Printer.EndDoc
If report_id = 6 Then
' Printer.PaperSize = 256
Printer.Height = 8000
Printer.Width = 24000
biao.Resultset.MoveFirst
'打印名头
Printer.FontSize = 18
Printer.Print " " + yuanming
Printer.FontSize = 5
Printer.Print " "
Printer.FontSize = 15
Printer.Print " [" + CStr(Year(M2)) + "年" + CStr(Month(M2)) + "月] 动 态 汇 总 汇 总 表 "
Printer.Print " "
Printer.FontSize = 10.5
Printer.FontName = "宋体"
Printer.Print "日期范围:" + CStr(m1) + "----" + CStr(M2)
Printer.Print "┌───┬───────────────┬───────────────┬───────────────┬───────────────┐"
Printer.Print "│ │ 期 初 库 存 │ 本 期 调 入 │ 本 期 调 出 │ 期 末 库 存 │"
Printer.Print "│类 型├───────┬───────┼───────┬───────┼───────┬───────┼───────┬───────┤"
Printer.Print "│ │ 进 货 额 │ 批 发 额 │ 进 货 额 │ 批 发 额 │ 进 货 额 │ 批 发 额 │ 进 货 额 │ 批 发 额 │"
'打印记录
For i = 1 To biao.Resultset.RowCount
mkind = CStr(biao.Resultset!类别)
money1 = Left(CStr(Format(biao.Resultset!期初进货额, "###,###,##0.00")), 14)
money11 = Left(CStr(Format(biao.Resultset!期初批发额, "###,###,##0.00")), 14)
money2 = Left(CStr(Format(biao.Resultset!调入进货额, "###,###,##0.00")), 14)
money22 = Left(CStr(Format(biao.Resultset!调入批发额, "###,###,##0.00")), 14)
money3 = Left(CStr(Format(biao.Resultset!调出进货额, "###,###,##0.00")), 14)
money33 = Left(CStr(Format(biao.Resultset!调出批发额, "###,###,##0.00")), 14)
money0 = Left(CStr(Format(biao.Resultset!期末进货额, "###,###,##0.00")), 14)
money00 = Left(CStr(Format(biao.Resultset!期末批发额, "###,###,##0.00")), 14)
Printer.Print "├───┼───────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┤"
Printer.Print "│" + mkind + Space(6 - DxLen(mkind)) _
; "│" + Space(14 - DxLen(money1)) + money1 _
; "│" + Space(14 - DxLen(money11)) + money11 _
; "│" + Space(14 - DxLen(money2)) + money2 _
; "│" + Space(14 - DxLen(money22)) + money22 _
; "│" + Space(14 - DxLen(money3)) + money3 _
; "│" + Space(14 - DxLen(money33)) + money33 _
; "│" + Space(14 - DxLen(money0)) + money0 _
; "│" + Space(14 - DxLen(money00)) + money00 + "│"
biao.Resultset.MoveNext
Next
Printer.Print "└───┴───────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┘"
Printer.Print "制表人: 科(处)长: 审核: 打印日期 " + CStr(Date) + " " + CStr(Time)
Printer.EndDoc
End If
'***************************************************************
Printer.EndDoc
MsgBox "打印结束", , "结束"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -