Você já deu uma pesquisada em:
www.devmedia.com.br ,
www.linhadecodigo.com.br ,
www.activedelphi.com.br ,
www.delphi.eti.br ?
--- Em seg, 3/8/09, Paulo Pontes <pontespa...@gmail.com> escreveu:
De: Paulo Pontes <pontespa...@gmail.com>
Assunto: Re: [delphi-br] Delphi X OpenOffice
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 3 de Agosto de 2009, 11:28
Fábio, obrigado pela dica.
Mas meu problema maior é com o OpenOffice, para o Excel fiz como vc citou
mesmo. Mas a API dos dois é diferente, não possui as mesmas funções.
Valeu!
2009/8/3 fabio giro <fabio_g...@yahoo. com.br>
>
>
> Adapte as suas necessidades
>
> // bordas da celula
> excel.Workbooks[ 1].WorkSheets[ 1].range[ 'A4','E5' ].borders. linestyle := 1;
> excel.Workbooks[ 1].WorkSheets[ 1].range[ 'A4','E5' ].borders. weight := 2;
>
> // mesclar celulas
> excel.Workbooks[ 1].WorkSheets[ 1].Range[ 'A4:C4']. Merge;
> excel.Workbooks[ 1].WorkSheets[ 1].Range[ 'D4:E4']. Merge;
>
> Para formatar células:
> 1º você formata depois coloca o conteúdo, é + fácil.
> 2º formate assim...
> Range("C5"). Select
> Selection.NumberFor mat = "0.00"
> ou
> Cells(11, 3).Select
> Selection.NumberFor mat = "0.00"
> ou
> Range("C7"). Select
> Selection.NumberFor mat = "m/d/yy"
> Excel.Cells. Item[1,2] .Select;
> Excel.Selection. numberformat := '00000000000000' ; {Formata como CNPJ}
> Excel.Cells. Item[1,2] .Select;
> Excel.Selection. numberformat := '@'; {Formata como texto}
> Excel.Cells. Item[1,2] .Select;
> Excel.Selection. numberformat := '#,##0.00'; {Formata 1,00}
> a célula deve receber apenas o mês e não um a data??
> tente isso antes de passar o valor para a célula.
> Range['A1', 'A1'].NumberFormat := '#';
> Range[StrCell, StrCell].Value2 := grd.Columns[ NumColuna] .Field.Value;
> if grd.Columns[ NumColuna] .Field.DataType in [ftdate, ftDateTime] then
> Range[StrCell, StrCell].NumberForm at := 'dd/mm/aaaa' ;
> if grd.Columns[ NumColuna] .Field.DataType in [ftFloat, ftCurrency] then
> Range[StrCell, StrCell].NumberForm at := '#.##0,00';
>
> Dê uma pesquisada em www.delphi.eti. br
>
> Espero ter ajudado.
>
> --- Em seg, 3/8/09, Paulo Pontes <pontespaulo@ gmail.com<pontespaulo%
> 40gmail.com> >
> escreveu:
>
> De: Paulo Pontes <pontespaulo@ gmail.com <pontespaulo% 40gmail.com> >
> Assunto: [delphi-br] Delphi X OpenOffice
> Para: delphi...@yahoogrup os.com.br <delphi-br%40yahoog rupos.com. br>
> Data: Segunda-feira, 3 de Agosto de 2009, 9:42
>
>
>
>
> Pessoal, bom dia!
>
> Alguém tem um exemplo aí de como formatar uma planilha do OpenOffice pelo
> Delphi? Eu já implementei uma rotina aqui que faz a geração da planilha mas
> não estou conseguindo formatá-la, principalmente: mesclar células e colocar
> grade.
>
> Obrigado!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> ____________ _________ _________ _________ _________ _________ _
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbusca dos.yahoo. com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
____________________________________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
