اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by نزار سليمان عيد,

الردود الموصى بها

السلام عليكم

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

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

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

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

رابط هذا التعليق
شارك

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

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

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

image.png.dbdd682bfdf3ce6e13534b0159b1d450.png

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

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

__________________________________________________________________________________________________________________________________

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

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

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

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

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information