Alinhamento a direita.


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Alinhamento a direita.

Knight

GOIÂNIA
GO - BRASIL

Postada em 27/07/2005 18:40 hs

Usando o objeto printer, como eu faço para alinhar um texto a direira ou pela virgula dos numeros???

Ex:

2,10 10,00

5,8 1,00

1,90 100,00

Agradeço desde já

Knight

http://host.csti.eti.br

CSTI WebHosting
Hospedando Idéias

7Cordas

PORTO ALEGRE
RS - BRASIL

Postada em 27/07/2005 23:08 hs

Tu vais ter que mandar a string para o Spool já formatada. Ou seja :

Printer.Print Format(string, "@@@@@@@@")

ou então

Printer.Print Format(string, "!@@@@@@@@")

A exclamação indica que é para alinhar na direita(sem ela será alinhado a direita).

A quantidade de "@" indica a quantidade de posições que terá a string.

Espero ter ajudado.

Cristiano Fischer

SG-Data Sistemas de Gestão

MSN: cristiano_fischer@hotmail.com

Projeto SIGA - Sistemas Integrados de Gestão

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 28/07/2005 10:51 hs

Vc imprime diretamente os caracteres, ou usa posicionamento???

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Knight

GOIÂNIA
GO - BRASIL

ENUNCIADA !

Postada em 28/07/2005 19:59 hs

eu uso o tab() pra imprimir

Do geito q o amigo acima falou funciona quando eu imprimo direto, mas quando eu uso tab() num funciona direito.

Tive de fazer uma rotina assim pra funcionar +ou-

Código grande mais bem simples de entender

If Len(TABLE_TEMP_DADOS("VL_UNITARIO")) = 4 Then
UNIT_FORMAT = Format$(CStr(Format$(TABLE_TEMP_DADOS("VL_UNITARIO"), "##,##0.00")), "@@@@@@@@@@@@@@@@")
End If

If Len(TABLE_TEMP_DADOS("VL_UNITARIO")) = 5 Then
UNIT_FORMAT = Format$(CStr(Format$(TABLE_TEMP_DADOS("VL_UNITARIO"), "##,##0.00")), "@@@@@@@@@@@@@@@")
End If

If Len(TABLE_TEMP_DADOS("VL_UNITARIO")) = 6 Then
UNIT_FORMAT = Format$(CStr(Format$(TABLE_TEMP_DADOS("VL_UNITARIO"), "##,##0.00")), "@@@@@@@@@@@@@@")
End If

If Len(TABLE_TEMP_DADOS("VL_UNITARIO")) = 7 Then
UNIT_FORMAT = Format$(CStr(Format$(TABLE_TEMP_DADOS("VL_UNITARIO"), "##,##0.00")), "@@@@@@@@@@@@@")
End If

If Len(TABLE_TEMP_DADOS("VL_UNITARIO")) = 8 Then
UNIT_FORMAT = Format$(CStr(Format$(TABLE_TEMP_DADOS("VL_UNITARIO"), "##,##0.00")), "@@@@@@@@@@@@")
End If

If Len(TABLE_TEMP_DADOS("VL_UNITARIO")) = 9 Then
UNIT_FORMAT = Format$(CStr(Format$(TABLE_TEMP_DADOS("VL_UNITARIO"), "##,##0.00")), "@@@@@@@@@@@")
End If

If Len(TABLE_TEMP_DADOS("VL_UNITARIO")) = 10 Then
UNIT_FORMAT = Format$(CStr(Format$(TABLE_TEMP_DADOS("VL_UNITARIO"), "##,##0.00")), "@@@@@@@@@@")
End If

Knight

http://host.csti.eti.br

CSTI WebHosting
Hospedando Idéias

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 02/08/2005 10:31 hs

Muda a fonte pra uma de largura fixa, q funciona o alinhamento com os tabs...

Printer.FontName = "Currier New" 'por exemplo

Mas eu te recomendo usar coordenadas pra imprimir ao inves de tabs...

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR