كود طباعة لايعمل

[ناصر سعيد]

عندما اردت معاينه تظهر رساله هل تود الطباعه ام لا

ومع هذا قبل ان اضغط موافق تتم الطباعه

اريد ربط المعاينه بالطباعه

Sub معاينه_جلوس()
ActiveWindow.SelectedSheets.PrintPreview
A = MsgBox("هل تود طباعة الشهادة التي عاينتها؟", vbYesNo + vbQuestion, "طباعة")
If A = vbYes Then
With ActiveSheet
.PrintOut
End With
End If
Range("A1").Activate
End Sub

معذره تم التفعيل

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

تم تعديل يناير 30, 2013 بواسطه nasersaeed

[حمادة عمر]

السلام عليكم

الاخ الكريم / nasersaeed

 

تم تجربة الكود والكود يعمل بشكل صحيح لدي

 

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم

 

اعتذر لأني لم اري كلماتك الموجودة تحت الكود

والتي تفيد بأنه تم التفعيل الا بعد ارسال المشاركة بقليل

 

جزاك الله خيرا