Rep persoanl DIM Ajustes excel

Nomina/RepPersonalDIM.aspx.vb

@@ -100,6 +100,44 @@ Partial Class Nomina_RepPersonalDIM
     End Sub
 
     Private Sub Imprimir(Optional reporte As String = "PDF")
+
+
+        Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
+        Dim cell As New TableHeaderCell()
+        cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->"
+        cell.ColumnSpan = 28
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+        cell = New TableHeaderCell()
+        cell.ColumnSpan = 18
+        cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->"
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+
+        cell = New TableHeaderCell()
+        cell.ColumnSpan = 2
+        cell.Text = " ANEXO 1  ASIM SAL-> "
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+
+        cell = New TableHeaderCell()
+        cell.ColumnSpan = 58
+        cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->"
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+        cell = New TableHeaderCell()
+        cell.ColumnSpan = 19
+        cell.Text = "ANEXO 1  IMPUESTO SOBRE LA RENTA (RESUMEN) ->"
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+        'row.BackColor = ColorTranslator.FromHtml("#3AC0F2")
+        GvDatos.HeaderRow.Parent.Controls.AddAt(0, row)
+
         ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}")
     End Sub
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
@@ -301,6 +339,14 @@ Partial Class Nomina_RepPersonalDIM
                 worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
                 worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
 
+
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Size = 12 * 20
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom
+
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+
                 If i > 0 Then
                     Try
                         worksheet.Columns(i).AutoFit(1)
@@ -340,24 +386,8 @@ Partial Class Nomina_RepPersonalDIM
             worksheet.Columns(7).Width = 5000
 
             For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-
                 If I > 7 Then
-
+                    worksheet.Columns(I).Width = 4500
-                    'If 1 = 1 Then
-                    '    worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00"
-                    'Else
-                    '    worksheet.Columns(I + 1).Style.NumberFormat = "#,##"
-                    'End If
-
-                    Try
-                        ' worksheet.Columns(I).AutoFit(1)
-                        worksheet.Columns(I).Width = 4500
-                    Catch ex As Exception
-                    End Try
-
-
-
-
                 End If
             Next