Hola,
Código:
Open "lpt1:" For Output As 1
'abre cajón
Print #1, Chr$(&H1B); Chr$(&H70); Chr$(&H0); Chr$(60); Chr$(120);
'imprimir logo de la memoria impresora
Print #1, Chr$(28); Chr$(112); Chr$(1); Chr$(0); Chr$(48);
'imprime y avanza 3 líneas, para más líneas sustutir Chr$(&H3) por
Chr$(&HX) siendo X un valor númerico
Print #1, Chr$(&H1B); Chr$(&H64); Chr$(&H3);
'corta papel
Print #1, Chr$(29) + Chr$(86) + "0"
Close 1
DoEvents
Con este código, he probado con varias impresoras térmicas y funciona a la primera
Un saludo