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 ( Printer.PrinterIndex <> i ) then begin
Printer.PrinterIndex := i;
end;
//Altera a classe printer do FastReport
frxPrinters.FillPrinters;
frxPrinters.PrinterIndex := frxPrinters.Printers.IndexOf(PrinterName);
exit;
end;
End;
Preciso fazer o mesma rotina só que em FMX. Algum exemplo de como fazer isso?
Fico no aguardo.
Obrigado.