Prezados amigos, recorro mais uma vez ao GD como último recurso para uma batalha que estou travando há um tempinho. A função FormataTX da bematech no momento funciona perfeitamente enquanto no cabeçalho e no rodapé do relatório. Cometi o erro capital de não tentar entender o código que passava para o sistema. Usei o comando print quando na verdade ele não precisava estar ali. A dll já era suficiente. Percebi o engano e o retirei. Entretanto não consigo fazer com que o detalhe do pedido seja impresso com seu devido alinhamento. A descrição à esquerda, os valores monetários à direita, dentro de suas respectivas colunas. O procurar do GD não me auxiliou em nada. A versão do Access é o 2000 e o código é o seguinte: Antes um agradecimento ao Osmar por uma dica quando solicitei sobre acentuação na Epson LX-300 usando o comando print. Graças a isso resolvi mais um desafio, lembrando ao osmar que o código de página é o BRASCII, e não 851, talvez seja por ser a epson que uso um modelo antigo. Mas foi a partir daí que fuçei o manual, levei horas configurando e o resultado final é muitissimo gratificante. Valeu. Abraços a todos.

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
Dim sTexto As String
Dim iRetorno 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-------------------------
Buffer = "Cassiano Bebidas" + Chr(13) + Chr(10)
Buffer = "Razão Social: José Cassiano Pereira - ME" + Chr(13) + Chr(10)
Buffer = "CNPJ: 11.531.233/0001-37" + Chr(13) + Chr(10)
Buffer = "I.E : 18.2.580.0071242-1" + Chr(13) + Chr(10)
Buffer = "End.: Av. Barreto de Menezes, 621" + Chr(13) + Chr(10)
Buffer = "Prazeres - Jaboatão dos Guararapes -PE" + Chr(13) + Chr(10) + Chr(10)
Buffer = "Tel.: (081)3476-1537 - 0800-281-7010" + Chr(13) + Chr(10) + Chr(10) + Chr(10)
Buffer = "NOTA DE PEDIDO" + Chr(13) + Chr(10) + Chr(10)
Buffer = "Caixa/Operador" + Chr(13) + 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)
comando = FormataTX(Buffer, 3, 0, 0, 1, 1)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer7, 3, 0, 0, 0, 1)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)

Set db = CurrentDb()
Set rs = CurrentDb.OpenRecordset("Select * From PedidoIndividual Where RegDetPedido =" & Me.CódigoPedido)
'------------------------------Detalhes do Pedido-----------------------------------------------------------

Do While Not rs.EOF
Buffer = rs!DescriçãoProduto
Buffer50 = Format(rs!VlSelo, "#.###.00")
comando = FormataTX(Buffer, 1, 0, 0, 0, 0)
strDescr = comando
strvalor = comando
Print #1, Tab(10); strDescr; Tab(35); strvalor
rs.MoveNext
Loop
Close #1
Buffer = "" + Chr(13) + Chr(10) + Chr(10)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)

'------------------------------Rodapé-------------------------------------------------------------------
Buffer = "Total Geral: " + Chr(13) + Chr(10)
Buffer = "Desc. Geral dos Itens:" + Chr(13) + Chr(10)
Buffer = "Desc. Geral da Nota: " + Chr(13) + Chr(10)
Buffer = "Valor Pago: " + Chr(13) + Chr(10)
Buffer = "Resta: " + Chr(13) + Chr(10)
Buffer10 = "Forma Pgto: " + Chr(13) + Chr(10)
Buffer = "Valor Pago: " + Chr(13) + Chr(10)
Buffer = "" + Chr(13) + Chr(10)
Buffer = "_____________________" + Chr(13) + Chr(10) + Chr(10)
Buffer = " Assinatura" + Chr(13) + Chr(10)
Buffer = "" + Chr(13) + Chr(10) + Chr(10)
Buffer = "***Sua melhor opção! 0800-281-7010***" + Chr(13) + Chr(10)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer10, 3, 0, 0, 0, 1)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
comando = FormataTX(Buffer, 3, 0, 0, 0, 0)
fecha = FechaPorta()
Set db = Nothing
Set rs = Nothing
MsgBox "Arquivo atualizado com êxito.", 48, "Aviso"