مطلوب كود طباعة لزر فى شاشة الادخال

[أستيكا]

الاخوة الاعزاء بالمنتدى الموقر اطلب منكم كود طباعة عن طريق زر طباعة من شاشة ادخال

و اشكركم و جزاكم الله خيرا

[عبدالله باقشير]

السلام عليكم

اذا كنت تقصد بشاشة الادخال فورم

طباعة سندات من فورم

بتجديد عدد النسخ المطلوبة

واخفاء الزرارات من الفورم اثناء الطباعة

Private Sub CommandButton3_Click()

On Error Resume Next

Dim Kh_Count As Integer

Dim Kh_Comm As Integer


If MsgBox("هل تريد طباعة السند رقم " & Combo_NO.Value, vbYesNo + vbQuestion + vbMsgBoxRight, "تأكيد طباعة ") = vbYes Then

    Kh_Count = InputBox("فضلاً  أدخل  عدد نسخ الاوراق الذي تريدها  " & Chr(13) & Chr(13) & "الافتراضي نسخة واحدة", "عدد النسخ", "1")

   '==================================

    'اخفاء الزرارات من السند اثناء الطباعة

    For Kh_Comm = 1 To 3

        Me.Controls("CommandButton" & Kh_Comm).Visible = False

    Next Kh_Comm

   '==================================

    Me.Hide

   '==================================

   'عدد النسخ المطلوبة

    Do Until Kh_Count = 0

        Me.PrintForm

        Kh_Count = Kh_Count - 1

    Loop

   '==================================

End If

End

On Error GoTo 0


End Sub

تفضل المرفق

طباعة فورم.rar

[أستيكا]

ليس غريبا على عملاق مثلك معلمنا خبور ان يرد و يجيب على أى سؤال مهما كان بارك الله لك و اطعمك من الفردوس و زادك علما و نورا

أخوك استيكا