تعين طباعة ومعاينة اوراق متعدده

[ناصرالمصرى]

السلام عليكم ورحمنه الله وبركاته

نشكر جميع الاخوة الافاضل عما يقدمه ابتغاء مرضاة الله

المطلوب بإذن الله تعالى موضح من داخل المرفق

شاكر فضل الجميع

تعين طباعة ومعاينة اوراق متعدده.rar

[ناصرالمصرى]

للرفع

[ياسر العربى]

تفضل اخي ناصر لعله المطلوب

وان لم يكن يرجى الايضاح اكثر

تعين طباعة ومعاينة اوراق متعدده.rar

[ناصرالمصرى]

احلى صباح ياأبو العربى

أشتقت اليك أخى الحبيب وأكيد الكتالوج وحشك

معلشى انا بتعلم شاهد هذا الكود " معاينه مع الطباعة "

هل هذا الكود يعمل على جميع الصفحات المحددة دون غيرها  أم هناك تعديلا أخر 

Sub ãÚÇíäÉ_ãÚ_ÇáØÈÇÚÉ()
ActiveWindow.SelectedSheets.PrintPreview
A = MsgBox("هل تود الطباعة بعد المعاينه", vbYesNo + vbQuestion, "طبعا أكيد هطبع ولا هو لعب عيال")
If A = vbYes Then
With ActiveSheet
.PrintOut
End With
End If
Range("A1").Activate
End Sub

وافر تقديرى واحترامى

تم تعديل فبراير 11, 2016 بواسطه ناصر المصرى

[ياسر العربى]

صباح الفل ياريس الغيبة طالت فينك 

انت اللي ليك وحشة وحشة يعني 

الكود دا يطبع اللي انت هتحدده من الشيتات بنفسك يعني لو حددت شيتين هيطبعهم تلاته هطبعهم  وهكذا

دا في المعاينة اما الطباعة هيطبع الشيت النشط فقط لانك حددت الاكتف شيت بس

اما التعديلات فتفضل

Sub yasser()
   Sheets(Array("ورقة2", "ورقة6", "ورقة11", "ورقة12", "ورقة14", "ورقة15", "ورقة16")). _
   PrintOut Copies:=1, Preview:=True
   A = MsgBox("هل تريد الطباعة", vbYesNo + vbQuestion, "طباعة مجموعة اوراق")
If A = vbYes Then
With Sheets(Array("ورقة2", "ورقة6", "ورقة11", "ورقة12", "ورقة14", "ورقة15", "ورقة16")). _
PrintOut
End With
End If
Range("A1").Activate
End Sub

 

[ناصرالمصرى]

ياحبيب قلبى الله يكرم أصلك ويبارك فيك

والله حضرتك اللى ليك وحشه " حلوة "

طيب ياريت كمان طلب بخصوص طباعة تقرير

اريد كود لعمل تقرير من تاريخ كذا الى تاريخ كذا

وليكن لديك شيت يحتوى على المشتريات والمبيعات فى شيت واحد

كيف يمكن عمل ذلك فى حالة لو تريد طباعة تقرير بالمشتريات فقط والعكس أو الاثنين معا

حضرتك بس قولى وانا هنفذ على باقى شيتات التقارير يعنى مثال من عندك

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

 

[ياسر العربى]

اعمل المثال يامعلم ونشوف

ويكون فيه توضيح توضيح يعني

الواحد الكتالوج بتاعك وقع منه من فترة

 

[ابن الملك]

10 ساعات مضت, ياسر العربى said:

صباح الفل ياريس الغيبة طالت فينك 

انت اللي ليك وحشة وحشة يعني 

الكود دا يطبع اللي انت هتحدده من الشيتات بنفسك يعني لو حددت شيتين هيطبعهم تلاته هطبعهم  وهكذا

دا في المعاينة اما الطباعة هيطبع الشيت النشط فقط لانك حددت الاكتف شيت بس

اما التعديلات فتفضل

Sub yasser()
   Sheets(Array("ورقة2", "ورقة6", "ورقة11", "ورقة12", "ورقة14", "ورقة15", "ورقة16")). _
   PrintOut Copies:=1, Preview:=True
   A = MsgBox("هل تريد الطباعة", vbYesNo + vbQuestion, "طباعة مجموعة اوراق")
If A = vbYes Then
With Sheets(Array("ورقة2", "ورقة6", "ورقة11", "ورقة12", "ورقة14", "ورقة15", "ورقة16")). _
PrintOut
End With
End If
Range("A1").Activate
End Sub

 

 

استاذى الفاضل ياسر العربى 

أرق التحيات لحضرتك 

ممكن أستأذن حضرتك فى سؤال 

ما معنى الكلمة دى

Sheets(Array("ورقة2", "ورقة6", "ورقة11", "ورقة12", "ورقة14", "ورقة15", "ورقة16")). _

 

يعنى ايه Array 

وبتستخدم فى ايه ؟؟؟

 

وشكرا

 

[ياسر خليل أبو البراء]

أخي الكريم كلمة Array تعني مصفوفة ودي بتستخدم هنا لعمل تجميعة لأوراق العمل المطلوب العمل عليها فقط ..ممكن تقول حاجة بتلم المجموعة كلها بحيث تقدر تنفذ أمر واحد على المجموعة كلها مرة واحدة

الشكر موصول لأخي الحبيب ياسر العربي على مساهماته الرائعة

تقبل تحياتي