Yukarı
Kodlattır

Excel Vba Tüm Sayfaları Ayrı Ayrı PDF yapma

Excel Vba Tüm Sayfaları Ayrı Ayrı PDF yapma

Excel Vba Tüm Sayfaları Ayrı Ayrı PDF yapma

Sub PdfveXlsKaydet()
    'tüm sayfaları ayrı ayrı pdf yapma
targetaddr = ""
targetaddr = InputBox("PDF Kayıt Klasörü.", "Kayıt Klasör Adı")
If targetaddr = "" Then GoTo ENDE
sayfas = Application.Sheets.Count
    For i = 1 To sayfas
        Sheets(i).Select
        With Sheets(i).PageSetup
            .LeftMargin = Application.InchesToPoints(0)
            .RightMargin = Application.InchesToPoints(0)
            .TopMargin = Application.InchesToPoints(0)
            .BottomMargin = Application.InchesToPoints(0)
            .HeaderMargin = Application.InchesToPoints(0)
            .FooterMargin = Application.InchesToPoints(0)
            '.Orientation = xlLandscape
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        
        
        DosyaAdi = Sheets(i).Range("E24") & " - " & Sheets(i).Range("K24")
    
        With Sheets(i)
            Range("A1:L45").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=targetaddr & "" & DosyaAdi & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        End With
       
    Next
    
ENDE:
End Sub

Yakında Yapılacak...