FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Ayuda sobre Palette "Servers"
Hola
En mi aplicación se crearon unos reportes con el QReport , los cuales me han pedido que se envíen ahora Word o excel, lo que yo prefiera, el problema es que conozco muy poco (por no decir nada) de los componentes de la Pallete Servers, alguien por ahí tendrá una manual o lagún programa que me sirva de guía, muchas gracias. O existe alguna forma de salvarlos como archivos *.xls o *.doc. Gracias
__________________
Ana |
#2
|
||||
|
||||
Sino tienes la versión profesional de QuickReport no puedes exportar a Excel ni a Word.
Me refiero a la versión de pago de QuickReport, no es la que viene con Delphi. Por lo tanto mira la opción de exportar de una rejilla a Excel o a Word. Un Saludo. |
#3
|
||||
|
||||
Se me olvido poner un ejemplo:
incluye Comobj en el Uses de tu formulario. procedure TForm1.Button1Click(Sender: TObject); var excel:Variant; fila,columna:Integer; Data : TDataSet; begin try excel:=CreateOleObject('Excel.Application'); except ShowMessage('Excel no se pudo iniciar.'); exit; end; excel.Visible:=true; Data:=DBGRID1.DataSource.DataSet; Data.First; fila:=1; columna:=1; excel.Workbooks.Add; while not(Data.eof) do begin for columna := 0 to dbgrid1.Columns.Count-1 do begin excel.Cells[fila,columna + 1].Value:=Data.FieldByName(DBGrid1.Columns[columna].FieldName).asString; end; Data.Next; fila:= fila + 1; end; excel.Cells[fila,1].Value:='=SUM(a1:a3)' end; Un Saludo. |
#4
|
|||
|
|||
Gracias
Ya empece a enviar así mi reporte a Excel, pero ahora tengo algunas dudas de formato, me pregunto si podrías darme unos tips. Cómo pinto los bordes de las celdas?? Cómo puedo dar nombre a la pestaña de la página?? Cómo puedo justificar el texto de la celda o bien darle formato?? Gracias
__________________
Ana |
#5
|
|||
|
|||
Recomiendo ver en sección "Ejemplos" el programa " Dbf2Excel".
|
#6
|
|||
|
|||
Hola
No encuentro el ejemplo Saludos
__________________
Ana |
#7
|
||||
|
||||
Aquí tienes una parte de un ejemplo que tengo por aquí a mano:
Código:
procedure TfmMain.btExample2Click(Sender: TObject); var WorkBook,Sheet,Cell: Variant; Col,iRow,Row : Integer; cl:integer; s:string; begin WorkBook:=Excel.WorkBooks.Add; Sheet:=WorkBook.WorkSheets[1]; Sheet.Name:='Colors'; Row:=1; Sheet.Cells[Row,1]:='Red'; Sheet.Cells[Row,2]:='Green'; Sheet.Cells[Row,3]:='Blue'; Sheet.Cells[Row,4]:='Color Sum'; Sheet.Rows[Row].Font.Bold:=true; for iRow:=0 to 8 do begin Row:=iRow+2; if iRow<8 then cl:=iRow*32 else cl:=$FF; for Col:=1 to 3 do begin Cell:=Sheet.Cells[Row,Col]; Cell.Value:=cl; if Col=1 then Cell.Font.Color:=cl//red else if Col=2 then Cell.Font.Color:=cl*256//green else Cell.Font.Color:=cl*256*256;//blue end; Cell:=Sheet.Cells[Row,4]; s:=format('=A%d+256*B%d+256*256*C%d',[Row,Row,Row]); Cell.Formula:=s; Cell.Font.Color:=Cell.Value; end; Sheet.Cells.Columns.AutoFit; end; |
#8
|
|||
|
|||
Muchas Gracias
Voy a poner en practica dos o tres tips que vi en el código Míl gracias Saludos!!!
__________________
Ana |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|