Carlos, as opções que vi la, são apenas para ver se existe impressoras instaladas no windows, nada a ver com impressão direta para a porta. Se vc descobrir algo, me avisa, obrigado.

 

 tente assisn ....

 

Public Enum alinhar_Lado
    Direito = 1
    Esquerdo = 2
    Centro = 3
End Enum

 

Public Sub Alinhar_Texto(obj As Object, X As Integer, Y As Integer, texto As String, Lado As alinhar_Lado, Optional FimLinha As Boolean)
obj.CurrentY = Y

Select Case Lado
Case 1 ' direito
      obj.CurrentX = X - obj.TextWidth(texto)
Case 2 ' esquerdo
      obj.CurrentX = X
Case 3 ' centro
      obj.CurrentX = ((X - obj.TextWidth(texto)) / 2)
End Select
If FimLinha = True Then
  obj.Print texto
Else
  obj.Print texto;
End If
End Sub

 

Public Sub Set_Fonte(obj As Object, size As Integer, fName As Variant, cor As String, b As Boolean, i As Boolean, u As Boolean, s As Boolean)
With obj
.ForeColor = cor
.FontName = fName
.FONTSIZE = size
.FontBold = b
.FontItalic = i
.FontUnderline = u
.FontStrikethru = s
End With
End Sub

 

 

 

 

 

'no form

Set_Fonte obj, 9, "arial", vbBlack, True, False, False, False
Call Alinhar_Texto(obj,  3000, obj.CurrentY, "seu testo aqui",Esquerdo)