Fórum Como selecionar uma impressora automaticamente? #327682
17/08/2006
0
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.
Faço a definição atravez do printerindex, mas qd mando imprimir, sai na impressora default.
Existe alguma forma de fazer isto?
Obrigado.
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)