Mudar Impressora do programa

Delphi

07/04/2004

Amigos.
tenho um form em minha aplicação que utilizo para chamar a impressão de um qreport, preciso informar antes da impressão qual a impressora para a saída do relatório.. tentei usar o componente dialog mas a impressora padrão não muda.. alguem tem um exemplo sobre este assunto? ou alguma dica. tabem preciso mostrar o nome da impressora no forme...

Agradeço Antecipadamente,


Ant.neto

Ant.neto

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

07/04/2004

Colega,

Após o método execute do PrintDialog, chame esta procedure...

procedure ForceGetPrinter;
var Device, Driver, Port : array[0..255] of char;
    hDMode : THandle;
begin
  Printer.GetPrinter(Device, Driver, Port, hDMode);
end;


espero ter ajudado...
T+


GOSTEI 0
Dorivansousa

Dorivansousa

07/04/2004

baixe esse exemplo é bem interressante

http://www.clubedelphi.com.br/exemplos/QuickrepImp.zip


GOSTEI 0
POSTAR