Problemas propriedade IMPRESSORA do ACBrNFeDANFeRL

vinicius · 12 Setembro, 2019

Problema é o seguinte. Ao escolher a impressora funciona, mas ao escolher a segunda impressora ou voltar para a padrão, fica na 1 escolhida. Vou colocar o código fonte.

if (pos('<mod>65</mod>', linha) > 0) then begin
ACBrNFeDANFeRL1.TipoDANFE:=tiNFCe;
ACBrNFe1.DANFE:=ACBrNFeDANFCeFortes1;
ACBrNFeDANFCeFortes1.Impressora:=Trim(qry_empresa.FieldByName('impressora_nfce').AsString); // primeira escolha
ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpImp := tiNFCe;
end
else begin
ACBrNFe1.DANFE:=ACBrNFeDANFeRL1;
//ACBrNFeDANFCeFortes1.Impressora:=Printer.Printers[Printer.PrinterIndex]; //depois não volta mais
if rgTipoDanfe.ItemIndex = 0 then begin
ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpImp := tiRetrato;
ACBrNFe1.DANFE.TipoDANFE := tiRetrato;
end
else begin
ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpImp := tiPaisagem;
ACBrNFe1.DANFE.TipoDANFE := tiPaisagem;
end;
end;