herhangi bir sayfayı pdf olarak kaydetme

[Turgay1983XX]

merhaba
arkadaşlar
bir çok platformda araştırmama rağmen hala bulamadım. benim yapmak isedediğim belirli bir sayfayı pdf olarak a5 boyutunda kaydetmek. ama ne yaptıysam olmadı.
ekte dosyamı ekldim. bir çok form var ama yapılmak istenilen Frm_SatisFaturaListesi formuna çift tıklatıldığında fatura açılıyor



faturanın üstüne çift tıkladığında satış faturası ekranı geliyor aşağıda yazdır deyin ce a5 boyutunda pdf olarak kaydetmesi. daha sonra bunları çıktı olarak alacağım

 

[md3m1ray]

sub pdf bu şekilde dener misiniz:

Sub Pdf()
    Dim FileName As String
    Dim FilePath As String
    Dim FolderName As String

    FilePath = ThisWorkbook.Path & "\Raporlar"
    FileName = Yazici.Range("K6").Value
    FolderName = VBA.Dir(FilePath, vbDirectory)

    If FolderName = vbNullString Then VBA.FileSystem.MkDir (FilePath)
       
    With Yazici.PageSetup
        .PaperSize = xlPaperA5
        .Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    Yazici.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FilePath & "\" & FileName & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[Turgay1983XX]

sub pdf bu şekilde dener misiniz:

Sub Pdf()
    Dim FileName As String
    Dim FilePath As String
    Dim FolderName As String

    FilePath = ThisWorkbook.Path & "\Raporlar"
    FileName = Yazici.Range("K6").Value
    FolderName = VBA.Dir(FilePath, vbDirectory)

    If FolderName = vbNullString Then VBA.FileSystem.MkDir (FilePath)
      
    With Yazici.PageSetup
        .PaperSize = xlPaperA5
        .Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    Yazici.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FilePath & "\" & FileName & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Elinize sağlık çok güzel olmuş.

 

[md3m1ray]

Rica ederim iyi çalışmalar