ACBrSAT + ACBrPosPrint - Não respeita o tamanho da fonte

marcellocainelli · 23 Agosto, 2022

Estou usando o ACBrPosPrint para fazer algumas impressões em impressoras Bluetooth, esta funcionando tudo normal, porem quando tento usar o ACBrSAT com as mesmas configurações a impressão não respeita os parametros informados

Estes são os parametros que estou usando para as duas impressões, só a impressão do SAT que não respeita
o que eu estou fazendo de errado?

with dt do begin
pACBrPosPrinter.Desativar;
pACBrSAT.Extrato:= pACBrSATExtratoESCPOS;
pACBrSATExtratoESCPOS.PosPrinter:= pACBrPosPrinter;

pACBrPosPrinter.Modelo := TACBrPosPrinterModelo.ppEscPosEpson;
pACBrPosPrinter.PaginaDeCodigo := TACBrPosPaginaCodigo.pc850;
pACBrPosPrinter.Porta := QParamIMPR_BLUETOOTH.AsString;
pACBrPosPrinter.ControlePorta:= True;
pACBrPosPrinter.ColunasFonteNormal:= 48;
pACBrPosPrinter.EspacoEntreLinhas := 0;
pACBrPosPrinter.LinhasEntreCupons := 0;
pACBrPosPrinter.TipoCorte:= ctTotal;
pACBrPosPrinter.CortarPapel(True);
pACBrPosPrinter.ConfigLogo.KeyCode1 := 1;
pACBrPosPrinter.ConfigLogo.KeyCode2 := 0;

pACBrSAT.CFe.Clear;
pACBrSAT.CFeCanc.Clear;
pACBrSAT.CFe.AsXMLString := pArquivoXML;

pACBrSATExtratoESCPOS.ImprimeQRCode := True;

pACBrPosPrinter.Ativar;
pACBrSAT.ImprimirExtrato;
pACBrPosPrinter.Desativar;
end;