.SetColProperty 0, 15
        .TextMatrix(0, 15) = "已還利息額"
        .SetColProperty 0, 15
        .TextMatrix(0, 16) = "結欠利息額"
        .SetColProperty 0, 15
        .TextMatrix(0, 17) = "審核"
        .SetColProperty 0, 10
        .TextMatrix(0, 18) = "記賬"
        .SetColProperty 0, 10
        .TextMatrix(0, 19) = "制單"
        .SetColProperty 0, 10
        .TextMatrix(0, 20) = "摘要"
        .SetColProperty 0, 60
    End With
End Sub
'初始化打印數據XML文件
Private Sub initPrnXmlFile()
    '過程變量
    Dim prnxml As New clsPrnXml
    Dim AttrName() As String
    Dim AttrValue() As String
    Dim i, j As Integer
    Dim str1 As String
    
    On Error GoTo error0
    
    '插入結構數據數據
    str1 = "貸款匯總表"
    prnxml.Initialize "數據", "任務"
    prnxml.InsertPNode "任務", "頁眉", "第%p頁，共%p頁"
    prnxml.InsertPNode "任務", "標題", str1
    prnxml.InsertPNode "任務", "表頭", ""
    prnxml.InsertPNode "任務", "表體", ""
    prnxml.InsertPNode "任務", "表尾", ""
    prnxml.InsertPNode "任務", "頁腳", "用友軟件"
    
    ReDim AttrName(2, 1)
    ReDim AttrValue(2)
    
    '插入表頭,表尾數據
    For i = 0 To UBound(AttrName)
        AttrName(i, 0) = "名字"
    Next
    '插入表頭,表尾數據
    AttrName(0, 1) = "單位名稱"
    AttrName(1, 1) = "開始日期"
    AttrName(2, 1) = "結束日期"
    AttrValue(0) = Trim(text1.Caption)
    AttrValue(1) = CStr(Format(lblksrq.Caption, "YYYY-MM-DD"))
    AttrValue(2) = CStr(Format(lbljsrq.Caption, "YYYY-MM-DD"))
    prnxml.InsertHeadNodes "表頭", "字段", AttrName, AttrValue
    
    '插入表體頭數據
    ReDim AttrName(20, 1)
    ReDim AttrValue(20)
    For i = 0 To 20
        AttrName(i, 0) = "單元"
        AttrValue(i) = ufgridado1.TextMatrix(0, i)
    Next
    prnxml.InsertBodyNodes "表體", "表體頭", AttrName, AttrValue
    For i = 0 To 20
        AttrValue(i) = ""
    Next
    
    '插入表體行數據
     With ufgridado1
        For i = 1 To .Rows - 1
            For j = 0 To 20
                AttrValue(j) = .TextMatrix(i, j)
            Next
        prnxml.InsertBodyNodes "表體", "表體行", AttrName, AttrValue
        Next
    End With
    
        ReDim AttrName(1, 1)
    ReDim AttrValue(1)
    For i = 0 To UBound(AttrName)
        AttrName(i, 0) = "名字"
    Next
 
    AttrName(0, 1) = "制單人"
    AttrName(1, 1) = "打印日期"
    
    AttrValue(0) = Trim(lblBillName.Caption)
    AttrValue(1) = CStr(Format(CDate(Trim(lblPrnDate.Caption)), "YYYY-MM-DD"))
    prnxml.InsertHeadNodes "表尾", "字段", AttrName, AttrValue

    '保存數據文件
    prnxml.saveFile "tloanInfoData.xml"
    If initStyleXml Then
        If prnDataBind Then
            xmlInit = True
        Else
            xmlInit = False
        End If
    Else
        xmlInit = False
    End If
    Set prnxml = Nothing
    Exit Sub
error0:
    MsgBox "打印數據準備失敗！" & vbCrLf & Err.Description, vbInformation, "錯誤信息"
'    If rs.State = adStateOpen Then
'        rs.Close
'    End If
    xmlInit = False
    Set prnxml = Nothing
End Sub

Private Function prnDataBind() As Boolean
    Dim lRet As Long
    Dim sData As String
    Dim sStyle As String
    Dim sModuleId As String
    
    sData = App.Path & "\tloanInfodata.xml"
    sStyle = App.Path & "\tloanInfoStyle.xml"
    sModuleId = "default"
    lRet = Printer.SetDataStyleXML(sData, 1, sStyle, 1, sModuleId)
    If lRet = 0 Then
        prnDataBind = True
    Else
        prnDataBind = False
        MsgBox "打印數據準備失敗！", vbInformation, "錯誤信息"
    End If
End Function
'打印處理程序
Private Sub printProc()
    If Not xmlInit Then
        Call initPrnXmlFile
    End If
    If xmlInit Then
        Printer.DoPrint
    End If
End Sub
'預覽處理程序
Private Sub previewProc()
    If Not xmlInit Then
        Call initPrnXmlFile
    End If
    If xmlInit Then
        Printer.PrintPreview
    End If
End Sub
'輸出處理程序
Private Sub outputProc()
    If Not xmlInit Then
        Call initPrnXmlFile
    End If
    If xmlInit Then
        Dim sTypeList As String
        Dim sSizeList As String
        Dim i As Long
        Dim e As Long
    
        i = 0
        sTypeList = "10,8,7,10,10,7,10,10,10,7,10,10,8,7,7,7,7,10,10,10,10"
        sSizeList = "28,10,15,10,12,15,20,20,8,8,8,32,10,15,15,15,15,10,10,10,60"
        e = Printer.ExportToFile(i, sTypeList, sSizeList, "", "")
    '    MsgBox e
    End If
End Sub
'保存用戶設置
Private Sub printer_SettingChanged(ByVal varLocalSettings As Variant, ByVal varModuleSettings As Variant)
    Dim xmlstr As String
    xmlstr = "<?xml version='1.0' standalone='yes' ?>"
    xmlstr = xmlstr & "<格式>"
    xmlstr = xmlstr & varLocalSettings
    xmlstr = xmlstr & varModuleSettings
    xmlstr = xmlstr & "</格式>"
    Dim rs As New ADODB.Recordset
    On Error GoTo error0
    rs.Open "select * from prn_format where moduleid='loanInfoprn'", con, adOpenDynamic, adLockOptimistic
    rs("formatXml") = xmlstr
    rs.Update
    rs.Close
    Set rs = Nothing
    Exit Sub
error0:
    If rs.State = adStateOpen Then
        rs.Close
    End If
    Set rs = Nothing
    MsgBox "打印設置保存失敗！"
End Sub
'設置打印格式
Private Function initStyleXml() As Boolean
    Dim rs As New ADODB.Recordset
    Dim PrnDom As New DOMDocument
    Dim xmlstr As String
    
    sqlstr = "select formatXml from PRN_format where moduleID='loanInfoprn'"
    rs.Open sqlstr, con, adOpenDynamic, adLockOptimistic
    If Not (rs.EOF Or rs.BOF) Then
        xmlstr = Trim(rs("formatXml"))
    Else
        xmlstr = "<?xml version=''1.0'' standalone=''yes'' ?>"
        xmlstr = xmlstr & "<格式>"
        xmlstr = xmlstr & "<打印設置 打印范圍=''全部'' 頁碼范圍=''1-1'' 打印份數=''1'' 壓縮=''是'' 多任務強制分頁=''否'' />"
        xmlstr = xmlstr & "<紙張設置 紙張類型=''9'' 紙張大小=''2100,2970'' 打印方向=''縱向'' 頁邊距=''300,200,200,200'' />"
        xmlstr = xmlstr & "<頁眉 對齊方式=''右'' 左頂點=''0,0'' 寬=''0'' 高=''100'' 字體名=''楷體_GB2312'' 字體大小=''12'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 打印=''是'' />"
        xmlstr = xmlstr & "<標題 對齊方式=''中'' 左頂點=''0,200'' 寬=''0'' 高=''300'' 字體名=''黑體'' 字體大小=''24'' 顏色=''#000000'' 粗體=''是'' 斜體=''否'' 打印=''是'' /> "
        xmlstr = xmlstr & "<表頭 對齊方式=''左'' 左頂點=''0,500'' 寬=''1600'' 高=''300'' 字體名=''宋體'' 字體大小=''12'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 打印=''是''>"
        xmlstr = xmlstr & "<字段 打印=''是'' 名字=''單位名稱'' 對齊方式=''左'' 左頂點=''200,500'' 寬=''800'' 高=''200'' 字體名=''黑體'' 字體大小=''16'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 標題寬度=''0'' 下標線=''否'' />"
        xmlstr = xmlstr & "<字段 打印=''是'' 名字=''開始日期'' 對齊方式=''左'' 左頂點=''200,700'' 寬=''600'' 高=''140'' />"
        xmlstr = xmlstr & "<字段 打印=''是'' 名字=''結束日期'' 對齊方式=''左'' 左頂點=''800,700'' 寬=''600'' 高=''140'' />"
        xmlstr = xmlstr & "</表頭>"
        xmlstr = xmlstr & "<表體 左頂點=''0,800'' 寬=''0'' 高=''0'' 固定行數=''0'' 列寬=''280,100,150,100,120,150,200,200,80,80,80,320,100,150,150,150,150,100,100,100,600''>"
        xmlstr = xmlstr & "<表體頭 對齊方式=''中'' 邊框風格=''783'' 邊框寬度=''2'' 行高=''140'' 字體名=''黑體'' 字體大小=''14'' 顏色=''#000000'' 粗體=''是'' 斜體=''否'' 打印=''是'' />"
        xmlstr = xmlstr & "<表體行 對齊方式=''左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左'' 邊框風格=''783'' 邊框寬度=''2'' 行高=''0'' 字體名=''Times New Roman'' 字體大小=''12'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 打印=''是'' />"
        xmlstr = xmlstr & "<表體尾 對齊方式=''中'' 邊框風格=''783'' 邊框寬度=''2'' 行高=''140'' 字體名=''黑體'' 字體大小=''14'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 打印=''是'' />"
        xmlstr = xmlstr & "</表體>"
        xmlstr = xmlstr & "<表尾 對齊方式=''左'' 左頂點=''0,2200'' 寬=''1600'' 高=''200'' 字體名=''新宋體'' 字體大小=''12'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 打印=''是''>"
        xmlstr = xmlstr & "<字段 打印=''是'' 名字=''制單人'' 對齊方式=''左'' 左頂點=''50,2200'' 寬=''500'' 高=''200'' 字體名='''' 字體大小=''12'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 標題寬度=''0'' 下標線=''否'' />"
        xmlstr = xmlstr & "<字段 打印=''是'' 名字=''打印日期'' 對齊方式=''右'' 左頂點=''800,2200'' 寬=''600'' 高=''150'' 字體名='''' 字體大小=''12'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 標題寬度=''0'' 下標線=''否'' />"
        xmlstr = xmlstr & "</表尾>"
        xmlstr = xmlstr & "<頁腳 對齊方式=''右'' 左頂點=''0,2400'' 寬=''0'' 高=''170'' 字體名=''楷體_GB2312'' 字體大小=''10'' 顏色=''#000000'' 粗體=''否'' 斜體=''否'' 打印=''是'' />"
        xmlstr = xmlstr & "</格式>"
        sqlstr = "insert into PRN_format (moduleID,FormatXml) values('loaninfoprn','" & xmlstr & "');"
        On Error GoTo Error1
        con.BeginTrans
        con.Execute sqlstr
        con.CommitTrans
        xmlstr = "<?xml version='1.0' standalone='yes' ?>"
        xmlstr = xmlstr & "<格式>"
        xmlstr = xmlstr & "<打印設置 打印范圍='全部' 頁碼范圍='1-1' 打印份數='1' 壓縮='是' 多任務強制分頁='否' />"
        xmlstr = xmlstr & "<紙張設置 紙張類型='9' 紙張大小='2100,2970' 打印方向='縱向' 頁邊距='300,200,200,200' />"
        xmlstr = xmlstr & "<頁眉 對齊方式='右' 左頂點='0,0' 寬='0' 高='100' 字體名='楷體_GB2312' 字體大小='12' 顏色='#000000' 粗體='否' 斜體='否' 打印='是' />"
        xmlstr = xmlstr & "<標題 對齊方式='中' 左頂點='0,200' 寬='0' 高='300' 字體名='黑體' 字體大小='24' 顏色='#000000' 粗體='是' 斜體='否' 打印='是' /> "
        xmlstr = xmlstr & "<表頭 對齊方式='左' 左頂點='0,500' 寬='1600' 高='300' 字體名='宋體' 字體大小='12' 顏色='#000000' 粗體='否' 斜體='否' 打印='是'>"
        xmlstr = xmlstr & "<字段 打印='是' 名字='單位名稱' 對齊方式='左' 左頂點='200,500' 寬='800' 高='200' 字體名='黑體' 字體大小='16' 顏色='#000000' 粗體='否' 斜體='否' 標題寬度='0' 下標線='否' />"
        xmlstr = xmlstr & "<字段 打印='是' 名字='開始日期' 對齊方式='左' 左頂點='200,700' 寬='600' 高='140' />"
        xmlstr = xmlstr & "<字段 打印='是' 名字='結束日期' 對齊方式='左' 左頂點='800,700' 寬='600' 高='140' />"
        xmlstr = xmlstr & "</表頭>"
        xmlstr = xmlstr & "<表體 左頂點='0,800' 寬='0' 高='0' 固定行數='0' 列寬='280,100,150,100,120,150,200,200,80,80,80,320,100,150,150,150,150,100,100,100,600'>"
        xmlstr = xmlstr & "<表體頭 對齊方式='中' 邊框風格='783' 邊框寬度='2' 行高='140' 字體名='黑體' 字體大小='14' 顏色='#000000' 粗體='是' 斜體='否' 打印='是' />"
        xmlstr = xmlstr & "<表體行 對齊方式='左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左,左' 邊框風格='783' 邊框寬度='2' 行高='0' 字體名='Times New Roman' 字體大小='12' 顏色='#000000' 粗體='否' 斜體='否' 打印='是' />"
        xmlstr = xmlstr & "<表體尾 對齊方式='中' 邊框風格='783' 邊框寬度='2' 行高='140' 字體名='黑體' 字體大小='14' 顏色='#000000' 粗體='否' 斜體='否' 打印='是' />"
        xmlstr = xmlstr & "</表體>"
        xmlstr = xmlstr & "<表尾 對齊方式='左' 左頂點='0,1800' 寬='1600' 高='200' 字體名='新宋體' 字體大小='12' 顏色='#000000' 粗體='否' 斜體='否' 打印='是'>"
        xmlstr = xmlstr & "<字段 打印='是' 名字='制單人' 對齊方式='左' 左頂點='50,1800' 寬='500' 高='200' 字體名='' 字體大小='12' 顏色='#000000' 粗體='否' 斜體='否' 標題寬度='0' 下標線='否' />"
        xmlstr = xmlstr & "<字段 打印='是' 名字='打印日期' 對齊方式='右' 左頂點='800,1800' 寬='600' 高='150' 字體名='' 字體大小='12' 顏色='#000000' 粗體='否' 斜體='否' 標題寬度='0' 下標線='否' />"
        xmlstr = xmlstr & "</表尾>"
        xmlstr = xmlstr & "<頁腳 對齊方式='右' 左頂點='0,2400' 寬='0' 高='170' 字體名='楷體_GB2312' 字體大小='10' 顏色='#000000' 粗體='否' 斜體='否' 打印='是' />"
        xmlstr = xmlstr & "</格式>"

    End If
    If PrnDom.loadXML(Trim(xmlstr)) Then
        PrnDom.Save App.Path & "\tloanInfoStyle.xml"
    Else
       initStyleXml = False
    End If
    initStyleXml = True
    
    rs.Close
    Set rs = Nothing
    Set PrnDom = Nothing
    Exit Function
Error1:
    initStyleXml = False
    con.RollbackTrans
    rs.Close
    Set rs = Nothing
    Set PrnDom = Nothing
End Function


Private Sub ufgridado1_RowColChange()
    Dim i As Long
    On Error Resume Next
    i = UBound(cunitName)
    If Err.Number <> 0 Then
        'Text1.Text = ""
        Exit Sub
    End If
    
    If ufgridado1.row <= i + 1 Then
        text1.Caption = cunitName(ufgridado1.row - 1)
    End If
    
End Sub

Private Sub loadstatic()
    Me.Icon = LoadResPicture(109, vbResIcon)
    ImageList1.ListImages.Add , "print", LoadResPicture(314, vbResBitmap)
    ImageList1.ListImages.Add , "preview", LoadResPicture(312, vbResBitmap)
    ImageList1.ListImages.Add , "output", LoadResPicture(263, vbResBitmap)
    ImageList1.ListImages.Add , "find", LoadResPicture(331, vbResBitmap)
    ImageList1.ListImages.Add , "help", LoadResPicture(396, vbResBitmap)
    ImageList1.ListImages.Add , "exit", LoadResPicture(1118, vbResBitmap)
    
    With tlbtool
        .Buttons("print").Caption = "打印"
        .Buttons("print").Image = "print"
        .Buttons("print").ToolTipText = "Ctrl+p"
        
        .Buttons("preview").Caption = "預覽"
        .Buttons("preview").Image = "preview"
        .Buttons("preview").ToolTipText = "Alt+V"
        
        .Buttons("output").Caption = "輸出"
        .Buttons("output").Image = "output"
        .Buttons("output").ToolTipText = "Ctrl+O"
        
        .Buttons("find").Caption = "查詢"
        .Buttons("find").Image = "find"
        .Buttons("find").ToolTipText = "F3"
        
        .Buttons("help").Caption = "幫助"
        .Buttons("help").Image = "help"
        .Buttons("help").ToolTipText = "F1"
        
        .Buttons("exit").Caption = "退出"
        .Buttons("exit").Image = "exit"
        .Buttons("exit").ToolTipText = "Ctrl+F4"
    End With
End Sub