مفاتيح الإختصار وأزرار الأوامر

أولا وقبل كل شيئ أعمل الآتي

من خلال خصائص النموذج (حدث) إذهب إلى (مفتاح العرض التمهيدي) وجعل خاصيته (نعم) ثم إذهب إلى (عند مفتاح للأسفل) واستخدم الكود هذا

الرقم 116 في الكود يمثل الزر F5

If KeyCode = 116 And Shift = 0 Then 

Dim arbname, prdname, sp, prnp As String
Dim grtot, itmtot, itmqty, itmprc As Double
Dim i As Integer
Set rs = Me.Recordset.Clone
prnp = "lpt1"
Open prnp For Output As 1
'     Print #1, "AlSwaida Bakery"
'     Print #1, "Cash Memo"
'     Print #1, Chr(27) + "!0"
     Print #1, "Item                  Qty  Price  Amount"

If rs.EOF = False Then
 While Not rs.EOF
'arbname = ConvertCode(rs!ProductName, "WINDOWS", "IBM")
  prdname = Trim(rs!ProductName)
    If Len(prdname) < 20 Then
    For i = 1 To 20 - Len(prdname)
    sp = sp & " "
    Next i
    prdname = prdname & sp
    Else
    prdname = Left(prdname, 20)
    End If
    
    itmtot = Trim(rs!SQty) * Trim(rs!SalesPrice)
    itmqty = Format(Trim(rs!SQty), "@@@@")
    itmprc = Format(Trim(rs!SalesPrice), "@@@@@@")
    Print #1, prdname & " " & itmqty & "  " & itmprc & "   " & itmtot
    
   grtot = grtot + rs!TValue
   sp = ""
   rs.MoveNext
 Wend
    Print #1, "Grand Total :                  " & Format(grtot, "000000.00")
    Print #1, Chr(10) & Chr(10)
    Print #1, "Thank You Come Again"
    Print #1, Chr(10) & Chr(10) & Chr(10)
    
    Print #1, Chr(27) + "i"
'     Print #1, Chr(27) + "!5"
     Print #1, "AlSwaida Bakery"
     Print #1, "Cash Memo"
    Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(50) + Chr(250)
    Close #1
End If

End If

جرب وأخبرني

تحياتي

الأخ العزيز فهد الدوسري

تحياتي وتقديري ، وكما عهدناك سباقا في ردودك ، وموفقا في حلولك ، فالله أسأل أن يجعلك من السابقين في الدنيا والأخرة ، موفقا إلى الخير دوما.

أخوك يوسف

السلام عليكم

عزيزي الهيثم

ملحوظة بسيطة :

يمكنك بدلا من كتابة الاجراء (الاوامر البرمجية) مرة اخرى كما فعل استاذنا فهد الدوسري

ان تستعيض بكتابة اسم الكائن والحدث ليذهب بشكل تلقائي الى الاجراء المكتوب تحت هذا الحدث

وللتوضيح اكثر :

If KeyCode = 116 And Shift = 0 Then
 Command7_Click
End If

فهذا يعني انه عند الضغط على F5 فانه سينفذ الاجراء المكتوب تحت زر command7 وفي حدث click

اتمنى ان تكون الفكرة قد وصلت

مع تحياتي

أخي يوسف : هذا واجبنا لنرد بعض ما تعلمناه من المنتدى

أخي أهم واحد : شكرا على المشاركة والمعلومة المفيدة