Manual de programacion Excel

[marcoszorrilla]

Mira a ver si con este código te puedes arreglar:

 // Margen, título y cabecera
 XlSheet.Cells[1,1].ColumnWidth := 5; // Ancho de la columna A

 // Ancho de las columnas
 XlSheet.Cells[1,2].ColumnWidth := 5;
 XlSheet.Cells[1,3].ColumnWidth := 28;
 XlSheet.Cells[1,4].ColumnWidth := 8;
 XlSheet.Cells[1,5].ColumnWidth := 10;
 XlSheet.Cells[1,6].ColumnWidth := 12;

 // Rango
 Range := XlSheet.Range['B2:F2']; // Asignar el rango

 Range.Font.Name  := 'Arial';
 Range.Font.Size  := 14;
 Range.Font.Color := clBlue;
 Range.RowHeight  := 21; // Altura de la fila
 // Range.Columns.AutoFit; // Ajustar las columnas automáticamente
 // Range.ColumnWidth := 25; // Ancho de las columnas para un rango determinado
 Range.Columns.Interior.ColorIndex := 19; // 1: Black; 2: White; 3: Red; 4: Lime;
                                          // 5: Blue; 6: Yellow; 7: Fuchsia; 8: Cyan
                                          // 9: Maroon; 10: Green; 11: Navy; 12: Olive
                                          // 13: Purple; 14: Teal; 15: Silver; 16: Gray
                                          // .......... bis 56 max.
 // Ejemplo de pasar los datos a una simple celda
 XlSheet.Cells[2,3] := 'Example of Microsoft Excel 97 from Delphi 32';
 XlSheet.Cells[3,6] := FormatDateTime('mm/dd/yyyy',Now);

Salut.