SATTESTE não imprime os itens na Bematech

[Mark1]

Boa noite.

Estou realizando testes de impressão com o SATTESTE. Com o Fortes a impressão sai correta, mas quando seleciono EscPos sai somente o cabeçalho (imagem).

Tenho q realizar alguma alteração na procedure abaixo ou em algum lugar neste projeto ou mesmo nas configurações da impressora (MP-4200 TH) ?

procedure TForm1.PrepararImpressao;
begin
  if ACBrSAT1.Extrato = ACBrSATExtratoESCPOS1 then
  begin
    ACBrPosPrinter1.Desativar;
    ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo( cbxModeloPosPrinter.ItemIndex );
    ACBrPosPrinter1.PaginaDeCodigo := TACBrPosPaginaCodigo( cbxPagCodigo.ItemIndex );
    ACBrPosPrinter1.Porta := cbxPorta.Text;
    ACBrPosPrinter1.ColunasFonteNormal := seColunas.Value;
    ACBrPosPrinter1.LinhasEntreCupons := seLinhasPular.Value;
    ACBrPosPrinter1.EspacoEntreLinhas := seEspLinhas.Value;

    ACBrSATExtratoESCPOS1.ImprimeQRCode := True;
    ACBrSATExtratoESCPOS1.ImprimeEmUmaLinha := cbImprimir1Linha.Checked;
  end
  else
  begin
    ACBrSATExtratoFortes1.LarguraBobina    := seLargura.Value;
    ACBrSATExtratoFortes1.Margens.Topo     := seMargemTopo.Value ;
    ACBrSATExtratoFortes1.Margens.Fundo    := seMargemFundo.Value ;
    ACBrSATExtratoFortes1.Margens.Esquerda := seMargemEsquerda.Value ;
    ACBrSATExtratoFortes1.Margens.Direita  := seMargemDireita.Value ;
    ACBrSATExtratoFortes1.MostrarPreview   := cbPreview.Checked;

    try
      if lImpressora.Caption <> '' then
        ACBrSATExtratoFortes1.PrinterName := lImpressora.Caption;
    except
    end;
  end;
end;

Grato,

 

Marcos

 

 

 

 

[Sérgio Assunção]

Você está setando o modelo "Texto". Tente dessa forma...

    ACBrPosPrinter1.Modelo := ppEscBematech;

 

[Mark1]

Será? 

Então não está pegando o modelo que escolhi?

 

 

[Mark1]

Agora imprimiu, mas a fonte está maior e o QR-Code todo zoado.

 

 

[Mark1]

Alguém pode me ajudar, por favor!!?

[Mark1]

Já achei o problema.

 

Grato

[Sérgio Assunção]

44 minutos atrás, Mark1 disse:

Já achei o problema.

 

Grato

Se possível, detalhe a solução, pois pode ser útil para outros usuários que depararem com o mesmo problema.

[Mark1]

6 minutos atrás, Sérgio Assunção disse:

Se possível, detalhe a solução, pois pode ser útil para outros usuários que depararem com o mesmo problema.

Desculpem-me.

Na verdade era somente a página de código que estava com valor 0 em vez de pc850.

 

Grato