ALINHAMENTO A DIREITA PARA IMPRESSÃO

CRCJ 15/10/2014 12:57:33
#441936
Boa Tarde a Todos
Tenho um comando que imprime uma DBGrid com conexão com Access 2007 e estou usando VB6. Gostaria de alinhar a direita alguns itens Ficarei muito grato pela ajuda.

Printer.Print ; Tab(0); rs([Ô]Codigo[Ô]);
Printer.Print ; Tab(12); rs([Ô]datacompra[Ô]);
Printer.Print ; Tab(25); rs([Ô]material[Ô]);
Printer.Print ; Tab(90); rs([Ô]fornecedor[Ô]);
Printer.Print ; Tab(113); rs([Ô]tipo[Ô]);
Printer.Print ; Tab(120);rs([Ô]qtde[Ô]); [txt-color=#e80000]=> alinhamento a direita[/txt-color]
Printer.Print ; Tab(140); Format(rs([Ô]valorunitario[Ô]), [Ô]Standard[Ô]); [ô][Ô]Currency[Ô]); [txt-color=#e80000]=> alinhamento a direita[/txt-color]
Printer.Print ; Tab(160); Format(rs([Ô]total[Ô]), [Ô]Standard[Ô]); [txt-color=#e80000]=> alinhamento a direita[/txt-color]
MARCELOSN 15/10/2014 14:16:34
#441939
boa tarde


veja este link da pesquisa


http://vbmania.com.br/index.php?modulo=detalhe&id=6787
CRCJ 15/10/2014 14:45:42
#441940
Marcelo muito obrigado, mas não funcionou
MARCELO.TREZE 15/10/2014 15:10:58
#441941
colega pra ficar bem alinha você teria de usar um font com dimensoes iguais ([Ô]Courier New[Ô]), e fazer um format.

ex:

Printer.FontName = [Ô]Courrier New[Ô]
Printer.Print ; Tab(0); rs([Ô]Codigo[Ô]);
Printer.Print ; Tab(12); rs([Ô]datacompra[Ô]);
Printer.Print ; Tab(25); rs([Ô]material[Ô]);
Printer.Print ; Tab(90); rs([Ô]fornecedor[Ô]);
Printer.Print ; Tab(113); rs([Ô]tipo[Ô]);
Printer.Print ; Tab(120); Format(rs([Ô]qtde[Ô]),[Ô]@@@@@@@@@[Ô]);
Printer.Print ; Tab(140); Format(Format(rs([Ô]valorunitario[Ô]), [Ô]Standard[Ô]),[Ô]@@@@@@@@@[Ô]);
Printer.Print ; Tab(160); Format(Format(rs([Ô]total[Ô]), [Ô]Standard[Ô]),[Ô]@@@@@@@@@[Ô]);
CRCJ 15/10/2014 15:24:31
#441943
MARCELO-TREZE,
Desculpe a minha ignorância, mas não entendi, poderia me explicar melhor, sou novo em programação.
MARCELO.TREZE 15/10/2014 16:13:14
#441948
Primeiro o codigo acima funcionou?
CRCJ 15/10/2014 16:21:07
#441949
Não eu não entendi como faço isso
MARCELO.TREZE 15/10/2014 16:42:40
#441950
mas eu fiz o código pra você é só copiar e colar
CRCJ 15/10/2014 16:54:08
#441952
Copiei e colei seu código, mas não funcionou, ele fica centralizado
CRCJ 22/10/2014 16:30:24
#442097
MARCELO-TREZE, BOA TARDE
Consegui alinhar a direita, só que nos itens valorunitario e total não consigo deixar no formato 0.000,00, já tentei de varias maneiras, mas não da certo, pode me ajudar.

Printer.Print ; Tab(0); rs([Ô]Codigo[Ô]);
Printer.Print ; Tab(12); rs([Ô]datacompra[Ô]);
Printer.Print ; Tab(25); rs([Ô]material[Ô]);
Printer.Print ; Tab(90); rs([Ô]fornecedor[Ô]);
Printer.Print ; Tab(113); rs([Ô]tipo[Ô]);
Printer.Print ; Tab(120 - Len(rs([Ô]qtde[Ô]))); rs([Ô]qtde[Ô]);
Printer.Print ; Tab(140 - Len(rs([Ô]valorunitario[Ô]))); rs([Ô]valorunitario[Ô]);
Printer.Print ; Tab(160 - Len(rs([Ô]total[Ô]))); rs([Ô]total[Ô])
NILSONTRES 22/10/2014 17:53:25
#442098
Printer.Print ; Tab(160 - Len(rs([Ô]total[Ô]))); Format(Format(rs([Ô]total[Ô]), [Ô]Standard[Ô]),[Ô]@@@@@@@@@[Ô])

Mas é exatamente como o Marcelo colocou.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar