PDF Olarak Yazdırmak ve Otomatik Dosya Adı ile Kaydetmek için Excel VBA

Hugh West

27-05-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

İhracat yapmanın faydaları vardır Excel elektronik tablo olarak PDF Dosyayı PDF formatına dönüştürerek, yazdırabilir ve çeşitli profesyonel bağlantılarla paylaşabiliriz. PDF'ler, başkalarıyla paylaşma veya duyurma ihtiyacı hissettiğiniz belgeleri dışa aktarmak için güvenilir bir standarttır. Bu makalede, PDF olarak yazdırmak ve otomatik bir dosya adıyla kaydetmek için bazı VBA örnekleri göstereceğiz.

Alıştırma Çalışma Kitabını İndirin

Çalışma kitabını indirebilir ve onlarla pratik yapabilirsiniz.

VBA PDF.xlsm'ye Yazdır

9 Excel'de PDF Olarak Yazdırmak ve Otomatik Dosya Adı ile Kaydetmek için Excel VBA Örnekleri

Excel araç çubuğunu kullanarak bir Excel dosyasını PDF olarak kolayca yazdırabilir ve dosyayı otomatik bir dosya adıyla kaydedebiliriz. Excel VBA . Sadece ihtiyacımız var VBA Görevi tamamlamak için çok fazla tıklamaya ihtiyaç duymayız ve bu da bize zaman kazandırır.

Uygulamalar için Visual Basic ( VBA ) bir programlama modeli ve izole bir programdır ve en yaygın olarak Microsoft Office Bu analitik bir araçtır ve genellikle Excel eklentileri monoton, zaman alıcı işler gibi manuel işlemleri optimize eder. CSV Şimdi excel dosyasını otomatik dosya adıyla PDF olarak yazdırmak için bazı örnekler görelim.

1. Çalışma Kitabını PDF'ye Yazdır & Dosya Adını Excel'de Otomatik Olarak Kaydet

Diyelim ki, tüm çalışma kitabını yazdırmak ve dosya adını kodumuza koyduğumuz gibi kaydetmek istiyoruz. Şimdi, bilgisayarımıza bir PDF dosyası kaydetmek istediğimizi varsayalım Yerel Disk (E:) Aşağıdaki resimde de görebileceğimiz gibi, konum herhangi bir pdf dosyası içermemektedir. VBA kodunu çalıştırdıktan sonra, istediğimiz PDF dosyasını bilgisayarımızdaki o konuma yerleştirin.

ile Excel VBA 'yi kullanmak için, kullanıcılar şeritten excel menüleri gibi davranan kodu kolayca kullanabilirler. VBA kodu ile pdf yazdırmak ve otomatik dosya adı ile kaydetmek için prosedürü takip edelim.

ADIMLAR:

  • İlk olarak, şu adrese gidin Geliştirici şeridinden sekmesini seçin.
  • İkinci olarak Kod kategorisinde, üzerine tıklayın Visual Basic açmak için Visual Basic Düzenleyicisi . veya basın Alt + F11 açmak için Visual Basic Düzenleyicisi .

  • Bunu yapmak yerine, çalışma sayfanıza sağ tıklayıp Kodu Görüntüle Bu da sizi şu adrese götürecektir Visual Basic Düzenleyicisi .

  • Bu, şu adreste görünecektir Visual Basic Düzenleyicisi aralıktan bir tablo oluşturmak için kodlarımızı yazdığımız yer.
  • Üçüncü olarak Modül bir şey yok. Ekleme açılır menü çubuğu.

  • Bu, bir Modül çalışma kitabınızda.
  • Ve, kopyalayıp yapıştırın VBA kodu aşağıda gösterilmiştir.

VBA Kodu: 

 Sub Print_Workbook() Dim loc As String loc = "E:\Workbook.pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • tuşuna basarak kodu çalıştırın. F5 tuşuna basın.

  • Son olarak, bir PDF dosya adı görebilirsiniz, Çalışma Kitabı artık bilgisayarınızdaki bu yolda bulunur. Bu da dosya adının otomatik olarak kaydedildiği anlamına gelir.

  • Ve son olarak, çalışma kitabınıza geri dönerseniz, bazı noktalı çizgiler görebilirsiniz. Bunun nedeni, dosyanın artık yazdırmaya hazır olmasıdır.

VBA Kod Açıklaması 

 Sub Print_Workbook()

Alt koddaki işi halletmek için kullanılan ancak herhangi bir değer döndürmeyen bir kod parçasıdır. Alt prosedür olarak da bilinir. Bu yüzden prosedürümüzü şöyle adlandırıyoruz Print_Workbook() . 

 loc = "E:\Workbook.pdf"

Bu satır konum ve pdf dosya adı içindir. Burada dosyamızı E: bilgisayarımıza yükleyin ve dosyaya Çalışma Kitabı . 

 ActiveWorkbook.ExportAsFixedFormat Tür:=xlTypePDF, dosya adı:=loc

Bu kod satırı excel dosyasını PDF olarak dışa aktarmak ve baskıya hazır hale getirmek içindir. 

 End Sub

Bu işlem prosedürü sonlandıracaktır.

Daha fazlasını okuyun: Excel'i Köprülerle PDF'ye Aktarma (2 Hızlı Yöntem)

2. Aktif Çalışma Sayfasını Otomatik Olarak PDF Olarak Kaydetme

Başka bir örnekte etkin bir sayfayı pdf'ye yazdıralım ve dosya adını otomatik olarak kaydedelim Excel VBA .

ADIMLAR:

  • İlk olarak, şu adrese gidin Geliştirmek şeridinden r sekmesini seçin.
  • İkinci olarak Visual Basic açmak için Visual Basic Düzenleyicisi .
  • Açmanın başka bir yolu Visual Basic Düzenleyicisi sadece basmaktır Alt + F11 .
  • Veya sayfaya sağ tıklayın, ardından Kodu Görüntüle .
  • Sonra, şu adrese gidin Ekleme ve seçin Modül açılır menüsünden seçin.
  • Bu da visual basic penceresini açacaktır.
  • Bundan sonra, kopyalayıp yapıştırın VBA kodu aşağıda.

VBA Kodu: 

 Sub Print_Sheet() Dim loc As String loc = "E:\Worksheet.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Ayrıca, şu düğmeye basın F5 tuşu ya da Alt Çalıştır düğmesine basarak kodu çalıştırın.

  • Önceki örnekte olduğu gibi, dosya otomatik dosya adıyla PDF olarak kaydedilir.

Eğer okursanız örnek1'in kod açıklaması, bunu siz de anlayacaksınız.

Daha fazlasını okuyun: Excel Makrosu: Dosya Adında Tarih ile PDF Olarak Kaydet (4 Uygun Örnek)

3. Excel'den PDF Dosyasını Aralık İçinde VBA ile Yazdırın

Etkin bir sayfayı pdf'ye yazdırmak ve dosya adını otomatik olarak kaydetmek için Excel VBA'yı kullanmanın başka bir örneğine bakalım.

ADIMLAR:

  • Başlamak için Geliştirici sekmesine tıklayın.
  • İkinci olarak Visual Basic Düzenleyicisi üzerine tıklayarak Visual Basic .
  • Alternatif olarak, şu adrese de erişebilirsiniz Visual Basic Düzenleyicisi tuşuna basarak Alt + F11 .
  • Ya da, sağ tıklayın sayfasına gidin ve Kodu Görüntüle menüden.
  • Sonra, seçin Modül altındaki açılır kutudan Ekleme .
  • Ve visual basic penceresi görünecektir.
  • Kodu oraya yazın.

VBA Kodu: 

 Sub PrntPDF() ActiveWindow.SelectedSheets.PrintOut Copies:=1, _ Collate:=True, ActivePrinter:="Adobe PDF" Dim fnam As String fnam = Range("B4").Value End Sub
  • Son olarak, tuşuna basın. F5 tuşu kodu çalıştırmak için.

  • Daha sonra, bilgisayarınızdaki bu konuma Çalışma Kitabı adında bir PDF dosyasının eklendiğini görebilirsiniz. Sonuç olarak, dosya adı otomatik olarak korunur.

Daha fazlasını okuyun: Excel'de VBA ile PDF'ye Aralık Yazdırma (En Kolay 5 Örnek)

4. Seçili Sayfada Döngü Oluşturmak ve PDF Yazdırmak için Excel VBA

PDF'ye yazdırmanın ve dosya adını otomatik olarak kaydetmenin başka bir yoluna göz atalım.

ADIMLAR:

  • Başlamak için şeridi açın ve Geliştirici seçenek.
  • Ardından, erişim için Visual Basic Düzenleyicisi üzerine tıklayın Visual Basic .
  • Basmak Alt + F11 aynı zamanda Visual Basic Düzenleyicisi .
  • Alternatif olarak, sağ tıklayın sayfasını seçin ve Kodu Görüntüle görüntülenen menüden.
  • Şimdi Ekleme aşağı açılır seçeneğini seçin Modül .
  • Ardından kopyalayıp yapıştırın VBA aşağıdaki kod.

VBA Kodu: 

 Sub PrntPDF1() Dim wrksht As Worksheet Dim sht As Variant Set sht = ActiveWindow.SelectedSheets For Each wrksht In sht wrksht.Select wrksht.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=ThisWorkbook.Path & "/" & wrksht.Name & ".pdf" Next wrksht sht.Select End Sub
  • tuşuna basarak kodu çalıştırın. F5 Anahtar.

  • Sonunda, bir Çalışma Kitabı PDF dosyasının bilgisayarınızdaki o alana yüklendiğini görebilirsiniz. Sonuç olarak, dosya adı otomatik olarak saklanır.

Bu, dosyayı çalışma kitabının sayfa numarası olarak kaydedecektir.

VBA Kod Açıklaması 

 For Each wrksht In sht wrksht.Select wrksht.ExportAsFixedFormat Type:=xlTypePDF, filename:=ThisWorkbook.Path & "/" & wrksht.Name & ".pdf" Next wrksht

For döngüsünün bu kod satırı excel dosyasını pdf olarak dışa aktarmak ve dosyayı yazdırmak içindir.

Daha fazlasını okuyun: Excel VBA: Sayfaya Sığdır ile Sabit Biçimli PDF Olarak Dışa Aktar (3 Örnek)

5. PDF'ye Yazdırın ve Dosya Adını Excel'de İçgüdüsel Olarak Kaydedin

Şimdi, excel dosyalarını pdf'ye kaydetmek ve dosyayı otomatik sistem olarak adlandırmak için başka bir Excel VBA yöntemine göz atın.

ADIMLAR:

  • Başlamak için şeridi açın ve Geliştirici açılır menüsünden seçin.
  • Ardından, şunları seçin Visual Basic açmak için Visual Basic Düzenleyicisi .
  • Bu Visual Basic Düzenleyicisi tuşuna basarak da erişilebilir. Alt + F11 .
  • Alternatif olarak, şunları yapabilirsiniz sağ tıklayın sayfasını seçin ve Kodu Görüntüle açılır menüden.
  • Bundan sonra, şunları seçin Modül bir şey yok. Ekleme açılır menüsü.
  • Ayrıca, aşağıdaki VBA kodunu kopyalayıp yapıştırın.

VBA Kodu: 

 Sub PrntPDF2() Dim loc As String loc = "E:\Sheet6.pdf" ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ filename:=loc, _ OpenAfterPublish:=False, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ Quality:=xlQualityStandard, _ From:=1, To:=2 End Sub
  • Son olarak, kodu şu tuşa basarak çalıştırın F5 klavyenizde ve sonucu görürsünüz.

  • Daha sonra göreceksiniz ki Çalışma Kitabı PDF dosya zaten bilgisayarınızda o konuma kaydedilmişti. Sonuç olarak, dosya adı otomatik olarak korunur.

Benzer şekilde, önceki örnekte olduğu gibi, bu da pdf dosyasını sayfa numarası olarak kaydedecektir.

VBA Kod Açıklaması 

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=loc, OpenAfterPublish:=False, IncludeDocProperties:=True, IgnorePrintAreas:=False, Quality:=xlQualityStandard, From:=1, To:=2

Kod bloğu, excel dosyasını yazdırmak ve pdf olarak kaydetmek içindir.

Daha fazlasını okuyun: Excel'de VBA Kullanarak PDF'ye ve E-postaya Yazdırma (2 Faydalı Durum)

6. PDF Yazdırmak ve Dosya Adını Otomatik Olarak Kaydetmek için VBA İşlevi

PDF'ye yazdırmanın ve dosya adını otomatik olarak kaydetmenin başka bir Excel VBA yolunu keşfedelim. Bu örnekte bir fonksiyon kullanacağız ve dosyayı PDF'ye kaydedeceğiz. Msgbox bize dosyanın kaydedilip kaydedilmediğine dair bir mesaj vermek için.

ADIMLAR:

  • Başlangıçta, şu adrese gidin Geliştirici tab> Visual Basic > Ekleme > Modül .
  • Ya da, sağ tıklama Çalışma sayfasında bir pencere açılacaktır. Kodu Görüntüle .
  • Ve bu sizi şu adrese götürecek Visual Basic Düzenleyicisi alanına yazabileceğimiz VBA Makroları .
  • Öte yandan, basmak Alt + F11 aynı zamanda Visual Basic Düzenleyicisi .
  • Bundan sonra, şunu yazın VBA Kod.

VBA Kodu: 

 Sub PrntPDF3() Dim wrks As Worksheet Dim wrkb As Workbook Dim snam As String Dim sloc As String Dim sf As String Dim slocf As String Dim myFile As Variant Dim l As Long On Error GoTo errHandler Set wrkb = ActiveWorkbook Set wrks = ActiveSheet sloc = wrkb.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = sloc & "\" snam = wrks.Range("A1").Value & " Print " &wrks.Range("A2").Value & " PDF " & wrks.Range("A3").Value sf = snam & ".pdf" slocf = sloc & sf If PrintFile(slocf) Then l = MsgBox(vbQuestion + vbYesNo, "File Exists") If l vbYes Then myFile = Application.GetSaveAsFilename(InitialFileName:=slocf, FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Save File Name") If myFile "False" Then slocf = myFile Else GoTo exitHandler End IfEnd If End If wrks.ExportAsFixedFormat Type:=xlTypePDF, filename:=slocf, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "Print PDF: " & vbCrLf & strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" Resume exitHandler End Sub Function PrintFile(rsFullPath As String) As Boolean PrintFile =CBool(Len(Dir$(rsFullPath))> 0) End Fonksiyon
  • tuşuna basarak sonucu görmek için kodu çalıştırın. F5 tuşu .

  • Bu görünecek Msgbox ve PDF dosyasının artık yazdırmaya hazır olduğundan emin olun.

  • Benzer şekilde, daha önce olduğu gibi, bir Çalışma Kitabı PDF dosyasının bilgisayarınızdaki bu konuma zaten kaydedilmiş olduğunu fark edeceksiniz. Sonuç olarak, dosya adı varsayılan olarak korunur. Dosya adını ayarladığımızda PDF Yazdır , dosya adını kaydetti Yazdır PDF.

Önceki kodun açıklamasına bakarsanız, kod satırlarını doğru bir şekilde anlayacaksınız. Kodu değiştirmenize gerek yok, sadece aralıkları tercihlerinize göre değiştirin. Kodu kopyalayabilir ve çalışma amacınız için kullanabilirsiniz.

Daha fazlasını okuyun: Hücre Değerinden Dosya Adı ile PDF Olarak Kaydetmek için Excel Makrosu (2 Örnek)

7. PDF'ye Yazdırmak ve Dosya Adını Otomatik Olarak Kaydetmek için Excel VBA Kodu

PDF'ye yazdırmak ve dosya adını otomatik olarak saklamak için başka bir Excel VBA yöntemine bakalım.

ADIMLAR:

  • Başlamak için şu adrese gidin Geliştirici sekmesine tıklayın.
  • İkinci olarak, Kod bölümünün altında Visual Basic başlatmak için Visual Basic Düzenleyicisi . açmak için Visual Basic Düzenleyicisi , tıklayın Alt + F11 .
  • Alternatif olarak, çalışma sayfanıza sağ tıklayıp Kodu Görüntüle Bu sizi şu adrese götürecektir Visual Basic Düzenleyicisi aynı zamanda.
  • Bu, aşağıdaki ekranda görüntülenecektir Visual Basic Düzenleyicisi 'de bir aralıktan bir tablo oluşturmak için kod yazacağız.
  • Üçüncü olarak, Ekle açılır menü çubuğundan Modül .
  • Ve, kopyalayıp yapıştırın VBA kodu aşağıda gösterilmiştir.

VBA Kodu: 

 Sub PrintPDF4() Dim wrksht As Worksheet Dim wrkbk As Workbook Dim snam As String Dim sloc As String Dim sf As String Dim slocf As String Dim file As Variant On Error GoTo errHandler Set wrkbk = ActiveWorkbook Set wrksht = ActiveSheet sloc = wrkbk.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = sloc & "\" snam = wrksht.Range("A1").Value & " - " &wrksht.Range("A2").Value & " - " & wrksht.Range("A3").Value sf = snam & ".pdf" slocf = sloc & sf wrksht.ExportAsFixedFormat Type:=xlTypePDF, filename:=slocf, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "Print PDF: " & vbCrLf & strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" ResumeexitHandler End Sub
  • Ardından, kodu çalıştırmak için RubSub düğmesine basarak veya F5 klavye kısayolu.

  • Özellikle, o zaman, bir Msgbox görünecek.

  • Dosya, önceki örnekte olduğu gibi aynı otomatik dosya adıyla PDF olarak kaydedilir.

VBA Kod Açıklaması 

 sloc = wrkbk.Path If sloc = "" Then sloc = Application.DefaultFilePath End If sloc = sloc & "\" snam = wrksht.Range("A1").Value & " - " & wrksht.Range("A2").Value & " - " & wrksht.Range("A3").Value

Bunlar, çalışma kitabı kaydedilirse etkin çalışma kitabı klasörünü almak içindir. 

 sf = snam & ".pdf" slocf = sloc & sf

Bu, dosyaları kaydetmek için varsayılan adı oluşturacaktır. 

 wrksht.ExportAsFixedFormat Type:=xlTypePDF, filename:=slocf, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Bu blok sadece excel dosyasını geçerli klasördeki PDF'ye aktarır. 

 MsgBox "Print PDF: " & vbCrLf & strPathFile exitHandler: Exit Sub errHandler: MsgBox "Not Print" Resume exitHandler

Bu, Microsoft Excel'de dosya bilgilerini içeren bir onay mesajı görmemizi sağlayacaktır.

Daha fazlasını okuyun: Excel'de Makro Düğmesini Kullanarak PDF'ye Yazdırma (5 Makro Varyantı)

8. Otomatik Dosya Adı ile Belirli Bir Excel Sayfasını Yazdırın

PDF'ye yazdırmak ve dosya adını otomatik olarak saklamak için farklı bir Excel VBA yöntemine bakalım.

ADIMLAR:

  • İlk olarak, aşağıdakileri seçin Geliştirici şeridinden sekmesini seçin.
  • İkinci olarak Kod kategorisini seçin, ardından Visual Basic başlatmak için Visual Basic Düzenleyicisi Alternatif olarak, tuşuna basın Alt + F11 başlatmak için Visual Basic Düzenleyicisi .
  • Bunun yerine, çalışma sayfanıza sağ tıklayın ve Kodu Görüntüle .
  • Bu, aşağıdaki ekranda görüntülenecektir Visual Basic Düzenleyicisi 'de bir aralıktan tablo oluşturmak için kodumuzu yazacağız.
  • Üçüncü olarak, Ekle açılır menü çubuğundan Modül'ü seçin.
  • Ayrıca, kopyalayıp yapıştırın VBA kodu aşağıda.

VBA Kodu: 

 Sub PrintPDF5() Dim loc As String Dim r As Range loc = "E:\PDF File.pdf" Set rng = Sheets("IT").Range("A1:F13") rng.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc End Sub
  • Ayrıca, kodu çalıştırmak için RubSub düğmesini kullanarak veya F5 klavye kısayolu.

  • Bu dosya, önceki örnekle aynı ada sahip bir PDF olarak kaydedilir.

VBA Kod Açıklaması 

 Dim loc As String Dim r As Range loc = "E:\PDF File.pdf" Set rng = Sheets("IT").Range("A1:F13")

Kodların bu blokları değişkenleri oluşturmak ve atamak içindir. 

 rng.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=loc

Bu, bir dizi dosya verisini PDF olarak kaydedecektir.

Daha fazlasını okuyun: Biçimlendirmeyi Kaybetmeden Excel'i PDF'ye Dönüştürme (5 Etkili Yol)

9. Excel VBA'da PDF'ye Yazdırırken Dosya Adını Otomatik Olarak Kaydedin

PDF'ye yazdırmak ve dosya adını otomatik olarak saklamak için başka bir Excel VBA yöntemine göz atalım.

ADIMLAR:

  • Başlangıç olarak Geliştirici şeridinden sekmesini seçin.
  • İkincisi, seç Visual Basic bir şey yok. Kod alanını açmak için Visual Basic Düzenleyicisi . tıklayın Alt + F11 başlatmak için Visual Basic Düzenleyicisi .
  • Ayrıca çalışma sayfanıza sağ tıklayıp Kodu Görüntüle Bu sizi aynı zamanda Visual Basic Düzenleyicisi .
  • Şimdi, görebiliriz Visual Basic Düzenleyicisi 'de bir aralıktan bir tablo oluşturmak için kod yazacağız.
  • Ayrıca, şunları seçin Modül bir şey yok. Ekleme açılır menü çubuğu.
  • Ardından, kopyalayıp yapıştırın VBA aşağıdaki kod.

VBA Kodu: 

 Sub Prnt_PDF() Call Automatic_Name End Sub Function Automatic_Name() As Boolean ' Sayfaları e-posta için yeni PDF dosyasına kopyalar Dim sht As String, file As String, loc As String Dim s As String Application.ScreenUpdating = False sht = ActiveSheet.Name file = ActiveWorkbook.Name loc = ActiveWorkbook.Path s = loc & "\" & sht & ".pdf" On Error Resume NextActiveSheet.PageSetup.PrintQuality = 600 err.Clear On Error GoTo 0 On Error GoTo RefLibError ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=s, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True On Error GoTo 0 SaveOnly: MsgBox ".pdf dosyası olarak kaydedildi: " & vbCrLf & vbCrLf & SvAs & _ ".pdf belgesini inceleyin."Automatic_Name = True GoTo EndMacro RefLibError: MsgBox "PDF olarak kaydedilemiyor." Automatioc_Name = False EndMacro: End Function
  • Kod daha sonra RubSub düğmesini kullanarak veya F5 klavye kısayolu.

VBA Kod Açıklaması 

 sht = ActiveSheet.Name file = ActiveWorkbook.Name loc = ActiveWorkbook.Path s = loc & "\" & sht & ".pdf"

Dosyayı pdf olarak almak ve pdf'nin adını kaydetmek için. 

 Hatada Devam Sonraki ActiveSheet.PageSetup.PrintQuality = 600 err.Clear Hatada Devam 0

Bu sadece baskı kalitesini ayarlar. 

 On Error GoTo RefLibError ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=s, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True On Error GoTo 0 SaveOnly: MsgBox ".pdf dosyası olarak kaydedildi: " & vbCrLf & vbCrLf & SvAs & _ ".pdf belgesini inceleyin." Automatic_Name = True GoTo EndMacro RefLibError: MsgBox "Farklı kaydedilemiyorPDF." Automatioc_Name = False

Bu satırlar, kullanıcıya dosyayı pdf olarak yazdırmak için nasıl göndereceği konusunda talimat verecektir.

Daha fazlasını okuyun: Excel'i Kesmeden PDF Olarak Kaydetme (4 Uygun Yol)

Sonuç

Yukarıdaki yöntemler, bu işi aşağıdakilerden yapmanıza yardımcı olacaktır Excel VBA'da PDF'ye Yazdırma ve Otomatik Dosya Adı Kaydetme Umarım bu size yardımcı olur! Herhangi bir sorunuz, öneriniz veya geri bildiriminiz varsa lütfen yorum bölümünde bize bildirin. Veya diğer makalelerimize bir göz atabilirsiniz. ExcelWIKI.com Blog!

Önceki yazı Excel Dosyasının Önceki Sürümü Nasıl Kurtarılır (4 Kolay Yol)
Sonraki Gönderi Excel'de Satırlar Nasıl Çarpılır (En Kolay 4 Yol)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.