Daferave X Daferavecb - Problema Na Impressão Da Cc-E

[renatojosecampos]

Boa tarde a todos.

 

Primeiramente gostaria de agradecer a todos os membros que contribuem com o desenvolvimento do ACBR, sem ele não sei oque seria de min.

 

Vamos lá.

 

Possuímos um sistema de emissão de NF-e que utiliza impressão do danfe (personalizado) via DanfeRave que funciona perfeitamente setando a propriedade :

DANFERaveCB.RavFile.

 

Porém esta semana estou implementando a impressão de eventos de Cancelamento e CC-e, que até onde sei não estão implementados no DanfeRave, somente no DanfeRaveCB.

 

Portanto quando vou imprimir a DANFE da Nfe faço o seguinte:

 

 

 

ACBrNFe1.DANFE := ACBrNFeDANFERave1;
ACBrNFe1.NotasFiscais.Imprimir;

 

 

 

Para imprimir a CC-e ou evento cancelamento:

 

 

ACBrNFe1.DANFE := ACBrNFeDANFERaveCB1;
ACBrNFe1.ImprimirEvento;

 

 

 

Funciona muito bem, porém depois de imprimir um evento (DanfeRaveCB)  as impressões do danfe via (DanfeRave), ficam em um formato de pagina menor cortando a pagina ao meio.

 

Resumindo as duvidas são as seguintes:

 

Teria como setar um RavFile no DanfeRavCB ? se não, porque ?

 

Teria alguma forma de redefinir as configurações de página do componente DanfeRave para tentar contornar o problema ?

 

 

 

[peterson161]

Tente criar os componentes DANFeRave e DANFeRaveCB em modo de execução.

[peterson161]

Acabei de olhar uma unit do DanfeRave e lá tem uma instrução para setar o papel para A4. A última alteração foi feita em 15/03/2013.

Atualize seu componente e tente imprimir da maneira que você está fazendo mesmo.

[renatojosecampos]

Olá peterson, agradeço muito sua ajuda,

 

Segui sua sugestão criando o componente em runtime não resolveu, nem mesmo destruindo o Datamodule com todos os componentes (AcbrNfe,acbrdanferave,etc..) e criando novamente não resolve, as configurações da página persistem , somente fechando o sistema e rodando novamente volta ao normal.

 

Estou atualizando o componente conforme você sugeriu para fazer os testes e logo posto os resultados.

[renatojosecampos]

Pessoal consegui resolver.

 

Basta setar novamente o papel como A4 antes de imprimir.

 

 

Uses RpDevice;
...
RpDev.SelectPaper('A4',false);

ACBrNFe1.NotasFiscais.Imprimir;

 

Obrigado pela ajuda Peterson,

 

Cordialmente,

 

Renato

Editado 12 Abril, 2013 por renatojosecampos