Filtreye göre yazdırma

[Ahmet ÖZGÜR]

Merhaba bir excelim var bazen 150 satır bazen 300 satır geliyor.
sütunları filtreliyorum ve a sütunundaki D1 i seçip yazdııryorum sonra D2 yi seçip yazdırıyorum bu işlemi başka nasıl yapabilirim bunu bir makro çözer mi?

 

[hamitcan]

Yazdırmak için ActiveSheet.PrintPreview yerine ActiveSheet.Printout komutunu kullanınız.

Sub Makro1()
    x = [a65536].End(3).Row
    On Error Resume Next
        ActiveSheet.ShowAllData

    For i = x To 2 Step -1
        If WorksheetFunction.CountIf(Range("a2:a" & i), Cells(i, 1)) = 1 Then
        
         ActiveSheet.Range("$A$1:$G$" & x).AutoFilter Field:=1, Criteria1:=Cells(i, 1)
         ActiveSheet.PrintPreview 'ActiveSheet.Printout

        End If
        
    Next
End Sub

 

[Ahmet ÖZGÜR]

Hamitcan bey, tam istediğim gibi oldu teşekkür ederim. Yazdırmaya başlayınca iş bitene kadar kendine karıştırtmıyor.

 

[Necdet]

Merhaba,
Hamitcan'ın kodlarının düzgün çalışması için verilerin sıralı olmasına dikkat etmek gerek.

 

[Ahmet ÖZGÜR]

Necdet bey, a sütununu sıralamam yeterli olacaktır sanırım. Bilgilendirmeniz için de teşekkür ederim