طبع الصفحات التي تحتوي على بيانات

[alihgrvdad123]

السلام عليكم

ممكن التعديل على الكود

ليكون عند الضغط على زر طبع ( فقط طبع الصفحات التي تحتوي على بيانات ) حاليا يتم طبع الصفحات التي تحتوي على بيانات والتي لا تحتوي

المشكلة عندي عند الضغط على زر طباعة يتم طبع اوراق فارغة وبالتالي يصبح الأمر فيه هدر بالأوراق

طبع الصفحات التي تحتوي على بيانات.xlsx123.xlsm

[omar elhosseini]

المشكله هي اين هي الصفحات

حتي يمكن لأحد مساعدتك

[alihgrvdad123]

طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm

السلام عليكم - سبق وارفقت ملف بالمشاركة الاولى

[ابوبسمله]

اخى واستاذى عمر ابوتامر كل عام وانت بخير وحمدالله على السلامه ومتغبش عن اخوانك كتير وجزاك الله خيرا

الذى يقصده السائل انه الشيت الموجود الحالى عند الطباعه سوف يطبع 8 صفحات والمفروض يطبع صفحتان من معاينه فواصل الصفحات

بالتوفيق

[نزار سليمان عيد]

تحتاج لهذا الكود

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

[محمد حسن المحمد]

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

إخوتي الكرام: تم التحكم بحجم البيانات من خلال طريقة العمل التالية:

ثم وضع ذلك في الكود 

Sub طباعة()
ActiveWindow.SelectedSheets.PrintOut copies:=2
End Sub

__________________________________________________________________________________________________________________________________

أعتذر للأستاذ الكريم نزار سليمان عيد لم أشاهد مشاركته إلا بعد أن شاركت بها

وعلى كل هذا رافد ...والتنوع طيب ... بارك الله بكم 

تقبلوا مروري والسلام عليكم

طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm

[نزار سليمان عيد]

كل الاحترام استاذ محمد 

بالعكس اضافاتك مميزة وتضفي اثراء للمشاركات

كل عام وانتم بخير

[محمد حسن المحمد]

أشكر أخويّ الكريمين على هذه الكلمات الدافئة

بارك الله بكما وجعل ذلك بموازين حسناتكما.

فمن لم يشكر الناس لم يشكر الله.

والسلام عليكم

[omar elhosseini]

الاخ احمد الفلاحجي

شكرا لك اخي

 

[alihgrvdad123]

جزيت خيرا

تمام

تسلم