PROBLEMAS MASKEDBOX

DRAGOMSE 02/05/2013 10:23:59
#422815

bom dia, hje estava realizando um trabalho e necessitei do uso do MASKEDBOX, um componete que nunca havia usado antes,

bom na interface do VB , porem uso o VB6. quando dou play para testar o projeto e insiro no campo VALOR 5 ele modifica para 5,00 corretamente,

ai tudo bem, o problema e na hora da impressao , que ele imprime somente 5 , seria algum erro nos fontes ?

Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)

If KeyAscii >= Asc([Ô]0[Ô]) And KeyAscii <= Asc([Ô]9[Ô]) Or KeyAscii = vbKeyBack Or KeyAscii = Asc([Ô],[Ô]) Then

Else
If KeyAscii = Asc([Ô].[Ô]) Then
KeyAscii = Asc([Ô],[Ô])
Else
KeyAscii = 0
End If
End If

End Sub

este e o codigo do meu Maskedbox,

e o codigo da form onde imprimo fica



[ô] VALORES/PREÇOS

Objeto.FontBold = True
Objeto.FontSize = 10
Objeto.CurrentY = 2100
Objeto.CurrentX = 4700
Objeto.Print MaskEdBox1

Objeto.FontBold = True
Objeto.FontSize = 10
Objeto.CurrentY = 2600
Objeto.CurrentX = 4700
Objeto.Print MaskEdBox2

e assim por diante,

como eu poderia corrigir o problema ?e o valor na impressão sair correto os 5,00 ?


Agradecido des de ja.