mudar impressora usando quick report

Delphi

21/07/2005

Estou com um problema ao escolher a impressora destino ao imprimir no quickreport. Usando o componente nativo TPrintDialog ou TPrinterSetupDialog eu escolho uma impressora (diferente da padrão) e clicko em ok e ele guarda corretamente essa impressora escolhida.
Só que ao imprimir diretamente no quick (sem visualizar o preview) ele ignora essa escolha e imprime na impressora padrão. Alguém saberia fazer o quick imprimir numa impressora diferente da padrão?


«leandro»

«leandro»

Curtidas 0

Respostas

«leandro»

«leandro»

21/07/2005

já encontrei a solução sozinho, existe um metodo chamado printersetup...........


GOSTEI 0
Adriano Santos

Adriano Santos

21/07/2005

Cara vc precisa mudar o PinterIndex da impressora. Se não me engano é assim:

Coloque um componente PinterDialog e crie uma variável que será enxergada pela tela que voce usar para mandar imprimir e a tela onde se encontra o QuickReport.
No botão de selecao de impressora coloque.

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrinterDialog1.Execute;
  MinhaVariavelGlobal := Printers.PrinterIndex;
end;


no onCreate do form que contém o QuickReport coloque

...
   QuickRep1.PrinterSettings.PrinterIndex := MinhaVariavalGlobal;
...


Isso resolve o problema. Só uso desta forma.


GOSTEI 0
POSTAR