Pregunta:
Cajón
Muy mal, no eres experto la respuesta era :Sub Abrir_Cajon() Dim Fichero as integer Fichero=FreeFile Open "LPT1" For Output as #Fichero Print #Fichero,Chr(27)+Chr(112)+Chr(0)+Chr(40)+Chr(40) Close #Fichero End Sub