Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Extrato escpos muito espassado


rogercon
Go to solution Solved by André Ferreira de Moraes,
  • Este tópico foi criado há 230 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia. Quando imprimo o extrato com acbrsatextratoescpos a impressão fica com as linhas espaçadas, segue a imagem comparando escpos e fortes.

IMG_20211004_085344.jpg

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;

Link to comment
Share on other sites

 

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

IMG_20211004_110815.jpg

Link to comment
Share on other sites

  • Este tópico foi criado há 230 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.