Marcos
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 01/06/2004 02:53 hs
Ola
Quando mando imprimir com o objeto print a impressão do campo total esta alinhada a esquerda. Oq esta acontecendo é o seguinte:
nome Total
Marcio 2,50
josé 12,50
paulo 123,50 Gostaria de saber como fazer para alinhar o campo total á direita para que a impressão seja sempre "vírgula embaixo de vírgula" , como fazer isso??
|
|
|
|
|
|
Waldirjr
|
POÇOS DE CALDAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/06/2004 09:08 hs
Function Preenche_Caracter(Str_Texto As String, Int_Quantidade As Integer, Str_Caractere As String, Optional Alinhamento As Boolean) As String
' Preenche a String (Str_Texto) com uma Quantidade(Int_Quantidade) de
' um Caracter(Str_Caracter) a Direita ou Esquerda (Alinhamento)
Dim Int_Contador As Integer
Preenche_Caracter = Trim$(Str_Texto)
For Int_Contador = 1 To Int_Quantidade - Len(Str_Texto)
If Alinhamento Then
Preenche_Caracter = Str_Caractere & Preenche_Caracter
Else
Preenche_Caracter = Preenche_Caracter & Str_Caractere
End If
Next
End Function
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
|
