JOÃO PAULO
não registrado
|
|
Postada em 14/01/2008 13:56 hs
Alguém sabe como faço pra alinha a direita os valores. Do While Not tb.EOF
'-------------------------------------------
Printer.Print Tab(0); Format(Left(tb!id, 8), "000000");
Printer.Print Tab(13); Left(tb!Razao_Social, 33);
Printer.Print Tab(70); Left(tb!Quantidade, 10) & " " & Left(tb!Unidade, 5);
Printer.Print Tab(81); Left(tb!Valor_Venda, 15);
Printer.Print Tab(98); Left(tb!Valor_Produto, 15);
Printer.Print Tab(118); Left(tb!Comissao_Comprador, 15);
Printer.Print Tab(135); Left(tb!Valor_Over, 15);
Printer.Print Tab(145); Left(tb!Valor_Comissao, 15);
'--------------------------------------------
tb.MoveNext
Loop Obs.: Os valores tão saindo assim: 1.250,00 300,00 2.683,00 Teria como colocar virgula embaixo de virgula? |
|
|
|
|
|
|
|
Postada em 14/01/2008 16:39 hs
Printer.print Tab(0); Spc(14 - len(Format(Valor, "##,###,##0.00"))) & Format(Valor, "##,###,##0.00" o spc vai criar este vazio (brancos) que vc precisa |
|
|
|
JOÃO PAULO
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 15/01/2008 10:15 hs
Vlw amigo funcionou perfeito, só tive que mudar o codigo colocando ";" no lugar de "&" ficando assim: Printer.print Tab(0); Spc(14 - len(Format(Valor, "##,###,##0.00"))); Format(Valor, "##,###,##0.00"; Funcionou perfeito do jeito que eu queria. Muito obrigado pela dica. |
|
|
|
|
|
Postada em 16/01/2008 09:55 hs
Printer.Print Tab(1); Format(Format(sngVrTroco, "#,##0.00"), "@@@@@@@@@");
Abraços,  Sérgio Coelho
|
|
|
|
|
|
Postada em 17/01/2008 10:37 hs
Bom dia
voce pode fazer assim
Criar uma string com tamanho definido
Selecionar a fonte para Courrier New
Ex.:
dim AlinNumero as string * 12
rset AlinNumero = format(Valor, "##,###,##0.00")
printer.print space(10) "Valor = " & space(2) & AlinNumero
Espero ter ajudado
|
|
|
|
|
