Veja se ajuda :
Eh +/- assim:
Defina os Valores para:
- Linha_Valor = linha para impressao do valor
- Coluna_Valor = coluna para impressao do valor
- Linha_Extenso1 = coluna para impressao da primeira linha do Extenso
- Linha_Extenso2 = coluna para impressao da segunda linha do Extenso
- Coluna_Extenso = coluna para impressao do Extenso
- Linha_Sacado = coluna para impressao do nome do Sacado
- Linha_Data = coluna para impressao da Data
- Coluna_Local = coluna para impressao do Local
- Coluna_Dia = coluna para impressao do Dia
- Coluna_Mes = coluna para impressao do Mes
- Coluna_Ano = coluna para impressao do Ano
'----------- Impressao
For X = 0 To 18
If X = Linha_Valor Then
Printer.Print Tab(Coluna_Valor); Format(Valor, "#,###,##0.00")
ElseIf X = Val(Linha_Extenso1) Then
Printer.Print Tab(Coluna_Extenso); Extenso1
ElseIf X = Val(Linha_Extenso2) Then
Printer.Print Tab(Coluna_Extenso); Extenso2
ElseIf X = Val(Linha_Sacado) Then
Printer.Print Tab(Linha_Sacado); Sacado
ElseIf X = Val(Linha_Data) Then
Printer.Print Tab(Coluna_Local); Local;
Printer.Print Tab(Coluna_Dia); Dia;
Printer.Print Tab(Coluna_Mes); Mes;
Printer.Print Tab(Coluna_Ano); Ano
Else
Printer.Print Tab(0); " "
End If
Next X
Printer.EndDoc
Para escrever por extenso:
Public Function Extenso(ByVal Valor As Double, ByVal MoedaPlural As String, ByVal MoedaSingular As String) As String
Dim StrValor As String, Negativo As Boolean
Dim Buf As String, Parcial As Integer
Dim Posicao As Integer, Unidades
Dim Dezenas, Centenas, PotenciasSingular
Dim PotenciasPlural
Negativo = (Valor < 0)
Valor = Abs(CDec(Valor))
If Valor Then
Unidades = Array(vbNullString, "Um", "Dois", "Três", "Quatro", "Cinco", "Seis", "Sete", "Oito", "Nove", "Dez", "Onze", "Doze", "Treze", "Quatorze", "Quinze", "Dezesseis", "Dezessete", "Dezoito", "Dezenove")
Dezenas = Array(vbNullString, vbNullString, "Vinte", "Trinta", "Quarenta", "Cinqüenta", "Sessenta", "Setenta", "Oitenta", "Noventa")
Centenas = Array(vbNullString, "Cento", "Duzentos", "Trezentos", "Quatrocentos", "Quinhentos", "Seiscentos", "Setecentos", "Oitocentos", "Novecentos")
PotenciasSingular = Array(vbNullString, " Mil", " Milhão", " Bilhão", " Trilhão", " Quatrilhão")
PotenciasPlural = Array(vbNullString, " Mil", " Milhões", " Bilhões", " Trilhões", " Quatrilhões")
StrValor = Left(Format(Valor, String(18, "0") & ".000"), 18)
For Posicao = 1 To 18 Step 3
Parcial = Val(Mid(StrValor, Posicao, 3))
If Parcial Then
If Parcial = 1 Then
Buf = "Um" & PotenciasSingular((18 - Posicao) 3)
ElseIf Parcial = 100 Then
Buf = "Cem" & PotenciasSingular((18 - Posicao) 3)
Else
Buf = Centenas(Parcial 100)
Parcial = Parcial Mod 100
If Parcial <> 0 And Buf <> vbNullString Then
Buf = Buf & " e "
End If
If Parcial < 20 Then
Buf = Buf & Unidades(Parcial)
Else
Buf = Buf & Dezenas(Parcial 10)
Parcial = Parcial Mod 10
If Parcial <> 0 And Buf <> vbNullString Then
Buf = Buf & " e "
End If
Buf = Buf & Unidades(Parcial)
End If
Buf = Buf & PotenciasPlural((18 - Posicao) 3)
End If
If Buf <> vbNullString Then
If Extenso <> vbNullString Then
Parcial = Val(Mid(StrValor, Posicao, 3))
If Posicao = 16 And (Parcial < 100 Or (Parcial Mod 100) = 0) Then
Extenso = Extenso & " e "
Else
Extenso = Extenso & ", "
End If
End If
Extenso = Extenso & Buf
End If
End If
Next
If Extenso <> vbNullString Then
If Negativo Then
Extenso = "Menos " & Extenso
End If
If Int(Valor) = 1 Then
Extenso = Extenso & " " & MoedaSingular
Else
Extenso = Extenso & " " & MoedaPlural
End If
End If
Parcial = Int((Valor - Int(Valor)) * 100 + 0.1)
If Parcial Then
Buf = Extenso(Parcial, "Centavos", "Centavo")
If Extenso <> vbNullString Then
Extenso = Extenso & " e "
End If
Extenso = Extenso & Buf
End If
End If
End Function
