MDFe cortando na impressão

[Luiz Carlos de Lima]

Boa tarde,

O DAMDFe ao ser impresso pelo  "ACBrMDFe1.Manifestos.Imprimir"  visualiza na tela normal, mas ao ser impresso fica cortando no lado esquerdo em qualquer impressora.

Isso faz tempo que acontece, mas só agora fui notificado na barreira.

 

mdfe impressao cortada.pdf

[Juliomar Marchetti]

6 horas atrás, Luiz Carlos de Lima disse:

Boa tarde,

O DAMDFe ao ser impresso pelo  "ACBrMDFe1.Manifestos.Imprimir"  visualiza na tela normal, mas ao ser impresso fica cortando no lado esquerdo em qualquer impressora.

Isso faz tempo que acontece, mas só agora fui notificado na barreira.

 

mdfe impressao cortada.pdf 681 kB · 0 downloads

Como não informou chuto que possa ser Fortes mas em qualquer um dos casos basta configurar as margens via código que já resolve

[Luiz Carlos de Lima]

FastReport.  Tentei configurar mas tem umas linhas que não consigo movimentar. O problema é que não conheço muito o FastReport.

Só me diga uma coisa, tem como passar parâmetro para mandar direto para impressora a impressora?

[Juliomar Marchetti]

Sim. basta tu informar a impressora e desabilitar para mostrar a caixa de dialogo

[Luiz Carlos de Lima]

Bom dia,

Alguém pode me passar modelo de como passar os parâmetros para mandar direto para impressora, pois não consegui descobrir.

 

Desde já agradeço pela ajuda.

[Renato Rubinho]

Boa tarde,

Tente com essas propriedades:

ACBrMDFe1.DAMDFE.MostraSetup := False;

ACBrMDFe1.DAMDFE.Impressora := 'nome';

[Luiz Carlos de Lima]

Boa tarde Rubinho,

    ACBrMDFe1.Manifestos.Assinar;
    ACBrMDFe1.Manifestos.Validar;
    ACBrMDFe1.Consultar;
    ACBrMDFe1.DAMDFE.MostraSetup := False;
    ACBrMDFe1.DAMDFE.Impressora := vDrivePrinterCTe;
    ACBrMDFe1.Manifestos.Imprimir;

Estou fazendo Assim, mas continua mostrando na tela e nao enviando direto para a impressora.

[Juliomar Marchetti]

2 horas atrás, Luiz Carlos de Lima disse:

Boa tarde Rubinho,

    ACBrMDFe1.Manifestos.Assinar;
    ACBrMDFe1.Manifestos.Validar;
    ACBrMDFe1.Consultar;
    ACBrMDFe1.DAMDFE.MostraSetup := False;
    ACBrMDFe1.DAMDFE.Impressora := vDrivePrinterCTe;
    ACBrMDFe1.Manifestos.Imprimir;

Estou fazendo Assim, mas continua mostrando na tela e nao enviando direto para a impressora.

o que está usando para imprimir? fortes ? configura o componente de impressão diretamente

e o que está passando ali no vDrivePrinterCTe?

 

[Luiz Carlos de Lima]

Oi Juliomar,

1 ) Como disse anteriormente uso o FastReport.

2) não entendi o que quiz dizer (configura o componente de impressão diretamente),  já não estou passando a configuraçao conforme mostrei acima?

3) Passo o nome da impressora como faço para imprimir o CTe  (ACBrCTeDacteFR.Impressora := vDrivePrinterCTe);

 

[Juliomar Marchetti]

3 horas atrás, Luiz Carlos de Lima disse:

Boa tarde Rubinho,

    ACBrMDFe1.Manifestos.Assinar;
    ACBrMDFe1.Manifestos.Validar;
    ACBrMDFe1.Consultar;
    ACBrMDFe1.DAMDFE.MostraSetup := False;
    ACBrMDFe1.DAMDFE.Impressora := vDrivePrinterCTe;
    ACBrMDFe1.Manifestos.Imprimir;

Estou fazendo Assim, mas continua mostrando na tela e nao enviando direto para a impressora.

o problema de cortar as margens está ok?

[Luiz Carlos de Lima]

Ainda não consegui corrigir o modelo, por isso estou tentando mandar direto para a impressora para ver se resolve as margens.

[Juliomar Marchetti]

1 minuto atrás, Luiz Carlos de Lima disse:

Ainda não consegui corrigir o modelo, por isso estou tentando mandar direto para a impressora para ver se resolve as margens.

tá não resolve

vamos lá no código chama lá o componente ACBrMDFeDAMDFeRL.MargemLeft ..... e seta lá por exemplo pra 5 em tempo de execução

[Luiz Carlos de Lima]

Consegui ajustar o modelo, obrigado.

[Renato Rubinho]

Obrigado por reportar.

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