Sorgu için arama sonuçları: ExportAsFixedFormat

  1. N

    Pdf kaydetme şarta bağlı farklı klasörlere

    Merhaba çok teşekürrr ederim istediğim buydu üstad allah razı olsun sağolasın..
  2. M

    Pdf kaydetme şarta bağlı farklı klasörlere

    ...Dim BelgelerimYolu As String BelgelerimYolu = Environ("USERPROFILE") & "\Documents\" & DosyaAdi ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=BelgelerimYolu, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False...
  3. N

    Pdf kaydetme şarta bağlı farklı klasörlere

    ...End If Sheets("Teklif").Select Set shsayfa = Sheets("Teklif") Yol = " & " \ " & [A2]" shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & [A2] & " " & [v2], Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True end sub
  4. muratgunay48

    Yerine koy ve PDF oluştur.

    Hocam çok teşekkür ederim. Emeğinize sağlık. Var olun.
  5. M

    Yerine koy ve PDF oluştur.

    ...dosyaAdi = klasorYolu & isim & ".pdf" ' Sayfa2'yi PDF olarak kaydet wsHedef.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard End If Next i MsgBox "Tüm PDF dosyaları başarıyla 'yazılar' klasörüne...
  6. muratgunay48

    Yerine koy ve PDF oluştur.

    Hocam emeğinize sağlık, tam istediğim gibi. Yalnız ilginçtir. Belgelerimdeki dosyaya değil de direk belgelerime kaydediyor. Dosya ismini değiştirdim (VBA'dan da tabi). Yok olmuyor.
  7. Hakan ERDOST

    Yerine koy ve PDF oluştur.

    ...adını hazırla dosyaAdi = isim & ".pdf" ' Sayfa2'yi PDF olarak kaydet wsHedef.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard End If Next i MsgBox "Tüm PDF dosyaları başarıyla kaydedildi!"...
  8. N

    Belirli Bir Yazdırma Alanı İçerisinde Yazdırma İşlemi

    ...Sheets(Array("Ö", "Sİ", "EA", "K", "DK")).Select 'Sheets(Array("Ö", "Sİ", "EA", "K", "DK")).PrintOut , preview:=True ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\Kontrol.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...
  9. Korhan Ayhan

    Otomatik Pdf yapma

    ...S1.PageSetup.Orientation = xlPortrait Else S1.PageSetup.Orientation = xlLandscape End If S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Tarih & "_GÜNLÜK İŞLEMLER " & S1.Range("U1") & ".pdf", _...
  10. B

    Otomatik Pdf yapma

  11. B

    Otomatik Pdf yapma

    S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Musteri & "_MUTABAKAT MEKTUBU " & S1.Range("U1") & ".pdf", _ OpenAfterPublish:=False burda hata vermekte Tarihlerde "." olduğu için dosyayı kaydedemiyor sanırsam
  12. A

    Farklı Kaydet Butonu ile hem pdf hem xls olarak kaydetme

    Kod çalışıyor çok teşekkürler. Pdf normal açılıyor ama xlsm açılırken " dosyanın bozuk olmadığını ve dosya uzantısının dosyan9ın biçimiyle eşleştiğini doğrulayın " hatası veriyor
  13. V

    Farklı Kaydet Butonu ile hem pdf hem xls olarak kaydetme

    ...End If ' Dosyanın bir kopyasını kaydet ThisWorkbook.SaveCopyAs savePath ' PDF olarak kaydet (aynı isimle) ThisWorkbook.Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(savePath, ".xlsm", ".pdf") MsgBox "Dosya başarıyla kaydedildi!" End Sub
  14. catalinastrap

    PDF to XML

    ...Dim fileNameWithoutExt As String fileNameWithoutExt = Left(xmlFile, InStr(xmlFile, ".") - 1) wordDoc.ExportAsFixedFormat OutputFileName:=pdfFolderPath & fileNameWithoutExt & ".pdf", ExportFormat:=17 wordDoc.Close False xmlFile = Dir Loop...
  15. catalinastrap

    Xml To Pdf

    ...fileNameWithoutExt As String fileNameWithoutExt = Left(xmlFile, InStr(xmlFile, ".") - 1) wordDoc.ExportAsFixedFormat OutputFileName:=pdfFolderPath & fileNameWithoutExt & ".pdf", ExportFormat:=17 wordDoc.Close False xmlFile = Dir...
  16. Biolightant

    Sayfayı PDF sayfasına sığdırma

    ....FitToPagesWide = 1 ' Yatayda 1 sayfa .FitToPagesTall = 1 ' Dikeyde 1 sayfa End With ' PDF'yi dışa aktar ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  17. byfika

    Sayfayı PDF sayfasına sığdırma

    ...= ws.Cells(ws.Rows.Count, "B").End(xlUp).Row Set rng = ws.Range("B1:L" & lastRow) pdfPath = "D:\YEDEK\Veri.pdf" rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  18. Biolightant

    Seçilen bölgeyi kaydetmeden pdf olarak mail iletme

    ...As String PdfPath = Environ("TEMP") & "\RangePdfMail.pdf" ' PDF dosyasını belirtilen yere kaydet ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfPath, _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _...
  19. M

    PDF Birleştirme (Uygulamasız)

    Hocam ilgi alanız için çok teşekkür ederim. Birazdan PC başına geçip denemek için sabırsızlanıyorum.
  20. Biolightant

    PDF Birleştirme (Uygulamasız)

    ...Next i ' PDF olarak kaydet pdfPath = Environ("USERPROFILE") & "\Desktop\BirlesikPdfLer.pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
Üst