Bom dia. Quando imprimo o extrato com acbrsatextratoescpos a impressão fica com as linhas espaçadas, segue a imagem comparando escpos e fortes.
Segue o código de impressão:
ACBrSAT1.Extrato := ACBrSATExtratoFortes1;
ACBrSATExtratoFortes1.Filtro := TACBrSATExtratoFiltro.fiPDF;
acBrSATExtratofortes1.MargemEsquerda := StrToInt(path.ReadString('SAT', 'SAT_MARGEM_ESQUERDA', '0'));
acBrSATExtratofortes1.MargemDireita := StrToInt(path.ReadString('SAT', 'SAT_MARGEM_DIREITA', '0'));
acBrSATExtratofortes1.MargemSuperior := StrToInt(path.ReadString('SAT', 'SAT_MARGEM_SUPERIOR', '0'));
ACBrSATExtratoFortes1.NomeDocumento := pastapdf+ ACBrSAT1.CFe.infCFe.ID + '.pdf';
// ACBrSATExtratoFortes1.SoftwareHouse := 'Mastercon ' + versaosistema;
ACBrSATExtratoFortes1.site := 'www.rogercon.com.br - Venda N° ' + codvenda;
ACBrSAT1.ImprimirExtrato; //imprime o extrato sem preview, apenas para gerar o pdf conforme configurado acima.
if path.ReadString('SAT', 'PORTA_IMPRESSORA', '') <> '' then
begin
ACBrSAT1.Extrato := ACBrSATExtratoESCPOS1;
self.ACBrSAT1.Extrato := self.ACBrSATExtratoESCPOS1;
ACBrSATExtratoESCPOS1.PosPrinter := ACBrPosPrinter1;
ACBrPosPrinter1.Desativar;
acbrsatextratoescpos1.ImprimeEmUmaLinha:=true;
if path.ReadString('SAT', 'MODELO_IMPRESSORA', '') = 'DARUMA' then
ACBrPosPrinter1.modelo := ppEscDaruma
else
if path.ReadString('SAT', 'MODELO_IMPRESSORA', '') = 'EPSON' then
ACBrPosPrinter1.modelo := ppescposepson
else
if path.ReadString('SAT', 'MODELO_IMPRESSORA', '') = 'BEMATECH' then
ACBrPosPrinter1.modelo := ppescbematech
else
if path.ReadString('SAT', 'MODELO_IMPRESSORA', '') = 'DIEBOLD' then
ACBrPosPrinter1.modelo := ppEscDiebold else
if path.ReadString('SAT', 'MODELO_IMPRESSORA', '') = 'ELGIN' then
ACBrPosPrinter1.modelo := ppEscEpsonP2 else
ACBrPosPrinter1.modelo := ppTexto;
ACBrPosPrinter1.Device.porta := path.ReadString('SAT', 'PORTA_IMPRESSORA', '');
// ACBrPosPrinter1.Device.Baud := STRTOINT(path.ReadString('SAT', 'VELOCIDADE_PORTA', ''));
ACBrPosPrinter1.ControlePorta := true;
ACBrSATExtratoFortes1.NomeDocumento := pastapdf + ACBrSAT1.CFe.infCFe.ID + '.pdf';
// ACBrSATExtratoESCPOS1.SoftwareHouse := 'Mastercon ' + versaosistema;
ACBrSATExtratoESCPOS1.site := 'www.rogercon.com.br - Venda N° ' + codvenda;
ACBrSATExtratoESCPOS1.ImprimeQRCode := true;
ACBrSATExtratoESCPOS1.MargemEsquerda := StrToInt(path.ReadString('SAT', 'SAT_MARGEM_ESQUERDA', '0'));
ACBrSATExtratoESCPOS1.MargemDireita := StrToInt(path.ReadString('SAT', 'SAT_MARGEM_DIREITA', '0'));
ACBrSATExtratoESCPOS1.MargemSuperior := StrToInt(path.ReadString('SAT', 'SAT_MARGEM_SUPERIOR', '0'));
// showmessage(ACBrSATExtratoESCPOS1.MargemDireita.tostring);
// acbrsatextratoescpos1.
// acbrposprinter1.colunasfontenormal:=largura;
ACBrSAT1.ImprimirExtrato;