ENVIAR UNA CADENA AL PUERTO PARALELO

FMORALES
17 de Enero del 2005
Hola, estoy intentando abrir un cajon despues de hacer una ticket, el codigo que debo de escupir a la impresora EPSON para que lo habra es :

En decimal
Print #1, Chr(27); Chr(112); Chr(0); Chr$(60); Chr$(120);
Print #1, Chr(&H1B); "p"; Chr(0); Chr$(60); Chr$(120);

el codigo es "ESP p" seguido del retardo

y me codigo del boton está aqui debajo.

La cosa es que no me lo habre, la impresora imprime basura, pero no lo reconoce como codigo de apertura.
He estado mirando y veo que Chr() requiere un tipo Long de 64 bit, lo que me da la sensacion que quizas pueda estar influyendo

Private Sub Command1_Click()
Open "LPT1" For Output As #1
Print #1, Chr(27); Chr(112); Chr(0); Chr$(60); Chr$(120);
Close #1
End Sub

Alguna idea ?? gracias

hely
17 de Enero del 2005
printer.print Chr(27) & Chr(112) & Chr(0) & Chr(60) & Chr(120)
printer.enddoc
el caracter chr(0) se puede remplazar con VBnullstring