Extrato escpos muito espassado

[rogercon]

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;

[Daniel Simoes]

Ajuste em EspacoEntreLinhas 

[rogercon]

acbrposprinter1.espacoentrelinhas := 0;

já passei assim, mas continua do mesmo jeito.

[Daniel Simoes]

Sim, pois 0 é o padrão da Impressora... favor ler o tópico abaixo:

 

[rogercon]

 

Achei isso no tópico acima, passei 1 ao invés de 0 e melhorou, mas ainda aparece espaçado, o valor total entre outras coisas parece ainda quebrarem a linha.

EspacoEntreLinhas

Espaço em DPI entre as Linhas. (permite economia de Papel)

0 (default), 10, 40, 50

Veja

[Daniel Simoes]

Porque você não tentou os valores sugeridos ?? (10, 40, 50)

[rogercon]

Tentei tbm. Não resolveu

[André Ferreira de Moraes]

Como está a propriedade  ACBrPosPrinter1.ColunasFonteNormal ?

[rogercon]

está em 80.

Já testei com 48 também, ocorre o mesmo.

[Daniel Simoes]

[André Ferreira de Moraes]

Tente diminuir para 40.

[rogercon]

Perfeito pessoal,

eu estava passando 80 pois achava que era a largura da bobina em mm, e não é. Bobina de 80mm é 48 colunas.

obrigado e desculpe a confusão. vlwwwww

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.