Korhan Bey,
İlginiz için teşekkür ederim. Textbox olarak yazabileceğim (Excel içerisinde) PDF ismini oluşturup belirttiğim dosyaya kaydetmesini sağlayamıyorum bir türlü.
...devam edebilmeniz için dosya adını girmelisiniz!", vbCritical
Exit Sub
End If
Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=File_Path & File_Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _...
...= shf2.[G33].Value
Set shf2 = Nothing
Set shf2 = Nothing
End Sub
Sub CreatePDF()
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="c:\PDF\" & "deneme _ " & Date & ".pdf"
Application.Wait (Now + TimeValue("00:00:10"))
Dim OutApp As Object
Dim...
...kısmına yada başka bir yere ne gibi bir komut yazabilirim. Kod aşağıdadır.
Sub CreatePDF()
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="\\c::\PDF\deneme.pdf" & "_" & Date
Application.Wait (Now + TimeValue("00:00:10"))
Dim OutApp As Object
Dim...
Necati bey merhaba bu şekilde yaptığım zaman aşağıdaki kısımın tamamında hata veriyor
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=yol & isim, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
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.