Como difinir no quick report em qual lpt imprimir

Delphi

25/02/2004

tenho duas lpt na minha maquina e duas impressoras, cada uma plugada em cada porta, como configuro no quick report em qual lpt ela deve imprimir o que eu quero?

Agradeço quem possa me ajudar


Impactus

Impactus

Curtidas 0

Respostas

Luineumann

Luineumann

25/02/2004

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;


GOSTEI 0
POSTAR