Hola Lepe de nuevo,
una vez me pelee tambien con este tema. Creo que lo solucione asignando QRPreview.Printer = printer.ItemIndex, QRReport.Printer := printer.ItemIndex, poniendo el papel manualmente tambien a las dos printers, y despues usar ApplySettings tambien en las dos printers. No recuerdo bien bien como iba, lo siento
, pero fue un mareo usando estas tres cosas (el orden en que lo asignabas, por ejemplo, afectaba) Si encuentro el codigo fuente lo pongo (ahora uso freereports de fastreports). Al final con paciencia y probando lo consegui. Suerte!