...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...
...("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...
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.