Prezados amigos, instalei corretamente a dll mp2032 e a impressão está correta quanto
à acentuação e formatação no cabeçalho e no rodapé do relatório. O meu problema é quando tenho que trabalhar com os detalhes do pedido. Não estou obtendo sucesso ao referenciar a Função FormataTX para esses itens. Como devo fazer para que os itens também tenham acesso a essa função e que fiquem devidamente acentuados?
Estou utilizando o access 2000 e o código a seguir. Desde já agradeço. Abraços.


Dim db As Database
Dim rs As Recordset
Dim descrfunc As String
Dim DescrItem As String
Dim Unidade As String
Dim Unit As Integer
Dim QtdeVenda As Integer
Dim Total As Currency
Dim Geral As Currency
Dim I As Integer
Dim strDescr As String

porta = IniciaPorta("LPT1")
If porta <= 0 Then
MsgBox "Problemas ao abrir a porta de Comunicação. Verifique."
End If
'----------------------------------------------Cabeçalho do Pedido/Venda-------------------------
Buffer1 = "TDE - Video Locadora" + Chr(13) + Chr(10)
Buffer2 = "Razão Social: José Cassiano Pereira - ME" + Chr(13) + Chr(10)
Buffer3 = "End.: Av. Barreto de Menezes, 621" + Chr(13) + Chr(10)
Buffer4 = "Prazeres - Jaboatão dos Guararapes -PE" + Chr(13) + Chr(10) + Chr(10)
Buffer5 = "Cliente:" + Chr(13) + Chr(10)
Buffer7 = Me.NomeClienteReal + Chr(13) + Chr(10) + Chr(10)
Buffer8 = "Descrição Qtde Tipo Vl. Desc. Total" + Chr(13) + Chr(10)
Buffer9 = "Obs: PROCURE FAZER A DEVOLUÇÃO ATÉ" + Chr(13) + Chr(10)
Buffer10 = "VOCÊ TAMBÉM PODE QUERER LOCAR ITENS" + Chr(13) + Chr(10)
Buffer11 = "SE NÃO ENTREGAR NO PRAZO SERÁ RELOCADO." + Chr(13) + Chr(10) + Chr(10)
Buffer12 = "***POR FAVOR NÃO PEGUE NA SUPERFÍCIE DO DVD***" + Chr(13) + Chr(10) + Chr(10)
Buffer13 = "1- Cortesia 2- Devolução D- Devolvido" + Chr(13) + Chr(10)
comando = FormataTX(Buffer1, 2, 0, 0, 1, 1)
comando = FormataTX(Buffer2, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer3, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer4, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer5, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer6, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer7, 3, 0, 0, 0, 1)
comando = FormataTX(Buffer8, 3, 0, 0, 0, 0)

Set db = CurrentDb()
Open "LPT1" For Output As #1
Close #1
Open "LPT1" For Output As #1
Set rs = CurrentDb.OpenRecordset("Select * From PedidoIndividual Where RegDetPedido =" & Me.CódigoPedido)
'------------------------------Detalhes do Pedido-----------------------------------------------------------

Do While Not rs.EOF
strDescr = rs!Descrição
Buffer15 = strDescr
comando = FormataTX(Buffer15, 3, 0, 0, 0, 0)
Print #1, Tab(1); strDescr; Tab(53); Format((rs!VlSelo), "#,##0.00")
rs.MoveNext
Loop
Print #1, Chr(15); "========================================="
'------------------------------Rodapé-------------------------------------------------------------------
Print #1, Chr(15); "Taxa Inscr.:"; Tab(14); "0,00"; Tab(22); "Total: "; Tab(53); Format((Me.Texto33), "#,##0.00")
Print #1, Chr(15); "Desconto:"; Tab(14); "0,00"; Tab(22); "Credito Util.: "; Tab(41); Format((Me.ValorPago2), "#,##0.00")
Print #1, Chr(15); "Pago:"; Tab(14); Format((Me.ValorPago2), "#,##0.00"); Tab(22); "Total a Pagar: "; Tab(41); Format((Me.ValorPago2), "#,##0.00")
Print #1,
Print #1,
Close #1
Open "LPT1" For Output As #1
Print #1, comando = FormataTX(Buffer9, 3, 0, 0, 0, 0)
Print #1, comando = FormataTX(Buffer10, 3, 0, 0, 0, 0)
Print #1, comando = FormataTX(Buffer11, 3, 0, 0, 0, 0)
Print #1, comando = FormataTX(Buffer12, 3, 0, 0, 0, 0)
Print #1, comando = FormataTX(Buffer13, 3, 0, 0, 0, 0)
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Close #1
Set db = Nothing
Set rs = Nothing
MsgBox "Arquivo atualizado com êxito.", 48, "Aviso"
Fecha = FechaPorta()

Utilizando o Procurar.

Prezado Jorge, pelo procurar não há nada que possa resolver o meu problema. Estou lhe enviando um e-mail para que se for possivel, me disponibilizar a rotina que você menciona. Desde já agradeço.