...= a
End If
Next
Sheets(2).Select
For Each sh In Sheets
If sh.Name <> s1.Name Then sh.Select False
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Yazdır.pdf", _
OpenAfterPublish:=True
Application.DisplayAlerts = False
For...
Aktif Şablon Word dosyasını pdf kaydetmek için
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= C:\dosyalar\pdfdosyaadi.pdf", ExportFormat:=wdExportFormatPDF
Kaydedilen pdf dosyalarını birleştirmek için pdftk.exe dosyasını araştırabilirsiniz.
Önce pdf leri oluşturun. Sonra işlem...
Bu forumun bırakın harf öğretmeyi kitap yazacak bilgi barındırdığını düşünüyorum.
Sizlerden beklentimiz ise bu kitabı açıp okumanızdır..
ExportAsFixedFormat ifadesini yazarak arama yaparsanız ne demek istediğimi daha net anlayacağınızı düşünüyorum.
...Teşekkür ederim.
Private Sub CommandButton2_Click()
ChDir "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\Sayfayı PDF olarak mail gönder.pdf" _
...
@Korhan Ayhan hocam, bu kodları uyarlamamda yardımcı olur musunuz? MURAT sayfasını PDF yapacak. O PDF dosyasını G5 hücresindeki adrese yollayacak, o kadar. Ancak çok sayfa olduğu için sayfa kod olması lazım sanırım. Uyarlamaya çalıştım yapamadım. Çok teşekkür ederim.
...adı ile aynı olacaktır")
Yol = Environ("UserProfile") & "\Desktop\PDF\"
ActiveWindow.SelectedSheets.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Yol & Dosyaadi & ".pdf", OpenAfterPublish:=False
Yol2 = Yol & Dosyaadi & ".pdf"
Set dam =...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.