gracias, me ha servido, era sencillo al final lo solucione abriendo un fichero TIniFile donde guarda las impresoras, los leo con ReadSection(<seccion>,<valor>,<defecto>) y despues los grabo con inifile->WriteString del ini file, al final cuando estoy por imprimir (antes del qreport1->print()) leo el valor que grabe y lo comparo con las de windows (TIniFile del Win.ini, leo los valores de la seccion printerports y comparo el que tengo con los de la lista, si el el nro 3, guardo el 3) y antes de imprimir hago Form1->QuickRep1->PrinterSettings->PrinterIndex=result; y lo saca por la impresora que quiero sin tocar la que tiene por defecto
Gracias
