alihgrvdad123 قام بنشر أبريل 15, 2022 مشاركة قام بنشر أبريل 15, 2022 السلام عليكم ممكن التعديل على الكود ليكون عند الضغط على زر طبع ( فقط طبع الصفحات التي تحتوي على بيانات ) حاليا يتم طبع الصفحات التي تحتوي على بيانات والتي لا تحتوي المشكلة عندي عند الضغط على زر طباعة يتم طبع اوراق فارغة وبالتالي يصبح الأمر فيه هدر بالأوراق طبع الصفحات التي تحتوي على بيانات.xlsx123.xlsm رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر أبريل 16, 2022 مشاركة قام بنشر أبريل 16, 2022 المشكله هي اين هي الصفحات حتي يمكن لأحد مساعدتك رابط هذا التعليق شارك More sharing options...
alihgrvdad123 قام بنشر أبريل 16, 2022 الكاتب مشاركة قام بنشر أبريل 16, 2022 طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm السلام عليكم - سبق وارفقت ملف بالمشاركة الاولى رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر أبريل 16, 2022 مشاركة قام بنشر أبريل 16, 2022 اخى واستاذى عمر ابوتامر كل عام وانت بخير وحمدالله على السلامه ومتغبش عن اخوانك كتير وجزاك الله خيرا الذى يقصده السائل انه الشيت الموجود الحالى عند الطباعه سوف يطبع 8 صفحات والمفروض يطبع صفحتان من معاينه فواصل الصفحات بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة نزار سليمان عيد قام بنشر أبريل 16, 2022 أفضل إجابة مشاركة قام بنشر أبريل 16, 2022 تحتاج لهذا الكود Sub PrintA() 'prints rows of data, will not print rows if column A is blank Application.ScreenUpdating = False Range("A:A").EntireRow.Hidden = False Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("A:A").EntireRow.Hidden = False Application.ScreenUpdating = True End Sub او هذا الكود Sub PrintSummary() Dim myrange As String myrange = Cells(Rows.Count, 17).End(xlUp).Address ActiveSheet.PageSetup.PrintArea = "$A$1:" & myrange Application.Goto Reference:="R1C1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False End Sub فضلا انظر للمرفق طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm 2 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر أبريل 16, 2022 مشاركة قام بنشر أبريل 16, 2022 السلام عليكم ورحمة الله وبركاته إخوتي الكرام: تم التحكم بحجم البيانات من خلال طريقة العمل التالية: ثم وضع ذلك في الكود Sub طباعة() ActiveWindow.SelectedSheets.PrintOut copies:=2 End Sub __________________________________________________________________________________________________________________________________ أعتذر للأستاذ الكريم نزار سليمان عيد لم أشاهد مشاركته إلا بعد أن شاركت بها وعلى كل هذا رافد ...والتنوع طيب ... بارك الله بكم تقبلوا مروري والسلام عليكم طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm 3 رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر أبريل 16, 2022 مشاركة قام بنشر أبريل 16, 2022 كل الاحترام استاذ محمد بالعكس اضافاتك مميزة وتضفي اثراء للمشاركات كل عام وانتم بخير 3 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر أبريل 16, 2022 مشاركة قام بنشر أبريل 16, 2022 أشكر أخويّ الكريمين على هذه الكلمات الدافئة بارك الله بكما وجعل ذلك بموازين حسناتكما. فمن لم يشكر الناس لم يشكر الله. والسلام عليكم 2 رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر أبريل 16, 2022 مشاركة قام بنشر أبريل 16, 2022 الاخ احمد الفلاحجي شكرا لك اخي 1 رابط هذا التعليق شارك More sharing options...
alihgrvdad123 قام بنشر أبريل 16, 2022 الكاتب مشاركة قام بنشر أبريل 16, 2022 جزيت خيرا تمام تسلم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها