Καλησπέρα
Στο πιο κάτω τμήμα κώδικα εκτυπώνω στον εκτυπωτή αλλά
μετά το τέλος της εκτύπωσης δεν κάνει Form Feed με αποτέλεσμα να μην μπορώ να κόψω το χαρτί.
Private sub PrintL()
Open "Lpt1" For Output As #1
Print #1, Chr(27) & "@" 'Initialize printer
Print #1, Chr(27) & "A" & Chr(11)
Print #1, Chr(27) & "E" 'Set Font Bold
Print #1, "Printer is Bold"
Print #1, "Printer is Bold"
Print #1, Chr(27) & "F" ' Set Font Normal
Print #1, "Printer is Normal"
Print #1, "Printer is Normal"
Print #1, Chr(12)
Print #1, Chr(27) & "L"
Close #1
End Sub
Εάν κάνω μέσα από τον κώδικα LineFeed που έναι μια λύση τότε ο εκτυπωτής θα αρχίσει την επόμενη εκτύπωση από το σημείο του τελευταίου LineFeed.
Έχετε καμιά ιδέα πιο είναι το Escape character που πρέπει να χρησιμοποιήσω για να κάνω initialize τον Εκτυπωτή.
Ευχαριστώ θερμά