Página 101 - Reporteador CONTPAQ i

Página
C-5
Computación en Acción, S.A. de C.V.
Derechos Reservados®
Casos espeicales
Reportes en Excel®, Continuación
Creación del
encabezado
Continúa
// Establecer ancho de columnas
ws.Columns(1).ColumnWidth = 10
ws.Columns(2).ColumnWidth = 24
ws.Columns(3).ColumnWidth = 10
ws.Columns(4).ColumnWidth = 14
ws.Columns(5).ColumnWidth = 14
ws.Columns(6).ColumnWidth = 20
// Mostrar Excel
excel.visible=-1
vReng=1
// Ultima Columna
argColFinal='I'
// Pone el nombre del sistema
ws.Range('A' & vReng).Font.Color = @RGB(255;0;0)
ws.Range('A' & vReng).Font.Size = 10
ws.Range('A' & vReng).Value = 'CONTPAQ i CONTABILIDAD'
vReng=vReng+1
// Pone el nombre de la empresa
ws.Range('A' & vReng).Font.Size = 14
ws.Range('A' & vReng).Font.FontStyle = 'Negrita'
// Lo centra en las columnas B a la R
ws.Range('A' & vReng & ':' & argColFinal & vReng).HorizontalAlignment =
xlCentrarEnSeleccion
ws.Range('A' & vReng ).Value = 'Gran Empresa'
vReng=vReng+1
// Pone el titulo del reporte en EXCEL
ws.Range('A' & vReng).Font.Size = 12
ws.Range('A' & vReng).Font.FontStyle = 'Negrita'
ws.Range('A' & vReng ).Value = 'Listado de Pólizas'
// Lo centra en las columnas A a la S
ws.Range('A' & vReng & ':' & argColFinal & vReng).HorizontalAlignment =
xlCentrarEnSeleccion
vReng=vReng+1
ws.Range('A' & vReng).Font.Size = 12
ws.Range('A' & vReng).Font.FontStyle = 'Negrita'
// Lo centra en las columnas A a la S
ws.Range('A' & vReng & ':' & argColFinal & vReng).HorizontalAlignment =
xlCentrarEnSeleccion
Continúa en la siguiente página