عفرنس قام بنشر فبراير 28, 2020 مشاركة قام بنشر فبراير 28, 2020 أريد طريقة اضافة رسالة تأكيد الطباعة في زر أمر الطباعة . رابط هذا التعليق شارك More sharing options...
vidan قام بنشر فبراير 28, 2020 مشاركة قام بنشر فبراير 28, 2020 جرب هذا الكود أنا أستعمله وماش الحال 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 لم أنتبه أنك تعمل على اكسس الكود الذي ارسلته أنا اعمل على اكسل فيه عفواً رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر فبراير 28, 2020 الكاتب مشاركة قام بنشر فبراير 28, 2020 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 لم أنتبه أنك تعمل على اكسس الكود الذي ارسلته أنا اعمل على اكسل فيه عفواً شكرا لك .. صحيح اعمل على اكسس . لكن .. هل هذا الكود ما بيعمل على اكسس رابط هذا التعليق شارك More sharing options...
vidan قام بنشر فبراير 28, 2020 مشاركة قام بنشر فبراير 28, 2020 التجربة خير برهانولكن هناك تغيير أكيد باسم اشيت فالكسس لا يتعامل مع الشيت على حد علمي! والله اعلم الإخوان هم أساتذة اما أنا اخوك فمبتدأ ونتعلم منهم إن شاء الله رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر فبراير 28, 2020 الكاتب مشاركة قام بنشر فبراير 28, 2020 منذ ساعه, vidan said: التجربة خير برهانولكن هناك تغيير أكيد باسم اشيت فالكسس لا يتعامل مع الشيت على حد علمي! والله اعلم الإخوان هم أساتذة اما أنا اخوك فمبتدأ ونتعلم منهم إن شاء الله شكرا لك وفي انتظار الاحبة رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر فبراير 28, 2020 أفضل إجابة مشاركة قام بنشر فبراير 28, 2020 منذ ساعه, emam1424 said: شكرا لك وفي انتظار الاحبة If MsgBox("هل تريد طباعة التقرير؟", _ vbQuestion + vbYesNo, _ "طباعة") = vbYes Then DoCmd.OpenReport "barna" End If 2 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر فبراير 28, 2020 الكاتب مشاركة قام بنشر فبراير 28, 2020 9 دقائق مضت, Barna said: If MsgBox("هل تريد طباعة التقرير؟", _ vbQuestion + vbYesNo, _ "طباعة") = vbYes Then DoCmd.OpenReport "barna" End If وفقك الله تم المطلوب بنجاح رابط هذا التعليق شارك More sharing options...
Barna قام بنشر فبراير 28, 2020 مشاركة قام بنشر فبراير 28, 2020 بالتوفيق ... 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.