IMPRESSAO NO VB 6
Estou tentando imprimir um relatório e não estou conseguindo fazer com que a coluna de valores decimais fiquem alinhados à  direita.
Ficaria muito agredecido se alguém puder me ajudar
Ficaria muito agredecido se alguém puder me ajudar
Alinhamento a direita - Para alinhar um texto a direita de uma área , precisamos conhecer o tamanho do texto e o tamanho da área de impressão. Para conhecer o tamanho do texto usamos o método TextWidth. Vejamos uma rotina que realiza esta tarefa a seguir
Private Sub AlinhaDireita(objSaida As Object, LMarg, TMarg, RgWid, RgHgt _
As Integer, texto As String)
Dim txMarg As Integer
txMarg = RgWid - objOut.TextWidth(texto) - 10
If txMarg < 0 Then txMarg = 0
objSaida.CurrentX = LMarg + txMarg
objSaida.CurrentY = TMarg
objSaida.Print Texto
End Sub
A chamada da função é idêntica a atulizada anteriormente:
Dim texto As String
Dim objWid As Integer
Dim objHgt As Integer
texto = Text1.Text
objWid = Picture1.ScaleWidth
objHgt = Picture1.ScaleHeight
Picture1.Cls
AlinhaDireita Picture1, 5, 5, objWid, objHgt, texto
Private Sub AlinhaDireita(objSaida As Object, LMarg, TMarg, RgWid, RgHgt _
As Integer, texto As String)
Dim txMarg As Integer
txMarg = RgWid - objOut.TextWidth(texto) - 10
If txMarg < 0 Then txMarg = 0
objSaida.CurrentX = LMarg + txMarg
objSaida.CurrentY = TMarg
objSaida.Print Texto
End Sub
A chamada da função é idêntica a atulizada anteriormente:
Dim texto As String
Dim objWid As Integer
Dim objHgt As Integer
texto = Text1.Text
objWid = Picture1.ScaleWidth
objHgt = Picture1.ScaleHeight
Picture1.Cls
AlinhaDireita Picture1, 5, 5, objWid, objHgt, texto
Tópico encerrado , respostas não são mais permitidas