Alguém sabe como faço pra imprimir esses caracteres no vb,

Ex.: "Nº da nota: 000325"

 

Quanto eu mando imprimir o "Nº" ele sai desconfigurado.

Tenta mandar o numero ASCII do caractere pro print

o símbolo ° é o número "176", e o símbolo º é o "186".

 

Ex: "N" & chr(176) & " da nota fiscal: 000325"

 

T+

vol tentar assim, depois posto avisando se deu certo

 

 tem como eu colocar nessa função, para que ela imprima os "ª" e "º"

 

Function removeAcentos(ByVal texto As String) As String
    Dim vPos As Byte
   
    Const vComAcento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
    Const vSemAcento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
   
    For i = 1 To Len(texto)
        vPos = InStr(1, vComAcento, Mid(texto, i, 1))
        If vPos > 0 Then
           Mid(texto, i, 1) = Mid(vSemAcento, vPos, 1)
        End If
    Next
    removeAcentos = texto
End Function

 

Private Sub Command1_Click()
f = FreeFile

Open "LPT1:" For Output As #f
Print #f, removeAcentos(Text1.Text)
Print removeAcentos(Text1.Text)

Close #f

End Sub