Farklı sayfaları tek pdf dosyasına çevirme

[sedat2161]

Hayırlı günler arkadaşlar. Ekli dosyamda 2 adet sayfam var bunları eklediğim buton ile tek pdf dosyası yapıp masaüstüne kaydedebilir miyiz. Yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub CommandButton1_Click()

    Dim S1 As Worksheet, S2 As Worksheet, yol As String, deg1 As String, deg2 As String
   
    Set S1 = Sheets("KDV1-ÖNYÜZ")
    Set S2 = Sheets("KDV1-ARKAYÜZ")

    Application.ScreenUpdating = False
    yol = ThisWorkbook.Path
    deg1 = "KDV1_On_" & Format(Now, "dd-mm-yyyy hh-mm-ss")
    deg2 = "KDV1_Arka_" & Format(Now, "dd-mm-yyyy hh-mm-ss")

    ChDir yol
    S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\" & deg1 & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
       
    S2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\" & deg2 & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
   
    MsgBox "Pdf Olarak Kaydedildi.", vbInformation
   
End Sub

 

[sedat2161]

Merhaba,

Deneyiniz.

Private Sub CommandButton1_Click()

    Dim S1 As Worksheet, S2 As Worksheet, yol As String, deg1 As String, deg2 As String
  
    Set S1 = Sheets("KDV1-ÖNYÜZ")
    Set S2 = Sheets("KDV1-ARKAYÜZ")

    Application.ScreenUpdating = False
    yol = ThisWorkbook.Path
    deg1 = "KDV1_On_" & Format(Now, "dd-mm-yyyy hh-mm-ss")
    deg2 = "KDV1_Arka_" & Format(Now, "dd-mm-yyyy hh-mm-ss")

    ChDir yol
    S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\" & deg1 & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
      
    S2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\" & deg2 & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
  
    MsgBox "Pdf Olarak Kaydedildi.", vbInformation
  
End Sub

Hocam ilginiz için çok teşekkür ederim. Kodu denedim sayfaları farklı sayfalar halinde kaydetti. Her iki sayfanın tek pdf dosyasına kaydedilmesi mümkün değil mi acaba. Yardımlarınızı bekliyorum. İyi çalışmalar

 

[Ömer]

Deneyiniz.

Private Sub CommandButton1_Click()

    Dim syf(), yol As String, deg As String
 
    syf = Array("KDV1-ÖNYÜZ", "KDV1-ARKAYÜZ")

    Application.ScreenUpdating = False
    yol = ThisWorkbook.Path
    deg = "KDV1_On_Arka_" & Format(Now, "dd-mm-yyyy hh-mm-ss")
    
    Sheets(syf).Select
    ChDir yol
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\" & deg & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
    
    Sheets("KDV1-ÖNYÜZ").Select
    MsgBox "Pdf Olarak Kaydedildi.", vbInformation
    
End Sub

 

[sedat2161]

Deneyiniz.

Private Sub CommandButton1_Click()

    Dim syf(), yol As String, deg As String

    syf = Array("KDV1-ÖNYÜZ", "KDV1-ARKAYÜZ")

    Application.ScreenUpdating = False
    yol = ThisWorkbook.Path
    deg = "KDV1_On_Arka_" & Format(Now, "dd-mm-yyyy hh-mm-ss")
   
    Sheets(syf).Select
    ChDir yol
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        yol & "\" & deg & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
   
    Sheets("KDV1-ÖNYÜZ").Select
    MsgBox "Pdf Olarak Kaydedildi.", vbInformation
   
End Sub

Hocam çok teşekkür ederim emeğinize sağlık.