إضافة رسالة تأكيد قبل الطباعة

[عفرنس]

أريد طريقة اضافة رسالة تأكيد الطباعة في زر أمر الطباعة . 

[vidan]

جرب هذا الكود أنا أستعمله وماش الحال

Private Sub CommandButton1_Click()     'هذا زر الطباعة
ActiveWindow.SelectedSheets.PrintPreview
a = MsgBox("هل تريد تكملة الطباعة", vbYesNo + vbQuestion, "طباعة")
If a = vbYes Then
With ActiveSheet
.PrintOut
End With
End If
Range("A1").Activate
End Sub

عفواً أخي emam

لم أنتبه أنك تعمل على اكسس

الكود الذي ارسلته أنا اعمل على اكسل فيه

عفواً

[عفرنس]

19 دقائق مضت, vidan said:

جرب هذا الكود أنا أستعمله وماش الحال

Private Sub CommandButton1_Click()     'هذا زر الطباعة
ActiveWindow.SelectedSheets.PrintPreview
a = MsgBox("هل تريد تكملة الطباعة", vbYesNo + vbQuestion, "طباعة")
If a = vbYes Then
With ActiveSheet
.PrintOut
End With
End If
Range("A1").Activate
End Sub

عفواً أخي emam

لم أنتبه أنك تعمل على اكسس

الكود الذي ارسلته أنا اعمل على اكسل فيه

عفواً

شكرا لك ..

صحيح اعمل على اكسس .

لكن .. هل هذا الكود ما بيعمل على اكسس

[vidan]

التجربة خير برهانولكن هناك تغيير أكيد باسم اشيت فالكسس لا يتعامل مع الشيت على حد علمي! والله اعلم الإخوان هم أساتذة اما أنا اخوك فمبتدأ ونتعلم منهم إن شاء الله

[عفرنس]

منذ ساعه, vidan said:

التجربة خير برهانولكن هناك تغيير أكيد باسم اشيت فالكسس لا يتعامل مع الشيت على حد علمي! والله اعلم الإخوان هم أساتذة اما أنا اخوك فمبتدأ ونتعلم منهم إن شاء الله

شكرا لك وفي انتظار الاحبة 

[Barna]

منذ ساعه, emam1424 said:

شكرا لك وفي انتظار الاحبة 

If MsgBox("هل تريد طباعة التقرير؟", _
    vbQuestion + vbYesNo, _
    "طباعة") = vbYes Then
    DoCmd.OpenReport "barna"
    End If

 

[عفرنس]

9 دقائق مضت, Barna said:

If MsgBox("هل تريد طباعة التقرير؟", _
    vbQuestion + vbYesNo, _
    "طباعة") = vbYes Then
    DoCmd.OpenReport "barna"
    End If

 

وفقك الله تم المطلوب بنجاح

[Barna]

بالتوفيق ...