Sorgu için arama sonuçları: ExportAsFixedFormat

  1. M

    makro kaydetme sorunu

    ...= Path & DosyaAdi & "_" & Sayac & ".pdf" Sayac = Sayac + 1 Loop ' PDF kaydet Worksheets("İZİN FORMU").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=TamYol MsgBox "PDF başarıyla kaydedildi:" & vbCrLf & TamYol, vbInformation End Sub Dener...
  2. S

    makro kaydetme sorunu

    ...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...
  3. E

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

    Elinize Emeğinize sağlık. Allah işinizi rast getirsin. Teşekkür ederim
  4. N

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

    ...With .Sections(i) isim = Split(.Range.Paragraphs(2).Range.Text, vbCr)(0) ActiveDocument.ExportAsFixedFormat ActiveDocument.Path & "\" & isim & ".pdf", _ wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, i, i, wdExportDocumentWithMarkup, _...
  5. E

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

    isim = Rng.Paragraphs(2).Range.Text run-time error '5941' Grupta listelenen eleman yok hatası veriyor
  6. N

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

    ...Name:="\page") isim = Rng.Paragraphs(2).Range.Text isim = Replace(isim, vbCr, "") .ExportAsFixedFormat .Path & "\" & isim & ".pdf", _ wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, i, i, wdExportDocumentWithMarkup, _ False, False...
  7. M

    word Adres mektup birleştirme ile üretilen sayfaları tek tek pdf yapma

    ...fileName = Replace(fileName, "/", "-") Else fileName = "Page_" & I End If tempDoc.ExportAsFixedFormat OutputFileName:=xPathStr & "\" & fileName & ".pdf", _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _...
  8. E

    word Adres mektup birleştirme ile üretilen sayfaları tek tek pdf yapma

    ...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...
  9. E

    VBA ile Word dosyasındaki belirli sayfaları isim seçerek yazdırmak

    ...= ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) End If For I = xStartPage To xEndPage ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _ wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I...
  10. celikomerh

    Userform sayfa yazdırma (Başlık sabitleme)

    ...& SonSatır wsExtre.PageSetup.PrintArea = Alan PDFYolu = ThisWorkbook.Path & "\PDF\" & TbS1 & ".pdf" wsExtre.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ PDFYolu, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False...
  11. M

    Makro Klasör Kaydı

    ...= "" Then MkDir klasorYol If Dir(testKlasorYol, vbDirectory) = "" Then MkDir testKlasorYol Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol DoEvents ' Excel'in yanıt vermeye devam etmesini sağlar Next MsgBox "İşlem tamamlandı." Exit Sub...
  12. 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..
  13. 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...
  14. 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
  15. muratgunay48

    Yerine koy ve PDF oluştur.

    Hocam çok teşekkür ederim. Emeğinize sağlık. Var olun.
  16. 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...
  17. 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.
  18. 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!"...
  19. 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...
  20. 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", _...
Üst