طلب ضرورى

[malak 2018]

محتاج ضرورى كود لطباعة الخلايا التى بها بيانات و عدم طباعة الخلايا الفارغة

محتاج ضرورى كود طباعة الخلايا التى بها بيانات و عدم طباعة الخلايا الفارغة

[Ali Mohamed Ali]

تفضل اخى طلبك فى هذا الرابط

 

[malak 2018]

شكرا اخى الكريم بس انا جربت الملف المرفق فى الموضوع بس لم ينجح

اليك الملف

انا عايز اطبع شيت " ملف نصف " و عايز لما اطبع اطبع الصفوف التى بها بيانات فقط15.rar

15.rar

[Ali Mohamed Ali]

يمكنك استخدام هذا الكود

Sub printter()
    Dim myrange
    Dim Rng, cell As Range
    Set myrange = Range("A600").End(xlUp)
    Set Rng = Range("A1:" & myrange.Address)
    For Each cell In Rng
        If cell = "" Then
            myrange = cell.Address
            MsgBox cell.Address
            ActiveSheet.PageSetup.PrintArea = "$A$1:P" & cell.Row
            ActiveSheet.PrintOut
            Exit Sub
        End If
    Next
     
End Sub

 

[malak 2018]

شكرا جزيلا اخى الكريم بس انا عملت الكود بس طبع كل الصفحات بما فيهم الصفحات الفارغة ايه الحل ؟

[Ali Mohamed Ali]

تفضل هذا الكود

Sub Macro5()

Range("A1:P600").Select
 'Criteria1:="<>"
Columns("A:P").Select
Range("A1").Activate
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
End Sub

 

[malak 2018]

نفس المشكلة بيطبع الخانات الفارغة ؟؟؟؟؟؟؟؟

[Hamdi Edlbi-khalf]

Sub Print_NonBlank_Rows()
'Updateby Extendoffice 20160704
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

طباعة نطاق دون الخلايا الفارغة

هذا طلبك على ما أعتقد 

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

[malak 2018]

شكرا جزيلا لحضرتك