ต้องการกำหนดขนาด font ให้ Loop เพิ่มรายละเอียดข้อมูลใน Excel

Private Sub GirdToExcel(ByRef dgvw As DataGridView)
        Dim excel As New Microsoft.Office.Interop.Excel.Application
        Dim Libro As Microsoft.Office.Interop.Excel.Workbook
        Dim Hoja As Microsoft.Office.Interop.Excel.Worksheet
        Dim col As Integer = dgv1.ColumnCount
        Dim row As Integer = dgv1.RowCount
        Libro = excel.Workbooks.Add
        Hoja = excel.Worksheets.Add()

        excel.Workbooks(1).Worksheets(1).cells(1, 1).columnWidth = 10
        excel.Workbooks(1).Worksheets(1).cells(1, 1).RowHeight = 20

        With excel.ActiveSheet.Range("A1:P1")
            .MergeCells = True
        End With

        With excel.ActiveSheet.Range("A3:P3")
            .MergeCells = True
        End With

        For i As Integer = 1 To col
            Hoja.Cells.Item(1, i) = dgv1.Columns(i - 1).Name.ToString
        Next

        excel.Workbooks(1).Worksheets(1).cells(1, 1).value = "รายงานการรับงานของเจ้าหน้าที่ประเมินตามวันที่"

        excel.Workbooks(1).Worksheets(1).cells(3, 1).value = "จากวันที : " & dtp1.Value.ToShortDateString() & "  " & "ถึงวันที่ : " & dtp2.Value.ToShortDateString()

        excel.Workbooks(1).Worksheets(1).cells(5, 1).value = "หลักประกัน"
        excel.Workbooks(1).Worksheets(1).cells(5, 2).value = "วันที่รับงาน"
        excel.Workbooks(1).Worksheets(1).cells(5, 3).value = "ชื่อ"
        excel.Workbooks(1).Worksheets(1).cells(5, 4).value = "รหัสรายงาน"
        excel.Workbooks(1).Worksheets(1).cells(5, 5).value = "ตำบล"
        excel.Workbooks(1).Worksheets(1).cells(5, 6).value = "อำเถอ"
        excel.Workbooks(1).Worksheets(1).cells(5, 7).value = "จังหวัด"
        excel.Workbooks(1).Worksheets(1).cells(5, 8).value = "ประเภททรัพย์สิน"
        excel.Workbooks(1).Worksheets(1).cells(5, 9).value = "กำหนดส่ง"
        excel.Workbooks(1).Worksheets(1).cells(5, 10).value = "วันที่ส่งรายงาน"
        excel.Workbooks(1).Worksheets(1).cells(5, 11).value = "วันที่ส่ง PS"
        excel.Workbooks(1).Worksheets(1).cells(5, 12).value = "สถานะงาน"
        excel.Workbooks(1).Worksheets(1).cells(5, 13).value = "ค่าบริการ"
        excel.Workbooks(1).Worksheets(1).cells(5, 14).value = "ค่าบริการ PS"
        excel.Workbooks(1).Worksheets(1).cells(5, 15).value = "จนท.ประเมิน 1"
        excel.Workbooks(1).Worksheets(1).cells(5, 16).value = "จนท.ประเมิน 2"

        For fila As Integer = 0 To row - 1
            For e As Integer = 0 To col - 1
                Hoja.Cells.Item(fila + 6, e + 1) = dgv1.Rows(fila).Cells(e).Value

            Next
        Next
        Hoja.Rows.Item(1).font.bold = 1
        Hoja.Rows.Item(3).font.bold = 1
        Hoja.Rows.Item(5).font.bold = 1
        Hoja.Rows.Item(1).font.size = 7
        Hoja.Rows.Item(3).font.size = 7
        Hoja.Rows.Item(5).font.size = 7
        Hoja.PageSetup.Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape
        Hoja.Rows.Item(1).horizontalAlignment = 3
        Hoja.Rows.Item(3).horizontalAlignment = 3
        Hoja.Columns.AutoFit()
        excel.Application.Visible = True
        excel.Application.WindowState = Microsoft.Office.Interop.Excel.XlWindowState.xlMaximized
        Hoja = Nothing
        Libro = Nothing
        excel = Nothing
    End Sub