Muchas gracias bubba y afunez2007 por sus respuestas
tan certeras. Ambos me ayudaron a resolver el problema.
Lo que hice fue una parte de configuracion donde guardo la impresora de tickets. Luego la pantalla donde imprime en dicha impresora se la asigno al quick report y listo.
Cita:
for n := 0 to Printer.Printers.Count - 1 do
begin
if b.CompaniaIMPRESORA_TICKETS.Value = Printer.Printers.Strings[n] then
begin
impresora := n;
end;
end;
FrepFactura := TFrepFactura.Create(Self);
FrepFactura.QuickRep1.PrinterSettings.PrinterIndex := impresora;
FrepFactura.QuickRep1.Print;
FrepFactura.Free;
|
Problema resuelto. Un Millon de gracias.-