[jojecoc]

Prueba a usar este fragmento de codigo, antes de enviar el reporte.

for I:=0 to Printer.Printers.Count-1 do
if Printer.Printers[i]='Nombre Impresora' then
Printer.PrinterIndex:=I;