Ho provato printer.sendkeys ma da errore "impossibile trovare il metodo o membro dei dati" e si, nel manuale è scritto "release paper: ESC q" ok ora ho provato solamente sendkeys "esc q" e mi va in un ciclo continuo di stampa ora metto il codice:

Private Sub Command1_Click()


Printer.FontName = "times new roman"
Printer.FontBold = True
Printer.FontSize = 14
Printer.ScaleMode = 7
Printer.CurrentY = 5.45
Printer.CurrentX = 0.5
Printer.Print "ENTRATA"

Printer.CurrentY = Printer.CurrentY + 0.45
Printer.CurrentX = 0.5
Printer.Print "DATA " & Text1.Text & " ORA " & Text2.Text


Printer.CurrentY = Printer.CurrentY + 0.45
Printer.CurrentX = 0.5
Printer.Print "ORA"


Printer.EndDoc
sendkeys "esc q"