طباعة الخلايا المملوئة فقط

[بلال منذر]

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

محتاج كود  عند طباعة الشيت يطبع فقط خلايا الجدول المملؤة .

المرفق به المطلوب وشكرا

tableau.xlsx

[Ali Mohamed Ali]

تفضل اخى الكريم

 

tableau.xlsm

[سليم حاصبيا]

   جرب هذا الكود 

 F34   to  A1 تحديد مدى الطباعة من 

في الكود الاول يجب ازالة كلمة Rem من أمام السطر الذي تريده لاننا امام خيارين (معاينة قبل الطباعة Print Preivew  او طباعة رأساً  Print)    

Option Explicit
Sub Button1_Click()
PRint_erea
'اختر هنا السطر الذي تريده
'   من امامه Rem و ذلك بازالة كلمة
Rem ActiveSheet.PrintPreview
Rem ActiveSheet.Print
End Sub
'======================================
Sub PRint_erea()
Range("E14:E37").EntireRow.Hidden = False
Range("E14:E37").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
'=====================================
Sub SHOW_ROWS()
Range("E14:E37").EntireRow.Hidden = False
End Sub

الملف مرفق

 

Print_tableau.xls

[Ali Mohamed Ali]

جزاك الله كل خير أستاذ سليم كود رائع بارك الله فيك

وهذا كود اخر لإثراء الموضوع

Sub MyPrint2()
ActiveSheet.Unprotect Password:="123"
  Application.ScreenUpdating = False
  With Sheets("Print")
    With .UsedRange
      For i = 1 To .Rows.Count
        If .Cells(i, 1).Value = "" Then
          .Cells(i, 1).EntireRow.Hidden = True
        End If
      Next i
    End With
    .PrintOut
    .Rows.Hidden = False
  End With
   Application.ScreenUpdating = True
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[بلال منذر]

الحمد والشكر لله على وجود اناس رائعين مثلكم لايترددون في تقديم يد العون لاي شخص

بارك الله فيكم  أساتذنا ali mohamed ali وأستاذنا سليم حاصبيا .