Fórum Como difinir no quick report em qual lpt imprimir #216321

uma forma de fazer isso é

declare um tcombobox de nome cbprinters

declare uses printers;


faça

cbprinters.Items.Clear;
cbprinters.items:=printer.Printers;
cbprinters.ItemIndex := printer.PrinterIndex;

a impressora de selecionada no click de cbprinters estará indicada em cbprinters.itemindex

antes de fazer a impressão do relatório faça

form1R := form1R.Create(self);
form1R.qrRelatorio.PrinterSettings.PrinterIndex := cbPrinters.ItemIndex;
form1R.qrRelatorio.Print;
form1R.Free;