AJUTAR A COLUNA EM OBJETO PRINTER

MOREIRA 27/04/2007 11:31:33
#214030
olá como eu faço para ajustar a coluna monetaria nessa função para a direita?
Printer.Print Tab(5); txtCodigo1.Text; Spc(5); Mid(txtDescricao1.Text, 1, 15); Spc(30); Format$(Format(txtReferencia1.Text), "0.00"); Spc(45); Format$(Format(txtVencimento1.Text), "0.00"); Spc(29); Format$(Format(txtDesconto1.Text), "0.00")
Printer.Print Tab(5); txtCodigo2.Text; Spc(5); Mid(txtDescricao2.Text, 1, 15); Spc(30); Format$(Format(txtReferencia2.Text), "0.00"); Spc(45); Format$(Format(txtVencimento2.Text), "0.00"); Spc(29); Format$(Format(txtDesconto2.Text), "0.00")
Printer.Print Tab(5); txtCodigo3.Text; Spc(5); Mid(txtDescricao3.Text, 1, 15); Spc(30); Format$(Format(txtReferencia3.Text), "0.00"); Spc(45); Format$(Format(txtVencimento3.Text), "0.00"); Spc(29); Format$(Format(txtDesconto3.Text), "0.00")
Printer.Print Tab(5); txtCodigo4.Text; Spc(5); Mid(txtDescricao4.Text, 1, 15); Spc(30); Format$(Format(txtReferencia4.Text), "0.00"); Spc(45); Format$(Format(txtVencimento4.Text), "0.00"); Spc(29); Format$(Format(txtDesconto4.Text), "0.00")
Printer.Print Tab(5); txtCodigo5.Text; Spc(5); Mid(txtDescricao5.Text, 1, 15); Spc(30); Format$(Format(txtReferencia5.Text), "0.00"); Spc(45); Format$(Format(txtVencimento5.Text), "0.00"); Spc(29); Format$(Format(txtDesconto5.Text), "0.00")
MOREIRA 27/04/2007 13:48:28
#214060
alguem ai tem uma ideia como ajutar apartir da 3ê coluna à direita ?
esta imprimindo assim:
2,20
63,00
1,60
Teria q ficar assim:
2,20
63,00
1,20
USUARIO.EXCLUIDOS 27/04/2007 14:12:07
#214067
Private Sub Alinhado(texto As String, Alignment As String)
Select Case Alignment
Case "Centro"
Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(texto)) \ 2
Case "Esquerda"
Printer.CurrentX = 0
Case "Direita"
Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(texto) - 2050
'Printer.CurrentY = Printer.ScaleHeight - Printer.TextWidth(texto) -
End Select
Printer.Print texto

End Sub

'Depois chama assim

Call Alinhado("" & Grid1.TextMatrix(i, 5) & "", "Direita")

nocaso ai esta -2050, ahuste para o seu caso
MOREIRA 27/04/2007 16:50:39
#214104
como eu nao uso um grid... chamaria mudaria o ak , na hora de chamar
Call Alinhado("" & Grid1.TextMatrix(i, 5) & "", "Direita")
HUGOSSOUZA 27/04/2007 17:01:37
#214111 Resposta escolhida
vc pode tentar assim tbm:

printer.scalemode = 7 'centimetros. aqui vc pode mudar para twips ou pixels


'Printer.CurrentX = posiçãofinal - valorFormatado
'desse jeito ele ja vai ordernar pelas casas decimais.

Printer.CurrentX = 10 - Printer.TextWidth(Format(xValor, "#0.00"))

Printer.print Format(xValor, "#0.00")

USUARIO.EXCLUIDOS 27/04/2007 18:40:56
#214139
cHAMA O TEXTO QUE VC QUER IMPRIMIR
Tópico encerrado , respostas não são mais permitidas
Voltar