Exportar QRPreview a Excel

[lgarcia]

Hola

Aunque tu pregunta es muy amplia te voy a tratar de responder la primera parte que es la de exportar a Excel partiendo de una consulta con el siguiente codigo:

procedure TFormMenu.Plantilla1Click(Sender: TObject);
var
Excel, Libro: Variant;
i: integer;
Nombre: string;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.DisplayAlerts:= False;
Excel.WorkBooks.Add('C:\Archivos de programa\Tienda\Productos.xlt');
Excel.WorkBooks[1].WorkSheets[1].Name := 'Productos';
Libro := Excel.WorkBooks[1].WorkSheets['Productos'];
with Productos do
begin
Close;
Open;
end;
Productos.First;
i:= 2;
while not (Productos.Eof) do
begin
Libro.Cells [i,1] := ProductosCodTrasval.Value;
Libro.Cells [i,2] := ProductosDescripcionPLU.Value;
Libro.Cells [i,3] := ProductosPrecioCosto.Value;
Libro.Cells [i,4] := ProductosPrecioventa.Value;
Libro.Cells [i,5] := Productosum.Value;
Libro.Cells [i,6] := ProductosCategoria.Value;
inc(i);
Productos.Next;
end;
Libro.SaveAs('C:\Archivos de programa\Tienda\Listado transferencias');
ShowMessage(' El fichero Listado transferencias.xls ha sido creado exitosamente');
Excel.Quit;
end;

Donde Productos en este caso es la consulta.
Debes incluir en el uses de la Unit las unidades Excel97, ComObj

Te recomiendo que utilices una plantilla de Excel (Productos.xlt) porque asi te evitas tener que preocuparte por el formato de los datos.

Bueno espero que te sirva

Saludos
Luis Garcia

_____________________________
La mejor manera de decir es hacer