Buenas tardes.
Tal como dice el titulo, estoy intentando hacer algo que por mas que he querido no me sale,
Lo único que quiero es exportar un documento en excel y que en este contenga una celda con la primera parte en negrita y la otra parte normal.
Ejemplo de Celda.
------
Caso No 1: Este es un comentario
Caso No 2: Este es otro comentario
------
Adjunto el código que tengo hasta ahora
Código Delphi
[-]
procedure TForm_Fondos_fijos_reponibles.btnExportaraexcelClick(Sender: TObject);
var
Libro : _WORKBOOK;
Hoja : _WORKSHEET;
contar, i,colora:Integer;
Hojainicio:integer;
begin
ShowMessage('Espere un momento');
i:=0;
Libro := Excel.Workbooks.Add(Null, 0);
Hoja := Libro.Sheets[1] as _WORKSHEET;
i:=i+1;
Hoja.Cells.Item[i,1]:='Caso';
Hoja.Cells.Item[i,2]:='Comentario';
Hoja.Cells.Item[i,3]:='Comentario Para el Informe.';
Hoja.Range['A'+ inttostr(i),'F'+ inttostr(i)].Font.Bold:=true;
Hoja.Range['A'+ inttostr(i),'F'+ inttostr(i)].WrapText:=true;
Hoja.Range['A'+ inttostr(i),'F'+ inttostr(i)].HorizontalAlignment := xlcenter;
with DataModule_financiero.query_fondos_fijos_reponibles do
begin
first;
contar:=0;
while not EOF Do
begin
i:=i+1;
contar:=contar+1;
Hoja.Range['A'+ inttostr(i),'A'+ inttostr(i)].Font.Bold:=true;
Hoja.Cells.Item[i,1]:='Caso No. ' +inttostr(contar)+ ', ';
Hoja.Cells.Item[i,2]:=DBGrid1.Fields[8].AsString;
Next;
end;end;
ShowMessage('Exportado con Exito!');
Excel.Visible[0] := true;
end;
Espero haberme explicado bien.
Cualquier inquietud o duda me dejan saber.
Saludos y Dios les bendiga a todos.