ابوالوفا سيد سليم قام بنشر نوفمبر 2, 2019 مشاركة قام بنشر نوفمبر 2, 2019 عندى ملف اكسل وعايز اعمل زر طباعة لطباعة الاوراق كلها انا عملت الكود دا بيطبع صفحة واحدة تم تعديل عنوان المشاركة- من فضلك اجعل عنوان المشاركة دائما وابدا دليل عما تطلب حتى لا تشتت الأساتذة وتهدر اوقاتهم ()طباعةSub Sheet1.Range("a1:g29").PrintPreview End Sub رابط هذا التعليق شارك More sharing options...
حسام مصطفي قام بنشر نوفمبر 2, 2019 مشاركة قام بنشر نوفمبر 2, 2019 السلام عليكم الاخ الكريم / ابو الوفا سيد سليم هذه اول مشاركة لك في منتدانا الرائع .. الجميع هنا اخوة في الله .. وبان شاء الله ماتحتاجه بالضبط ستجده هنا باذن اله مع الاساتذة والخبراء وباقي الاعضاء ... فاهلا ومرحبا بك بين اخوانك في هذا الصرح العملاق ==================== بالنسبه لطلبك : ( سيتم الشرح علي الكود الخاص بك حيث انه خاص بالمعاينه وليس الطباعه ) ؟؟؟؟؟ هل الاوراق التي تقصدها في شيت واحد أي ( صفحه 1 - صفحه 2 - صفحه 3 - .... الخ ) يكون الكود الكتالي ( بتغيير المدي المحدد من قبلكم في أكثر من سطر في الكود ) ( لطباعة أكثر من مدي في نفس الصفحة sub طباعة() Sheet1.Range("a1:g29").PrintPreview Sheet1.Range("a30:g60").PrintPreview Sheet1.Range("a61:g90").PrintPreview End sub اما اذا كانت اوراق عمل مختلفة يتم تغيير اسم الشيت في البداية ليكون الكود كالتالي sub طباعة() Sheet1.Range("a1:g29").PrintPreview Sheet2.Range("a1:g29").PrintPreview Sheet3.Range("a1:g29").PrintPreview End sub وكما اخبرت حضرتك بان الكود المرسل منك خاص بالمعاينه فان اردت تغييره للطباعه المباشرة قم بتغيير .PrintPreview الي .PrintOut ارجو ان اكون قد وفقت في تنفيذ طلبك واي توضيح الجميع هنا في خدمه بعضهم البعض 1 رابط هذا التعليق شارك More sharing options...
ابوالوفا سيد سليم قام بنشر نوفمبر 2, 2019 الكاتب مشاركة قام بنشر نوفمبر 2, 2019 شكرا بارك الله فيك انا كتب الكود دا علشان اعمل معاينه الاول ثم بعدها اطبع الشيت بتاعى عبارة عن ارقام جلوس وعايزهم بضغطه واحده تتم الطباعة للكل شكرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر نوفمبر 2, 2019 أفضل إجابة مشاركة قام بنشر نوفمبر 2, 2019 بعد اذن الاستاذ هذا الكود يطبع جميع الشيتات باستثناء شيت DATA ويمكنك تعديله حسب المدى المطلوب sub test 'كود طباعة جميع الشيتات dim ws as worksheet dim sh as worksheet: set sh = sheets("DATA") ' الشيت المستثنى من الطباعة Dim lr As Long For Each ws In Sheets lr = ws.Range("a" & Rows.Count).End(xlUp).Row If ws.Name = "DATA" Then GoTo 1 ' الشيت داتا سميه ما شئت ولك غيره في السطر الثاني و السادس ws.Range("a1:g" & lr).PrintOut 1: Next ws end sub 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان