📄 printgbyy.frm

📁 适合乡镇供电所使用电费处理系统v3 软件
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率2电量) AS 总电量,Sum(比率2电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率2代码='12'")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 Hdl = Hdl + Lbdl
                                 Hdf = Hdf + Lbdf
                                 '加入提取的工业类别电量电费到月报库
                                 .Fields!fjdl = Lbdl
                                 .Fields!fjdf = Lbdf
                                 .Fields!hjdl = Hdl
                                 .Fields!hjdf = Hdf
                                 itm.SubItems(5) = IIf(Lbdl = 0, "", Lbdl)
                                 itm.SubItems(6) = IIf(Lbdf = 0, "", Format(Lbdf, "0.00"))
                                 itm.SubItems(9) = IIf(Hdl = 0, "", Hdl)
                                 itm.SubItems(10) = IIf(Hdf = 0, "", Format(Hdf, "0.00"))
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT COUNT(*) AS 用户数 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' AND IsNull(用户电费.[" & AA & "])=False AND len(用户电费.[" & AA & "])<>0")
                                 .Fields!scyh = TempRes2.Fields!用户数
                                 itm.SubItems(11) = IIf(TempRes2.Fields!用户数 = 0, "", TempRes2.Fields!用户数)
                                 .Update
                           End With
                End Select
           Next
           Lbdl = 0
           Lbdf = 0
           Hhs = 0
           Hdl = 0
           Hdf = 0
           Pr1.Value = I
           MdbR.MoveNext
        Next
        Set TempRes1 = NdMd.OpenRecordset("SELECT SUM(DLDL) AS DLZDL,SUM(DLDF) AS DLZDF,SUM(ZMDL) AS ZMZDL,SUM(ZMDF) AS ZMZDF,SUM(FJDL) AS JGZDL,SUM(FJDF) AS JGZDF,SUM(SYDL) AS SYZDL,SUM(SYDF) AS SYZDF,SUM(HJDL) AS HJZDL,SUM(HJDF) AS HJZDF,SUM(SCYH) AS HJZHS FROM 公变月报")
'        TempRes1.AddNew
        DlZdl = TempRes1.Fields!DlZdl
        DlZdf = TempRes1.Fields!DlZdf
        ZmZdl = TempRes1.Fields!ZmZdl
        ZmZdf = TempRes1.Fields!ZmZdf
        SyZdl = TempRes1.Fields!SyZdl
        SyZdf = TempRes1.Fields!SyZdf
        JgZdl = TempRes1.Fields!JgZdl
        JgZdf = TempRes1.Fields!JgZdf
        HjZdl = TempRes1.Fields!HjZdl
        HjZdf = TempRes1.Fields!HjZdf
        HjZHs = TempRes1.Fields!HjZHs
        Set TempRes1 = NdMd.OpenRecordset("公变月报")
        With TempRes1
            .AddNew
            .Fields!TM = "合   计:"
            .Fields!dldl = DlZdl
            .Fields!dldf = DlZdf
            .Fields!zmdl = ZmZdl
            .Fields!zmdf = ZmZdf
            .Fields!sydl = SyZdl
            .Fields!sydf = SyZdf
            .Fields!fjdl = JgZdl
            .Fields!fjdf = JgZdf
            .Fields!hjdl = HjZdl
            .Fields!hjdf = HjZdf
            .Fields!scyh = HjZHs
            .Update
        End With
        Set itm = ListView1.ListItems.Add(, , "总   计:")
        itm.SubItems(1) = IIf(DlZdl = 0, "", DlZdl)
        itm.SubItems(2) = IIf(DlZdf = 0, "", Format(DlZdf, "0.00"))
        itm.SubItems(3) = IIf(ZmZdl = 0, "", ZmZdl)
        itm.SubItems(4) = IIf(ZmZdf = 0, "", Format(ZmZdf, "0.00"))
        itm.SubItems(5) = IIf(JgZdl = 0, "", JgZdl)
        itm.SubItems(6) = IIf(JgZdf = 0, "", Format(JgZdf, "0.00"))
        itm.SubItems(7) = IIf(SyZdl = 0, "", SyZdl)
        itm.SubItems(8) = IIf(SyZdf = 0, "", Format(SyZdf, "0.00"))
        itm.SubItems(9) = IIf(HjZdl = 0, "", HjZdl)
        itm.SubItems(10) = IIf(HjZdf = 0, "", Format(HjZdf, "0.00"))
        itm.SubItems(11) = IIf(HjZHs = 0, "", HjZHs)
        Pr1.Value = 0
        Pr1.Visible = False
        Screen.MousePointer = 0
    End If
    Exit Sub
    
PangERR:
         MsgBox Err.Description, vbCritical
         Exit Sub
      
End Sub

Sub PrintHZ()
   Dim I  As Integer
        Dim j As Integer
        Dim Start As String
        Dim end_s As String
        Dim k As Integer
        Dim temp_string As String
        On Error GoTo hander
    Printer.ColorMode = 1                           '用单色打印
    Printer.CurrentX = 0
    Printer.CurrentY = 0                            '打印机的初始位置
    Printer.Duplex = 1                              '单面打印
    Printer.Font.Bold = True                        '打印按黑体
    Printer.Font.Italic = False                     '打印斜体
    Printer.Font.Size = 11                          '打印字体的大小
    Printer.Font.Underline = False                  '不打印下划线
    Printer.Font.Weight = 9                         '字体的重量
    
    Printer.ScaleMode = 3                           '按像素计算打印机纸张的大小
   
    Printer.ScaleTop = 0                            '设置坐标的起始位置的最上边
    Printer.ScaleLeft = 0                           '设置坐标的起始位置的最左边
    Printer.ScaleHeight = 100 '67               '设置坐标的全部高度
    Printer.ScaleWidth = 100                        '设置坐标的全部长度
    
    Printer.Width = 16840
    Printer.Height = 23814
    Printer.Orientation = 2
    '─││┆┈┄┆┊┌┐└┘├┤┬┴┼╱╲「」┨┓┏┃┗ ┯ ━  ┛┷┠
   ' For i = 1 To ListView1.ListItems.Count
   '    j = 0
        Printer.CurrentY = 0
        Printer.CurrentX = 0
        Printer.Font.Name = "黑体"
        Printer.FontSize = 20
        Printer.Print Space(24); "泗县供电局" & pbDw & "公用变用电营业月报表"
        Printer.Font.Name = "宋体"
        Printer.FontSize = 11
        Printer.Print Space(10) & "打印日期:" & Date & Space(50) & "第" & Printer.Page; "页" & Space(10) & "表一(公)"
        Printer.Print "┏━━━━━━━━━━━━┯━━━━━━━━━━━━━┯━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┯━━━━┯━━━┯━━┓"
        Printer.Print "┃                        │   配 变 供 电 量         │                             计    费     电     量     电     费                                 │   差   │      │    ┃"
        Printer.Print "┃      台      区        ├───┬──┬──┬───┼─────────┬─────────┬─────────┬─────────┬─────────┤   价   │ 低压 │实抄┃"
        Printer.Print "┃                        │配  变│ 铁 │ 铜 │      │    动     力     │    生 活 照 明   │    机 关 照 明   │    营 业 照 明   │    合     计     │   还   │ 损失 │用户┃"
        Printer.Print "┃      名      称        │      │    │    │合  计├───┬─────┼───┬─────┼───┬─────┼───┬─────┼───┬─────┤   代   │ 率   │户数┃"
        Printer.Print "┃                        │抄  见│ 损 │ 损 │      │电  量│  电  费  │电  量│  电  费  │电  量│  电  费  │电  量│  电  费  │电  量│  电  费  │   款   │ (%)  │    ┃"
        Printer.Print "┠────────────┼───┼──┼──┼───┼───┼─────┼───┼─────┼───┼─────┼───┼─────┼───┼─────┼────┼───┼──┨"
'        Printer.Print "台区名称      动力电量  动力电费 照明电量 照明电费  机关电量  机关电费  营业电量  营业电费  合计电量  合计电费  实抄户数  "
'        Printer.Print String(110, "-")
        j = 0
        For I = 1 To ListView1.ListItems.Count
        If j < 24 Then
          Printer.Print "┃" & Left(Trim(ListView1.ListItems(I)) & Space(24), 24 - convert_str(ListView1.ListItems(I))) & "│" & Space(6) & "│" & Space(4) & "│" & Space(4) & "│" & Space(6) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(1)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(2), "0.00"), 10) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(3)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(4), "0.00"), 10) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(5)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(6), "0.00"), 10) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(7)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(8), "0.00"), 10) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(9)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(10), "0.00"), 10) & "│" _
              & Space(8) & "│" & Space(6) & "│" & Right(Space(4) & Trim(ListView1.ListItems(I).SubItems(11)), 4) & "┃"
          Printer.Print "┠────────────┼───┼──┼──┼───┼───┼─────┼───┼─────┼───┼─────┼───┼─────┼───┼─────┼────┼───┼──┨"
          j = j + 1
        Else
          Printer.Print "┃" & Left(Trim(ListView1.ListItems(I)) & Space(24), 24 - convert_str(ListView1.ListItems(I))) & "│" & Space(6) & "│" & Space(4) & "│" & Space(4) & "│" & Space(6) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(1)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(2), "0.00"), 10) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(3)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(4), "0.00"), 10) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(5)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(6), "0.00"), 10) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(7)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(8), "0.00"), 10) & "│" _
              & Right(Space(6) & Trim(ListView1.ListItems(I).SubItems(9)), 6) & "│" & Right(Space(10) & Format(ListView1.ListItems(I).SubItems(10), "0.00"), 10) & "│" _
              & Space(8) & "│" & Space(6) & "│" & Right(Space(4) & Trim(ListView1.ListItems(I).SubItems(11)), 4) & "┃"
          '─││┆┈┄┆┊┌┐└┘├┤┬┴┼╱╲「」┨┓┏┃┗ ┯ ━  ┛┷┠
          Printer.Print "┗━━━━━━━━━━━━┷━━━┷━━┷━━┷━━━┷━━━┷━━━━━┷━━━┷━━━━━┷━━━┷━━━━━┷━━━┷━━━━━┷━━━┷━━━━━┷━━━━┷━━━┷━━┛"
          If I = ListView1.ListItems.Count Then
            Exit For
          End If
          Printer.NewPage
          Printer.CurrentY = 0
          Printer.CurrentX = 0
          Printer.Font.Name = "黑体"
          Printer.FontSize = 20
          Printer.Print Space(24); "泗县供电局" & pbDw & "公用变用电营业月报表"
          Printer.Font.Name = "宋体"
          Printer.FontSize = 11
          Printer.Print Space(10) & "打印日期:" & Date & Space(50) & "第" & Printer.Page; "页" & Space(10) & "表一(公)"
          Printer.Print "┏━━━━━━━━━━━━┯━━━━━━━━━━━━━┯━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┯━━━━┯━━━┯━━┓"
          Printer.Print "┃                        │   配 变 供 电 量         │                             计    费     电     量     电     费                                 │   差   │      │    ┃"
          Printer.Print "┃      台      区        ├───┬──┬──┬───┼─────────┬─────────┬─────────┬─────────┬─────────┤   价   │ 低压 │实抄┃"
          Printer.Print "┃                        │配  变│ 铁 │ 铜 │      │    动     力     │    生 活 照 明   │    机 关 照 明   │    营 业 照 明   │    合     计     │   还   │ 损失 │用户┃"
          Printer.Print "┃      名      称        │      │    │    │合  计├───┬─────┼───┬─────┼───┬─────┼───┬─────┼───┬─────┤   代   │ 率   │户数┃"
          Printer.Print "┃                        │抄  见│ 损 │ 损 │      │电  量│  电  费  │电  量│  电  费  │电  量│  电  费  │电  量│  电  费  │电  量│  电  费  │   款   │ (%)  │    ┃"
          Printer.Print "┠────────────┼───┼──┼──┼───┼───┼─────┼───┼─────┼───┼─────┼───┼─────┼───┼─────┼────┼───┼──┨"
       j = 0
       End If
   Next
       
       Printer.Print "┗━━━━━━━━━━━━┷━━━┷━━┷━━┷━━━┷━━━┷━━━━━┷━━━┷━━━━━┷━━━┷━━━━━┷━━━┷━━━━━┷━━━┷━━━━━┷━━━━┷━━━┷━━┛"
       Printer.Print "                    所长：                                                         电管员：                                         " _
                  & Trim(Year(Date)) & ""
              Printer.Print ""
            Printer.EndDoc
            Exit Sub
hander:
                Select Case Err.Number
                        Case 482:
                                MsgBox "打印机错误!", vbCritical
                                Exit Sub
                        Case Else
                                Resume Next
                End Select
End Sub
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -