Sorgu için arama sonuçları: ExportAsFixedFormat

  1. B

    pdf yolu gösterme

    Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook.Path & "\DENEME\" & pdfdosya_adı kodu DENEME nin içinde alt_klasor ün yanına atıyor. alt_klasor (değişkebir klasör) ü ThisWorkbook.Path & "\DENEME\" yoluna ekleyemiyorum.
  2. B

    pdf yolu gösterme

    ...alt_klasor pdfdosya_adı = Rapor.Cells(1, 2) Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook.Path & alt_klasor & dosya_adı Else pdfdosya_adı = Rapor.Cells(1, 2)...
  3. G

    Soru Bir tık ile Dosya adına sayfa adını ekleyerek tüm sayfaları/istediğim sayfaları aynı klasöre PDF çıkartma

    İlginize çok teşekkür ediyorum, çok güzel oldu :)
  4. B

    Soru Bir tık ile Dosya adına sayfa adını ekleyerek tüm sayfaları/istediğim sayfaları aynı klasöre PDF çıkartma

    ...Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_" & Sayfa.Name & ".pdf", _...
  5. G

    Soru Bir tık ile Dosya adına sayfa adını ekleyerek tüm sayfaları/istediğim sayfaları aynı klasöre PDF çıkartma

    Teşekkür ederim, Dosya adını çekiyor şimdi, Sadece dosya adının yanında uzantısı da geliyor "Dosyaadi.xlsm-Sayfa-adı.PDF" xlsm dosya türünü yazmasını nasıl engelleyebiliriz ?
  6. A

    Soru Excel Dosyasını Pdf Olarak kayıt etme

    ...1) End With konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" adi = s1.Range("D3") & " EĞİTİM SERTİFİKASI " & s1.Range("E20") uzanti = ".pdf" s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti End If Next i...
  7. B

    Soru Bir tık ile Dosya adına sayfa adını ekleyerek tüm sayfaları/istediğim sayfaları aynı klasöre PDF çıkartma

    ...Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name &"_"& Sayfa.Name & ".pdf", _ Quality:=xlQualityStandard...
  8. halit3

    Soru Sayfaları PDF yap ve PDFleri Birleştir

    ...Say = fL.getfolder(Yol).Files.Count + 1 Sheets(Array("Hakediş Özeti", "Hakediş İcmali", "Hakediş Raporu")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True...
  9. T

    Soru Bir tık ile Dosya adına sayfa adını ekleyerek tüm sayfaları/istediğim sayfaları aynı klasöre PDF çıkartma

    ...Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _...
  10. S

    Soru Başka Sayfadan Veri Çekerek Önlü Arkalı Çıktı Alma (Makro)

    ...& "\" adi = S1.Range("L9") & " 7 NOKTA VE ZULA - DUR-KALK FORMU (" & S1.Range("L11") & " - " & S1.Range("AE11") & ") " & S1.Range("L12") uzanti = ".pdf" S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti ActiveSheet.Protect
  11. Korhan Ayhan

    Excel pdf çevirme vba kodu

    Deneyiniz. ActiveSheet.Range("A1:D30").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Environ("UserProfile") & "\Desktop\" & Range("A1").Value & " - " & Range("B1").Value & ".pdf" , _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...
  12. E

    Excel pdf çevirme vba kodu

    Size zahmet olmayacaksa bana iki hücreden alması gerekiyor. 1 Fatura kodu, 2 Müşteri adı. Bunuda yaparsanız çok sevinirim
  13. Korhan Ayhan

    Excel pdf çevirme vba kodu

    ...ayarladım. Uzantısı olmadan ilgili hücreye dosya adını yazarsanız sorun çıkmadan kullanabilirsiniz. ActiveSheet.Range("A1:D30").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Environ("UserProfile") & "\Desktop\" & Range("A1").Value & ".pdf" , _ Quality:=xlQualityStandard, _...
  14. E

    Excel pdf çevirme vba kodu

    Ayhan bey Bu koda bir de her pdf olarak kayd etdiyinde pdf dosyasının ismini belli bir hücredeki textden almasınıda ekleye bilirmisiniz?
  15. B

    Soru Otomatik Yazıcıya yollamak

    ...If Baslangic_No > 0 And Bitis_No > 0 Then For X = Baslangic_No To Bitis_No S1.Range("H4") = X S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & Application.PathSeparator & "Belge " & X & ".pdf", _...
  16. A

    Sayfayı pdf olarak kaydederken tüm sütunları tek sayfaya sığdırma

    ...[I1] dosyaadi = Range("a1").Value dosyayolu = ThisWorkbook.Path & "\" With Sheets("pdf").Range(Cells(1, "a"), Cells(X, "g")) .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=dosyayolu & "\" & dosyaadi & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True...
  17. veyselemre

    ARA KARNE ÇOKLU PDF YAZDIRMA

    ...For Each ogr In list Range("F7").Value = ogr pdfName = folderName & ogr & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ pdfName, Quality:=xlQualityStandard, _...
  18. Ömer

    Dinamik adres tanımlama

    Merhaba, Tüm bilgisayarlarda Masa üstüne yyy.pdf olarak kaydeder. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/yyy.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...
  19. B

    Otomatik Pdf yapma

    Çok teşekkür ederim ama S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Musteri & " " & S1.Range("R1").Value & " - Mutabakat Mektubu.pdf", OpenAfterPublish:=False bu şekilde girdiğim zaman hata verdi
  20. S

    Soru Excel Dosyasını Pdf Olarak kayıt etme

    Adem hocam , çok teşekkür ederim iyi günler dilerim,
Daha eski sonuçları görüntüle
Üst