...End If
Set shsayfa = Sheets("Bilgi Formu")
yol = ActiveWorkbook.Path & "\" & [A3]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
...EDİN")
Exit Sub
End If
Set shsayfa = Sheets("Bilgi Formu")
yol = ActiveWorkbook.Path & "\" & [A3]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False...
..."Geçersiz aralık metni girdiniz veya aralık bulunamadı.", vbExclamation
Exit Sub
End If
' PDF olarak kaydetme işlemi
rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
masaustuyolu & "\" & "dosyaadi.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True...
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.