Lo que yo he hecgo alguna vez, es cambiar la impresra por defecto antes de enviar la impresión y justo después volver a restaurar la que había.
No es una solución que me parezca muy "optima" y tengo claro que el algun caso puede dar problemas, pero es que no he encontrado otra.
Utilizando
Código Delphi
[-]
i := Printer.Printers.IndexOf('NombreDeTuImpresora');
Puede acceder dentro de la lista de impresoras al índice de la tuya.
Lugo guardar el valor de la actual y lo cambias:
Código Delphi
[-]
_Actual := Printer.PrinterIndex;
Printer.PrinterIndex := i;
Una vez que hayas enciado la impresión restaura la que había.
Es bueno utilizar un try..Except para asegurarte de que restauras en cualquier caso la impresora por defecto.