Bom dia. Em VCL com essa rotina seta outra impressora passando o nome como parâmetros.
Printer.PrinterIndex := -1;
For I := 0 to Printer.printers.Count-1 do begin
If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin
//Altera a classe printer padrão
if...
Utilizamos cookies e tecnologias semelhantes de acordo com a nossa Política de Privacidade, e ao continuar navegando, você concorda com estas condições.