Pdf olarak kaydetme butonu yardım

[sosorry]

Selam,

Ekteki dosyada ay ay olarak yapılan imalatları buton ile pdf olarak nasıl yazdırabilirim? 11. ayda yapılan imalatlar için, 12. ayda yapılan imalatlar için vs.. yardım ederseniz sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    Application.ScreenUpdating = False
    On Error Resume Next
    yol = CreateObject("WScript.Shell").specialfolders("Desktop") & "\"
    With Sheets("Sayfa1")
        For i = 1 To 12
            If WorksheetFunction.CountIf(.Range("K:K"), i) > 0 Then
                If Not .AutoFilterMode Then
                    .Range("A1").AutoFilter
                Else
                    .ShowAllData
                End If
                a1 = i
                .Range("A1").AutoFilter Field:=11, Criteria1:=a1
                .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                yol & i & ".pdf", Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                False
            End If
        Next i
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
End Sub

. . .