Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/03/2008, 09:38
LukisgGmail
 
Fecha de Ingreso: marzo-2008
Mensajes: 1
Antigüedad: 16 años, 2 meses
Puntos: 0
Corte de papel en LPT1 con VB6 en Win98

Hola gente soy nuevo por acá y tengo el siguiente problema a ver si me pueden ayudar, resulta que tengo que hacer el corte de papel despues de emitir un tiquet con la Epson TM-T80P y VB6.0, el tema es que usando el Driver Genérico Text Only de WinXP anda perfecto pero con Win98 no lo hace, es mas no me toma ningun script que mando como lo hago en WinXP, este es el procedimiento que uso en que funciona en WinXP pero no en Win98:

Public Sub CortarPapel()
On Error Resume Next
Set objFSO = CreateObject("scripting.FileSystemObject")
Set objStream = objFSO.CreateTextFile(PrinterTextOnly)
objStream.Writeline Chr(27) & Chr(105)
Set objStream = Nothing
Set objFSO = Nothing
End Sub

por otro lado probe mandando dos veces este comando:

Open "lpt1" For Output As #1
Print #1, Chr$(27); Chr$(105)
Close #1

y en Win Xp perfecto, pero en el 98 me da el error: Error '75' o '53' Error de acceso a ruta o archivo , no se como leer o escribir en el lpt desde vb6 en Win98, por favor si alguien me puede dar una mano, estaré tremendamente agradecido, gracias.