eu utilizo a dll Extens32, e tenho um campo na tabela onde eu gravo o valor por extenso.
'no módulo
Public Declare Function extenso Lib "Extens32.dll"(ByVal Valor As String, ByVal Retorno As String) As Integer
Public Function PassaExtenso(ValorII As Double) As String
' Passa um número para a DLL e
' recebe-o de volta por extenso
On Error GoTo Passa_Err
Dim Retorno$, x%
Retorno$ = Space$(512)
x% = extenso(ValorII, Retorno$)
PassaExtenso = UCase(Trim$(Retorno$))
Passa_Fim:
Exit Function
Passa_Err:
MsgBox Error$(Err)
Resume Passa_Fim
End Function
'no form
vgdb.execute "Update Contas_a_receber Set Extenso = '" & ucase(PassaExtenso &"' Where [Numero do documento]= '" & numero_do_documento & "'"
... codigo para imprimir o título
