ActiveDelphi

FABIO_1979

Boa noite amigos!

Preciso enviar um formulário para uma EPSON LX 300 no entanto no que mando, a impressão sai assim:

quant produto Valor Unitáro Total
1 PRODUTO 1 2.30 2,30
1 PRODUTO 1 2.30 2,30
2 PRODUTO DESCcRIÇÃO X 2,30 6,60

Quanto a descrição é maior acaba desalinhando todo os outros campos abaixo o meu código:

imex · Enviada: Qua Fev 27, 2013 8:47 pm Assunto:

Boa noite,

Tente utilizar a função Format para deixar as colunas com a mesma quantidade de caracteres. Ex:

FABIO_1979 · Enviada: Qua Fev 27, 2013 10:18 pm Assunto:

Esta dando erro:

Writeln(Cup2,'');
datamodule1.QVenda.First;
While not datamodule1.QVenda.Eof do
begin
Writeln(Cup2,''+Format('%8.8s',[datamodule1.QVendaquant.Text])+ Format('%14.14s',[datamodule1.QVendacodigo_barras.Text])+Format('%37.37s',[datamodule1.QVendadescricao.Text])+Format('%8.8s',[datamodule1.QVendavalorUnit.Text])+Format('%8.8s',[datamodule1.QVendavalorTotal.Text]);
datamodule1.qvenda.Next;
end;

imex · Enviada: Qua Fev 27, 2013 10:43 pm Assunto:

Acho que tá faltando fechar parênteses no Writeln.

FABIO_1979 · Enviada: Qua Fev 27, 2013 10:50 pm Assunto:

ôpa era verdade srsrs fechei e deu certo amigo outra coisa esta saindo assim agora:

1 1 ALAVANCA ESQUERDA JOCEC 3,10 3,10
1 ALICATE DE SOLDA ARTOSH 500AP 41,80 41,80
1 1 ALAVANCA ESQUERDA JOCEC 3,10 3,10
1 ALICATE DE SOLDA 600 AMP 58,60 58,60
------------------
TOTAL: R$: 106,60
------------------

imex · Enviada: Qua Fev 27, 2013 11:14 pm Assunto:

Não consegui entender direito o problema.
Acho que se você tivesse utilizado a tag Code para postar como ficou o relatório teria ficado mais fácil de entender.
O único detalhe que reparei olhando o seu código é que os valores estão sendo alinhados a direita. Para alinhar a esquerda é necessário colocar um sinal de menos (-) como no exemplo que postei acima no caso do campo descricao.

Espero que ajude.

Yien · Enviada: Qua Fev 27, 2013 11:21 pm Assunto:

Ele quer algo assim:

1..1...ALAVANCA ESQUERDA JOCEC................3,10........3,10
1.......ALICATE DE SOLDA ARTOSH 500AP........41,80.....41,80
1..1...ALAVANCA ESQUERDA JOCEC.................3,10.......3,10
1.......ALICATE DE SOLDA 600 AMP..................58,60.....58,60

FABIO_1979 · Enviada: Qui Fev 28, 2013 12:04 am Assunto:

Oi amigos tentei colocar o sinal de - mas não dá certo

format '47.47' invalid or incompatible with argument.

Format('%47.47-',[datamodule1.QVendadescricao.Text])+

FABIO_1979 · Enviada: Qui Fev 28, 2013 12:21 am Assunto:

consegui aparentemente alinhar mas esta saindo assim amigos

imex · Enviada: Qui Fev 28, 2013 10:42 am Assunto:

Pelo que vi você está utilizando vários comandos especiais da impressora para formatar o texto.
Não sei como eles funcionam, mas acho que eles podem estar provocando o desalinhamento, lembrando que nesse caso é necessário fazer o teste na impressora, pois esses comandos especiais (cjustif, Esp, etc) só funcionam lá.