Visual Basic - abrir cajon portamonedas en terminal sever

Buenos días y gracias de antemano,
utilizo la siguiente función para abrir un cajón portamonedas conectado a la impresora de tickets, lo abre bien trabajando en local, pero no cuando se trabaja en una sesión de terminal server. El puerto lo reconoce bien en terminal server pero da la impresión de que no le manda nada a la impresora y esta esta se conecta correctamente cuando se inicia la sesión en Ts.
Espero me puedan ayudar para abrir el cajon desde terminal server.

Sub main()
Dim Fichero As Integer
Fichero = FreeFile
Open Printer.Port For Output As #Fichero
Print #Fichero, Chr(27) + Chr(112) + Chr(0) + Chr(10) + Chr(100)
Close #Fichero
End Sub

Un saludo y muchas gracias.

C:\Users\xp>cambiar puertos para apertura ó impresión de cajon con TS
AUX = \DosDevices\COM1
COM1 = \Device\RdpDrPort\;COM1:7\tsclient\COM1
COM3 = \Device\RdpDrPort\;COM3:7\tsclient\COM3
LPT1 = \Device\RdpDrPort\;LPT1:7\tsclient\LPT1
PRN = \DosDevices\LPT1

Saludos

Hola Enrique, no se en que sitio exacto debo colocar lo de
C:Usersxp>cambiar puertos para apertura ó impresión de cajon con TS
AUX = DosDevicesCOM1
COM1 = DeviceRdpDrPort;COM1:7 sclientCOM1
COM3 = DeviceRdpDrPort;COM3:7 sclientCOM3
LPT1 = DeviceRdpDrPort;LPT1:7 sclientLPT1
PRN = DosDevicesLPT1

Tengo una aplicacion hecha en ACCESS y el mismo problema que comentba soilo

GRACIAS

Enviado por BARBOSAA el día 20 de junio de 2009
HOLA PUDISTE DAR CON LA SULucion para que seas tan amable de compartiral estoys en las mismas deseo abrir cajon en una estcion terminal server puerto lpt1

mandame a mi correo barbosaa2001 @ hotmail . com

gracias