Excel Makro PDF Olarak Kaydet

Excel dosyanızdan PDF üretiyorsanız, Dosya – Yazdır – PDF veya Dosya – Farklı Kaydet – PDF yerine bu makroyu kullanabilirsiniz. Makro’yu Hızlı erişim araç çubuğuna kısayol olarak ekleyebilirsiniz veya klavye kısayolu atayabilirsiniz. Böylece daha hızlı PDF kaydedersiniz.


Sub pdfkaydet()
Application.ScreenUpdating = False
sat = 1
Dosya = Application.GetSaveAsFilename(filefilter:="Pdf dosyaları,*.pdf", Title:="Pdf dosyaları")
If Dosya = False Then Exit Sub
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya
Application.ScreenUpdating = True
End Sub

Kaynak: Exvelvba.net

Tavsiye: Personal.xlsb’ye yeni modül olarak eklemek.

Alternatif: Dosya ismi verme diyaloğunu atlayıp masa üstüne belli bir isimle kaydetmek için;

Sub pdfkaydetdesktop()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
filename:=ThisWorkbook.path & "\KayıtPDF.pdf"
End Sub

Bir cevap yazın

This site uses Akismet to reduce spam. Learn how your comment data is processed.