vilefort
|
BELO HORIZONTE
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/01/2005 11:17 hs
Bom Dia, por favor gostaria de saber como faço para colocar acentuação usando a impressão direto para impressora matricial no caso estou usando a Epson FX-1170 ou Epson LX-300 Open "LPT1" For Output As #1 . ex. Teste de Impressão, sai Teste de Impresso Agradeço as informações, |
|
|
|
|
|
ralph
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/01/2005 11:21 hs
Public Function Converte(texto As String) As String
Dim atual As String
Dim var As String
Dim Cod As Byte
For i = 1 To Len(texto)
atual = Mid$(texto, i, 1)
If atual <> " " Then
Select Case atual
Case "ê", "ë", "î", "ù", "ö"
Mid(texto, i, 1) = Chr$(Asc(atual) - 98)
Case "á"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 65)
Case "ç", "ä"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 96)
Case "â", "ì"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 95)
Case "à"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 91)
Case "ã"
Mid(texto, i, 1) = Chr$(134)
Case "é"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 103)
Case "è"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 94)
Case "í"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 76)
Case "ï"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 100)
Case "ó"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 81)
Case "ò"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 93)
Case "õ"
Mid(texto, i, 1) = Chr$(153)
Case "ô"
Mid(texto, i, 1) = Chr$(111)
Case "ú"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 87)
Case "û"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 101)
Case "ü"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 123)
Case "Á", "Â", "À"
Mid(texto, i, 1) = Chr$(143)
Case "Ä", "Ã"
Mid(texto, i, 1) = Chr$(142)
Case "É"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 57)
Case "È", "Ê", "Ë"
Mid(texto, i, 1) = Chr$(69)
Case "Ì", "Í", "Î", "Ï"
Mid(texto, i, 1) = Chr$(73)
Case "Ù"
Mid(texto, i, 1) = Chr$(85)
Case "Ô", "Ö", "Õ", "Ó", "Ò"
Mid(texto, i, 1) = Chr$(79)
Case "Ü", "Û", "Ú" '15
Mid(texto, i, 1) = Chr$(85)
Case "Ç"
Mid(texto, i, 1) = Chr$(Asc(Mid(texto, i, 1)) - 71)
End Select
End If
Next i
Converte = texto
End Function para chamar é so colocar converte(campo) valeu fui |
|
|
|
|
