Mandar QReport por email

[Aprendiendo]

Germi muchas gracias por tu pronta respuesta, voy a probar y ya te contaré.

Un salu2.

[rruffino]

Hola, te comento que yo tengo problemas al hacer esto, pues no hay forma de poder hacer que el archivo se guarde en el disco, incluso no se como obtener el numero de la acrobat distiller. Te agradeceria si me das una mano en esto, desde ya muchas gracias
Román

[[Lepe]]

Puedes usar el objeto Tprinter para obtenerlo:

Código Delphi [-]
procedure TForm1.Button6Click(Sender: TObject);
var i:Integer;
begin
  for i:=0 to printer.Printers.Count-1 do
  Memo1.Lines.Add(printer.Printers[i])
end;

Necesitarás el uses Printers;

Currandolo un poco, puedes hacer que el usuario elija la impresora y que permita establecer qué impresora quiere utilizar; por si elimina o añade impresoras y el PrinterIndex cambia.

Un saludo

[rruffino]

Amigo, sigo en la misma, con el codigo que me pasaste se que número de impresor es la Acrobat Distiller. Lo que pasa es que no puedo grabar o no lo veo al archivo que supuestamente se crearia en PDF.
Segun los pasos que indica Germi serían estos, los que te paso en el codigo siguiente pero sigo sin poder solucoinarlo

procedure TForm_insumos.BitBtn3Click(Sender: TObject);
begin
QuickReport_rotulo.PrinterSettings.PrinterIndex:=1;
QuickReport_rotulo:=TQuickReport_rotulo.Create(Self);
QuickReport_rotulo.Print;
Temporizador.Enabled:=True;
end;

La verdad que me estoy rompiendo la cabeza y no puedo lograrlo. Espero de vuestra ayuda para solucionarlo. Desde ya muchas gracias
Román.-

[[Lepe]]

Código Delphi [-]
procedure TForm_insumos.BitBtn3Click(Sender: TObject);
begin
QuickReport_rotulo.PrinterSettings.PrinterIndex:=1;
QuickReport_rotulo:=TQuickReport_rotulo.Create(Self);
QuickReport_rotulo.Print;
Temporizador.Enabled:=True;
end;

veamos que hace la rutina:
- primero asigna la impresora al a las preferencias de impresion del QuickReport.
- despues crea el QuickReport, machacando el que ya existía, si el QuickReport_rotulo no estaba creado, la primera instrucción daría un access violation.
- Despues mandas a imprimir.... ¿a que impresora?, se supone que a la impresora por defecto no?

En principio, la segunda linea sobra, pero tampoco puedo asegurarlo porque no sé donde se crea el QuickReport. Parece que lo tienes creado de antemano.

Un saludo