Visual Basic para Aplicaciones - impresora

hola keria saber como puedo hacer para imprimir datos en una determinada impresora utilizando el puerto usb ...
estos son los datos que deseo imprimir:

Dim objPrinter As Object
Dim lngResult As Long
Dim Datos As Variant

On Local Error GoTo ErrProcess
Set objPrinter = CreateObject("hPrinter.CC_Printer")
ReDim Datos(7)
Datos(0) = "12Camino Real"
Datos(1) = "12Buenos Dias"
Datos(2) = "12Fecha: " & Format(Now, "dd/mm/yyyy HH:mm:ss")
Datos(3) = "12Ticket"
Datos(4) = "15PP1001"
Datos(5) = "12Para ser atendido favor acercarse a:"
Datos(6) = "12Edificio A Piso 1"
Datos(7) = "12Clientes en Espera 8"

If objPrinter.b_Imprimir("EPSON TH6000II ", App.Path & "\logo.bmp ", Datos, 5) = 0 Then
Then
GoTo ErrProcess
End If

Exit Sub
ErrProcess:
Set objPrinter = Nothing
MsgBox "Error en la Impresion"
End Sub
y aki hago la funcion que habre el puerrto usb

Private Function v_ImprimirUsb() As Long


Dim szUsbName As String
Dim szPath As String

If (TMUSBEnum(0, szdevpath)) Then 'La impresora esta en USB 0 pero es posible cambiarlo
' Open TM pipe handle
szPath = Left(szdevpath, InStr(szdevpath, Chr$(0)) - 1) & "\TM"
h = TMUSBOpen(szPath)
If h <> INVALID_HANDLE_VALUE Then

MsgBox "imprime "// aki deseo agregar el codigo para poder imprimir los datos


End If


End If
End Function

ojo que tengo que utilizar los comando de la impresora para poder escribir en el puerto
Call ptrWritePort(Chr$(27) & Chr$(100) & Chr$(1))

se lo agradezco de antemano

Dime flojo pero yo lo haria con un datareport, dejando la impresora que ocupas como determinada.
Nota si es una una impresora de ticket tendra que ser con la propiedad printer,
y existe una forma de sacar el cuadro de impresora como en word u otro programa.