...Exit Sub
End If
Set shsayfa = Sheets("sipariş")
yol = ActiveWorkbook.Path & "\" & [K6]
shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True...
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...
...Sayfa7.PrintOut
End Sub
Sub kod()
isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf"
Sheets("Sayfa8").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _
OpenAfterPublish:=False
End Sub...
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.