Mandar QReport por email

[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