..."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...
...("sipariş no boş bırakılamaz")
Exit Sub
End If
Set shsayfa = Sheets("sipariş")
yol = ActiveWorkbook.Path & "\" & [K6]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & [A1] & " " & [B2] , Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False...
...= False Then
MkDir Yol
End If
Say = fL.getfolder(Yol).Files.Count + 1
Sheets(Array("Terfi Onay Formu")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False...
...bırakılamaz")
Exit Sub
End If
Set shsayfa = Sheets("sipariş")
yol = ActiveWorkbook.Path & "\" & [K6]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False...
merhabalar hocam, ilginiz için çok teşekkürler ancak istediğim tam olarak olmadı. totalde 3 işlem yapması gerekiyor.
pdf yapmadan önce yazıcıyı "Microsoft Print to PDF" yapması (excel dosyasını vereceğim personellerde farklı yazıcı seçili olduğunda sayfa yapısı pdf yaparken bozuluyor)
excel...
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.