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

[عفرنس]

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

[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

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

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

عفواً

[عفرنس]

  في 28‏/2‏/2020 at 07:10, 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

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

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

عفواً

Expand  

شكرا لك ..

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

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

[vidan]

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

[عفرنس]

  في 28‏/2‏/2020 at 08:20, vidan said:

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

Expand  

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

[Barna]

  في 28‏/2‏/2020 at 09:29, emam1424 said:

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

Expand  

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

 

[عفرنس]

  في 28‏/2‏/2020 at 10:43, Barna said:

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

 

Expand  

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

[Barna]

بالتوفيق ...