Impressão writeln() - Duvida sobre comandos

13/01/2006

0

Eu tenho uma duvida sobre esse assunto abaixo está o código que uso para imprimir

AssignFile(Arquivo,´LPT1´);
Rewrite(Arquivo);
Write(Arquivo);
Writeln(Arquivo,Format(´¬-50s´, [bancos.IBT_licencaFANTASIA.Value]));
Writeln(Arquivo,Format(´¬-50s´, [bancos.IBT_licencaRAZAO.Value]));
Writeln(Arquivo,Format(´¬-80s´, [bancos.IBT_licencaENDERECO.Value+´´+bancos.IBT_licencaNUMERO.Value+´´+banc os.IBT_licencaBAIRRO.Value]));
Writeln(Arquivo,Format(´¬-130s´,[´Nº´+inttostr(bancos.IBT_vendasCODIGO.Valu e)+´´+´Tipo de Venda´+bancos.IBT_vendasOPERACAO.Value+´´+´Vendedor´+bancos.IBT_vendasNOME_ VENDEDOR.Value+´´+´Data da Venda´+datetostr(date)])); Writeln(Arquivo,#2718+´Teste de Impressão - Linha 4´);
Writeln(Arquivo);
While not bancos.IBT_itens.Eof do
Begin
{ Imprime Código produto}
// Write(Impressora,Format(´¬-15s´, [InttoStr(Dmdados.tbItensIT_Produto.Value)]));
{ Imprime Descrição do produto}
// Write(Impressora,Format(´¬-68s´, [dmdados.TbitensProdutos.value]));
{ Imprime Quantidade Comercializada}
// Write(Impressora,Format(´¬12.2n´,[Dmdados.tbItensIt_Quantidade.value]));
{ Imprime Preço Unitário produto}
// Write(Impressora,Format(´¬15.2m´,[dmdados.tbitensit_valor.value]));
{ Imprime o valor Total do Item e salta uma linha}
// Writeln(Impressora,Format(´&15.2f´, [dmdados.tbItensValorItem.Value]));
{ Soma o valor Base de Cálculo do ICMS}
// Valorbase:=ValorBase + dmdados.tbItensValorItem.Value;
{ Próximo Item}
bancos.IBT_itens.next;
end;
CloseFile(Arquivo);
end;

so que tudo sai alinhado a esquerda e sei que o ´-- ´ seignifica alinhamento a esquerda e os outros alinhamentos? o centralizado por exemplo?


Chip_set

Chip_set

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar