PDF Kaydederken "Fit Sheet On One Page"

[winstoncash]

Herkese merhaba,

Çalışma sayfasını PDF olarak kaydeden bir makro oluşturdum. Kod yazarak değil de makro kaydet olayı ile. Benim istediğim ise yazdırma seçeneklerindeki "fit sheet on one page" seçeneğini PDF Kaydederken uygulamak. Bunu yapabilir miyim. Bir de kaydedilen dosyanın isminin çalışma kitabını içermesini istiyorum. Örneğin çalışma kitabının adı Mustafa ise kaydedilen dosya ismi PROFORMA FATURA-Mustafa-11.03.2022 olsun. Hatta mümkünse sondaki tarihi de çalışma sayfasındaki bir hücreden alsın istiyorum. Çok şey istedim sanırım ama işimi ciddi derecede kolaylaştıracak. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[EmrExcel16]

Merhaba deneyiniz..

Tarihi A1 hücresinden alır siz istediğiniz gibi değiştirebilirsiniz.

Sub Pdf_Kaydet()
    Dim Syf, Dsy, Yol
    Set Syf = ActiveSheet
    Dsy = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
    Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "PROFORMA FATURA-" & Dsy & "-" & [A1]
    Syf.PageSetup.Zoom = False: Syf.PageSetup.FitToPagesWide = 1
    Syf.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol
    ThisWorkbook.FollowHyperlink Yol & ".Pdf"
End Sub

 

[winstoncash]

Tamamdır, tam istediğim gibi oldu. Çok teşekkür ederim.

 

[winstoncash]

Son olarak, kaydetme işlemi sonrası kaydedilen dosyanın açılmasını ekleyebilir miyiz

 

[EmrExcel16]

#2 nolu mesajdaki kodları güncelledim.