كود طباعة الخلايا المليئة فقط فى شيت اكسيل

[ايمن لاشين]

اريد كود طباعة الخلايا المليئة فقط فى شيت اكسيل

انا جديد فى المنتدى ومش بعرف بسهولة اشارك 

عنوان مخالف ... تــم تعديل عنوان المشاركة ليعبر عن طلبك

[MAHMOUD ALI YOUSSEF]

Sub MyPrint()

'   ********************************************
'   *                                          *
'   *   جميع هذه الأكواد من تصميم فريق أوفيسنا   *
'   *                                          *
'   *   http://www.officena.com/ib/index.php   *
'   *                                          *
'   ********************************************

  Application.ScreenUpdating = False
  With Sheets("Sheet1")
    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
End Sub
 

تم تعديل يونيو 21, 2021 بواسطه MAHMOUD ALI YOUSSEF

[عبدالفتاح في بي اكسيل]

جرب  هذا   الكود  كبداية 

Sheets("Sheet1").Range("A1:d200").Printout