...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
...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, OpenAfterPublish:=True
End Sub
...fileName = folderPath & ws.Name & ".pdf"
ws.Range("AM1:AZ41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileName, Quality:=xlQualityStandard
MsgBox ws.Name & " sayfası PDF olarak kaydedildi.", vbInformation
Next ws
End Sub
...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, IgnorePrintAreas _...
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.