PDF olarak kaydetmek

[power468]

Aşağıdaki kodla sayfayı yazdırıyorum. Yazdırma butonuna bastığımda aynı zamanda belirleyeceğim bir klasöre PDF olarak kayıt yapmasını istiyorum. Yardımcı olursanız sevinirim.

Private Sub CommandButton21_Click()
If Application.Visible = False Then
Application.Visible = True
CommandButton21.Caption = "Exceli Gizle"
ElseIf Application.Visible = True Then
Application.Visible = False
CommandButton21.Caption = "Exceli Göster"
End If

ActiveWorkbook.Worksheets("FAALİYET RAPORU").Select

Worksheets("FAALİYET RAPORU").Activate
Sheets("FAALİYET RAPORU").PageSetup.PrintArea = "A1. A26 : W1. W26"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub

 

[okan32]

• klasorYolu değişkenine PDF dosyasının kaydedileceği klasör yolunu girin. Örneğin, "C:\Users\YourUsername\Desktop\" gibi.
• dosyaYolu değişkenine, kaydedilecek PDF dosyasının tam yolunu ve adını girin.

Private Sub CommandButton21_Click()
        If Application.Visible = False Then
        Application.Visible = True
        CommandButton21.Caption = "Exceli Gizle"
    ElseIf Application.Visible = True Then
        Application.Visible = False
        CommandButton21.Caption = "Exceli Göster"
    End If

        ActiveWorkbook.Worksheets("FAALİYET RAPORU").Select
    Worksheets("FAALİYET RAPORU").Activate
    
    Sheets("FAALİYET RAPORU").PageSetup.PrintArea = "A1:W26"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

    Dim dosyaYolu As String
    Dim klasorYolu As String

    klasorYolu = "C:\YourFolderPath\" ' PDF dosyasının kaydedileceği klasör yolunu buraya girin
    dosyaYolu = klasorYolu & "FAALİYET_RAPORU_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".pdf"
    
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaYolu, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    MsgBox "Sayfa başarıyla yazdırıldı ve PDF olarak kaydedildi!"
End Sub