Como selecionar uma impressora automaticamente?

Delphi

17/08/2006

Boa tarde!!!

Gostaria de saber ,se alguem, já precisou selecionar uma impressora automaticamente, imprimir nesta impressora, sem definí-la como padrão?

Estou usando este código, mas não adianta.

    ap:=TPrinter.Create;
     for i := 0 to ap.Printers.Count-1 do
     begin
        if ansipos(´LASER´,UpperCase(ap.Printers[i]))>0 then
        begin
          //ShowMessage(ap.Printers[i]+´achei´)  ;

          ap.PrinterIndex:=i;    //<== Estou definindo aqui.
          break;
        end;
     end;


Faço a definição atravez do printerindex, mas qd mando imprimir, sai na impressora default.

Existe alguma forma de fazer isto?

Obrigado.


Aledeol

Aledeol

Curtidas 0
POSTAR