RE:Exportar Qreports a Word
Como ya tienes todos los reportes hecho, lo ideal es que te crees un archivo en el formato que deseas (doc o xls)...
Aquí te mando un pequeño ejemplo
procedure TfrmMovimientos.dxButton1Click(Sender: TObject);
var
f : TextFile; //variable que tomará el archivo
x : Integer; //contador para los campos de la tabla
s : String; //va tomando los valores de los campos
begin
try
qryPrint.Close;
with qryPrint.SQL do //obtener los campos para el archivo
begin
Clear;
Add(' Select c.Tarjeta, a.Fecha_Apli, c.Nombre, c.Cedula, c.Fecha_Ent,'+
' c.Sal_Mens, ''3'' as Status, c.Fecha_Vac, b.Cuota_DP, b.Cuota_DJ,'+
' b.Cuota_DZ, b.Cuota_CA,'+
' b.Cuota_SM, b.Cuota_SM_INT, b.Cuota_AC, b.Cuota_AS'+
' From Periodos a, Movimientos b, Empleado c'+
' where b.periodo = a.codigo and c.codigo = b.empleado '+
' and (b.periodo = '+#39+DBEdit1.Text+#39+')');
qryPrint.Open;
end;
if (Guardar.Execute) and (not qryPrint.eof) then //ejecuta el diálogo guardar
begin
AssignFile(f, Guardar.FileName+'.txt'); //le asigna el nombre del diálogo guardar a la variable f
ReWrite(f);
WriteLn(f,'Tarjeta'+#9+'Fecha_Apli'+#9+'Nombre'+#9+'Cedula'+#9+'Fecha_Ent'+#9+
'Sal_Mens'+#9+'Status'+#9+'Fecha_Vac'+#9+'Cuota_DP'+#9+'Cuota_DJ'+#9+'Cuota_DZ