Mandar QReport por email

[[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