جرب هذا الكود .... علما انني لم اجربه ... لعدم توفر جهاز كاشير لدي ؟؟؟؟؟؟
'USB ارسال البيانات الى منفذ الـ
On Error GoTo ErrHandler
Open "USB002" For Output As #1
Print #1, Chr$(27); Chr$(112); Chr$(0)
Close #1
MsgBox "درج الصندوق مفتوح الآن", vbMsgBoxRight, "مبروك"
OpenCash_Drawer_Exit:
On Error GoTo 0
Exit Function
ErrHandler:
MsgBox "معذرة يوجد هناك خطأ", vbMsgBoxRight, "خطأ"
GoTo OpenCash_Drawer_Exit