Foros Club Delphi - Ayuda sobre Palette "Servers"

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)

- - Ayuda sobre Palette "Servers" (https://www.clubdelphi.com/foros/showthread.php?t=834)

Anabel

26-05-2003 23:09:45

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 :)

marcoszorrilla

26-05-2003 23:27:41

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.

marcoszorrilla

26-05-2003 23:30:26

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.

Anabel

27-05-2003 16:19:17

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 :)

JorgeF

03-06-2003 17:15:40

Recomiendo ver en sección "Ejemplos" el programa " Dbf2Excel".

Anabel

04-06-2003 16:32:39

Hola :)

No encuentro el ejemplo :(

Saludos :)

marcoszorrilla

04-06-2003 22:06:59

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;

Un Saludo.

Anabel

05-06-2003 16:27:36

Muchas Gracias :)

Voy a poner en practica dos o tres tips que vi en el código :)

Míl gracias ;)

Saludos!!!

La franja horaria es GMT +2. Ahora son las 17:44:43.