Sub PrintExcell(ByVal FTempl As String)
        Dim PathTemplate As String
        Dim PathTemp As String
        Dim Frep As String
        Dim XL As Object
        Dim LblockNum As String = "LBlock1"

        Dim Cn As String
        Dim I As Integer, J As Integer, X As Integer
        Dim cRow As Integer, cCol As Integer, mCol As Integer

        PathTemplate = "v:\Inversion\ufs\"
        PathTemp = "u:\Temp\"
        Frep = PathTemp & FTempl
        FTempl = PathTemplate & FTempl
        If Not My.Computer.FileSystem.FileExists(FTempl) Then
            MsgBox("Нет шаблона")
            Exit Sub
        Else
            If Check_Free_File(FTempl, Frep) = False Then
                Exit Sub
            Else
                If Not My.Computer.FileSystem.FileExists(Frep) Then
                Else

                    XL = ldObjExcel(Frep)
                    With XL
                        .Workbooks.Open(FileName:=Frep)
                        .Worksheets(1).Activate()
                        .ScreenUpdating = True
                        .Visible = False
                    End With

                    XL.Application.Range(LblockNum).Select()
                    cRow = XL.Selection.Row
                    mCol = XL.Application.Range(LblockNum).Columns.Count
                    If mCol > 100 Then mCol = 100
                    XL.ActiveSheet.Rows(cRow + 1 & ":" & cRow + 1).Select()
                    Dim Comm As New OleDb.OleDbCommand(Sql, Connect)
                    Dim DR As OleDbDataReader
                    DR = Comm.ExecuteReader()
                    I = 0
                    ReDim MRes(0, 0)
                    While DR.Read()
                        If I > 0 Then
                            XL.Selection.Insert()
                        End If
                        ReDim Preserve MRes(DR.FieldCount - 1, I)
                        For X = 0 To DR.FieldCount - 1
                            If IsDBNull(DR(X)) Then
                                MRes(X, I) = Nothing
                            Else
                                MRes(X, i) = DR(X)
                            End If
                        Next
                    End While
                    DR.Close()
                    DR = Comm.ExecuteReader()
                    I = 0
                    While DR.Read()
                        For cCol = 1 To mCol
                            Cn = ""
                            For J = 0 To DR.FieldCount - 1
                                If Not XL.ActiveSheet.Cells(cRow, cCol).Comment Is Nothing Then
                                    Cn = UCase(XL.ActiveSheet.Cells(cRow, cCol).Comment.Text)
                                End If
                                If Cn = UCase(DR.GetName(J)) Then
                                    If Not IsDBNull(DR.Item(J)) Then
                                        XL.ActiveSheet.Cells(cRow + I, cCol).Value = DR.Item(J)
                                    Else
                                        XL.ActiveSheet.Cells(cRow + I, cCol).Value = ""
                                    End If
                                End If
                            Next
                        Next
                        I = I + 1
                    End While
                    DR.Close()
                    DR = Nothing
                    Comm = Nothing
                    XL.visible = True
                End If
            End If
        End If
    End Sub