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?
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)