ALINHAMENTO A DIREITA PARA IMPRESSÃO
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]
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]
boa tarde
veja este link da pesquisa
http://vbmania.com.br/index.php?modulo=detalhe&id=6787
veja este link da pesquisa
http://vbmania.com.br/index.php?modulo=detalhe&id=6787
Marcelo muito obrigado, mas não funcionou
colega pra ficar bem alinha você teria de usar um font com dimensoes iguais ([Ô]Courier New[Ô]), e fazer um format.
ex:
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[Ô]),[Ô]@@@@@@@@@[Ô]);
MARCELO-TREZE,
Desculpe a minha ignorância, mas não entendi, poderia me explicar melhor, sou novo em programação.
Desculpe a minha ignorância, mas não entendi, poderia me explicar melhor, sou novo em programação.
Primeiro o codigo acima funcionou?
Não eu não entendi como faço isso
mas eu fiz o código pra você é só copiar e colar
Copiei e colei seu código, mas não funcionou, ele fica centralizado
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[Ô])
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[Ô])
Printer.Print ; Tab(160 - Len(rs([Ô]total[Ô]))); Format(Format(rs([Ô]total[Ô]), [Ô]Standard[Ô]),[Ô]@@@@@@@@@[Ô])
Mas é exatamente como o Marcelo colocou.
Mas é exatamente como o Marcelo colocou.
Tópico encerrado , respostas não são mais permitidas