طباعة كل صف في صفحة على حده

[ٌReham Muhammad]

انا عندي شيت اكسيل في 500 صف مثلا 

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

 

Book1.xlsx

[Ali Mohamed Ali]

اهلا بك فى المنتدى هناك عدة أكواد يمكنها عمل ذلك , عليك بإختيار الأنسب لك

Public Sub PrintOneLine()
    Dim rng As Range
   
    For Each rng In Range(Range("A5"), Cells(Rows.Count, "A").End(xlUp))
        With rng.Parent
        .PageSetup.PrintArea = rng.EntireRow.Address
        '.PrintOut        'remove the apostrophy
        .PrintPreview  'Add an appostrophy
        End With
    Next rng
End Sub

وثانى كود

Sub PrintOneLine()
Dim Rng As Range
Dim WorkRng As Range
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "Officena"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set xWs = WorkRng.Parent
For Each Rng In WorkRng
xWs.PageSetup.PrintArea = Rng.EntireRow.Address
xWs.PrintPreview
Next
End Sub

وهذا ثالث واخر كود

Sub Printseprete()
     Dim c As Range
     For Each c In ActiveSheet.Range("A5:A105")
     ActiveSheet.PageSetup.PrintArea = c.EntireRow.Address
     ActiveSheet.PrintOut
     Next c
    End Sub

 

Print.xlsm

[أحمد يوسف]

Reham Muhammad

أين الضغط على الإعجاب لكل هذه الإجابة الممتازة ؟!!!💙