Bazı kullanıcı bilgilerinin taşınmasında hatalar olmuş.
Foruma giriş yapamıyorsanız lütfen bir süre bekleyin. Eksik verileri tamamlamak için çalışıyoruz.
Hata düzelince tekrar bilgi paylaşacağız.
Eksik kullanıcı verileri geri yüklendi.
Sorun yaşamaya devam eden varsa lütfen admin@excel.web.tr ye bilgi verin.
Sayın @muhasebeciyiz teşekkürler, buda alternatif güzel bir çözüm. Mail gitmeden önce yüklenmiş olarak ekranda, gönder olayını manuel yapıyoruz. Mail üzerinde değişiklik yapılabiliyor.
...MAİLLER\"
yil = Year(Date)
ay = Month(Date)
gun = ActiveSheet.Name
If Len(ay) < 2 Then ay = 0 & ay
ActiveSheet.Range("A1:Q164").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, OpenAfterPublish:=True, fileName:=yol & "TR - " & yil & "-" & ay & "-" & gun & ".pdf"
End Sub
...Worksheets("AYARLAR").Range("J11").Text
ADISOYADI = Worksheets("İZİN FORMU").Range("C5").Value
Worksheets("İZİN FORMU").ExportAsFixedFormat xlTypePDF, Filename:=Path & ADISOYADI & "_" & Date & ".pdf"
End Sub
Merhaba,
Bu şekil de kaydetmek için çalıştırdığım bir makrom var...
...Then
xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
End If
For I = xStartPage To xEndPage
ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
False...
...= ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
End If
For I = xStartPage To xEndPage
ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I...
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.