Acbrchq Impressão Personalizada (Posição)

[Halisson Skalee]

Bom dia , tudo bom?

Estou com dificuldade de imprimir um cheque na impressora pertochek do banco safra

 

Problema

Quando mando imprimir o cheque não obedece as posições que estou colocando

Alguma ideia do que estuo fazendo errado ?

 

 

Tenho que imprimir conforme nas posições abaixo:

Nome do Banco...........SAFRA

N° do Banco.................422

Valor Num. / Linha........42

Valor Num. / Col...........125

Valor Ext. 1 / Linha.......33

Valor Ext. 1/ Col...........32

Valor Ext. 2..................25

Lin. Benef....................17

Col. Dia........................116

Linha Ano.....................9

Col. Ano.......................153

Comprimento...............165

 

Mais modelos 

http://www.perto.com.br/varejo/pertochek/layout_cheques.htm

 

 

Então estou configurando o modelo em suas posição de impressão  

procedure configura_cheque

var

  ModeloModelo : TACBrCHQModelo;

begin

  if not(ACBrCHQ1.Ativo) then

    ACBrCHQ1.Ativar;

 

  ACBrCHQ1.Modelo                         := chqPerto;

  ACBrCHQ1.Device.Baud                 := 4800;

  ACBrCHQ1.ModelosCheque.Clear;

  // modelo perto

  try

    ModeloModelo    :=  TACBrCHQModelo.Create;

    ModeloModelo.Banco           := '422';

    ModeloModelo.LinhaValor      := 042;

    ModeloModelo.ColunaValor     := 125;

    ModeloModelo.LinhaExtenso1   := 033;

    ModeloModelo.ColunaExtenso1  := 032;

    ModeloModelo.LinhaExtenso2   := 025;

    ModeloModelo.LinhaFavorecido := 017;

    ModeloModelo.ColunaDia       := 116;

    ModeloModelo.ColunaAno  := 153;

    ACBrCHQ1.ModelosCheque.Add(ModeloModelo); 

  finally

    FreeAndNil(ModeloModelo);

  end;

end;

 

Imprimir cheque nas posições

procedure  Imprimir_cheque;

begin

    ACBrCHQ1.Banco         := '422';

    ACBrCHQ1.Valor           := edtTOTAL.Asflot

    ACBrCHQ1.Data            := Now;

    ACBrCHQ1.Favorecido  := edtFavorecido.Text;

    ACBrCHQ1.Cidade        := edtNomeCidade.text;

    ACBrCHQ1.ImprimirCheque;

end

 

 

 

 

 

 

 

 

 

 

[Halisson Skalee]

Problema resolvido , foi necessário configurar na impressora as posições , e deu tudo certo.

 

Manual do desenvolvedor 

comando ' B ' (42H) - Exclui/inclui/envia layout de cheque 

 

Foi utilizado implementado esta rotina no sistema passando os parâmetros e configurado o layout do banco perfeitamente

[Halisson Skalee]

Como imprimir o cheque sem cruzar (impressora modelo pertochek)

 

 TACBrCHQPerto(ACBrCHQ1.CHQ).CmdImpCheque := ';4'; // esse comando nao cruza o cheque

  ACBrCHQ1.ImprimirCheque;

[EMBarbosa]

Olá Halisson,

 

   obrigado pelo retorno. Você mesmo pode marcar o tópico como resolvido clicando no botão "Resolvido" abaixo da resposta correta.

[Daniel Simoes]

Problema resolvido , foi necessário configurar na impressora as posições , e deu tudo certo.

 

Manual do desenvolvedor 

comando ' B ' (42H) - Exclui/inclui/envia layout de cheque 

 

Foi utilizado implementado esta rotina no sistema passando os parâmetros e configurado o layout do banco perfeitamente

 

Halisson,

 

Se deseja sugerir alguma correção nos fontes, por favor anexe a Unit modificada...

[Digowarta]

Utilizando o ACBR monitor, como faço para não cruzar o cheque na impressora Perto?

[Daniel Simoes]

Por favor não poste a mesma dúvidas em vários tópicos...

 

Alias, para uma duvida nova, abra um novo tópico... Leia as regras do forum:

http://www.projetoacbr.com.br/forum/index.php?/forum-7/announcement-1-sim-n%C3%B3s-temos-regras/