Sorgu için arama sonuçları: ExportAsFixedFormat

  1. muratgunay48

    Sayfa ismiyle kaydet

    ...Teşekkür ederim. Private Sub CommandButton2_Click() ChDir "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\Sayfayı PDF olarak mail gönder.pdf" _ ...
  2. muratgunay48

    PDF olarak mail göndermek.

    @Korhan Ayhan hocam, bu kodları uyarlamamda yardımcı olur musunuz? MURAT sayfasını PDF yapacak. O PDF dosyasını G5 hücresindeki adrese yollayacak, o kadar. Ancak çok sayfa olduğu için sayfa kod olması lazım sanırım. Uyarlamaya çalıştım yapamadım. Çok teşekkür ederim.
  3. B

    Makro ile Mail gönderirken mail hesabı seçimi

    ...adı ile aynı olacaktır") Yol = Environ("UserProfile") & "\Desktop\PDF\" ActiveWindow.SelectedSheets.Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & Dosyaadi & ".pdf", OpenAfterPublish:=False Yol2 = Yol & Dosyaadi & ".pdf" Set dam =...
  4. B

    Seçili sekmeleri PDF yapma

    çok teşekkürler oldu bu
  5. A

    Seçili sekmeleri PDF yapma

    ...Dim syf As Worksheet For Each syf In ActiveWindow.SelectedSheets syf.Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & syf.Name & ".pdf", OpenAfterPublish:=False Next MsgBox "İşlem Tamamlandı." & vbLf & vbLf & _...
  6. B

    Seçili sekmeleri PDF yapma

    ...& "\Desktop\PDF" Bas: yol = Environ("UserProfile") & "\Desktop\PDF\" For Each syf In ActiveWindow.SelectedSheets syf.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=yol & syf.Name & ".pdf", OpenAfterPublish:=False Next MsgBox "İşlem Tamamlandı." & vbLf & vbLf & _ "İşlem...
  7. B

    Sekmelerin Herbirini Sekme Adı ile Pdf olarak ayrı ayrı kaydetme

    bu kodu çalıştırdığımda 1 i seçince seçtiğim sekmeleri birleştirererek kaydediyor.
  8. _GÜRCAN_

    Aktif makroyu pdf e çevirme

    okan32 merhaba, dosya adı değişken olduğundan butona bastığımda aktif sayfa A3 ten yazdırabilirmiyiz. teşekkürler,
  9. okan32

    Aktif makroyu pdf e çevirme

    ...' Kullanıcı adınızı ekleyin dosyaAdi = ActiveSheet.Range("A3").Value & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=masaustuYolu & dosyaAdi, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False...
  10. I

    Çözüldü Hücre İsmine Göre PDF olarak Farklı Kaydetme

    Hocam özür dilerim kodu ben "form" sayfasına yapıştırdığım için çalışmamış. "kaydet" sayfasında çalıştı çok sağ olun elinize sağlık. Son olarak kaydet sayfasında buton için belirttiğim alana çift tıklamak yerine dinamik olarak çalışan buton yapamaz mıyız?
  11. A

    Çözüldü Hücre İsmine Göre PDF olarak Farklı Kaydetme

    ...Target As Range, Cancel As Boolean) MsgBox Target.Address If Target.Address = "$B$4:$D$5" Then ActiveWorkbook.Sheets("form").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\USER\Desktop\Yeni klasör\" & Sheets("form").Range("H8").Value & ".pdf", _...
  12. I

    Çözüldü Hücre İsmine Göre PDF olarak Farklı Kaydetme

    Teşekkür ederim ancak kodu çalıştıramadım.
  13. A

    Çözüldü Hücre İsmine Göre PDF olarak Farklı Kaydetme

    Aşağıdaki kod işinizi görebilir. Kolay gelsin Sub PDFYazdır() ActiveWorkbook.Sheets("form").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\USER\Desktop\Yeni klasör\" & Sheets("form").Range("H8").Value & ".pdf", _ Quality:=xlQualityStandard, _...
  14. Korhan Ayhan

    Textbox icerisindekini makroda kullanma

    ...Seri = Trim(Replace(Worksheets("Electric").Shapes("TextBox 52").TextFrame2.TextRange.Characters.Text, vbTab, "")) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Path & Model & "_" & Seri & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...
  15. F

    Textbox icerisindekini makroda kullanma

    Hocam çok teşekkür ederim ellerinize sağlık tam istediğim gibi çok sağolun.
  16. Korhan Ayhan

    Textbox icerisindekini makroda kullanma

    ...Seri = Worksheets("Material removal").Shapes("TextBox 51").TextFrame2.TextRange.Characters.Text ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Path & Model & "_" & Seri & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...
  17. M

    Textbox icerisindekini makroda kullanma

    textbox1 nesnesi sayfanızın üzerindemi,bende herhangi bir hata vermeden çalışıyor
  18. F

    Textbox icerisindekini makroda kullanma

    ...Path = Worksheets("Ayarlar").Range("B1").Text Model = Worksheets("Material removal").Range("textbox52").Value Seri = Worksheets("Material removal").Range("textbox51").Value Worksheets("Material removal").ExportAsFixedFormat xlTypePDF, Filename:=Path & Model & "_" & Seri & ".pdf" End Sub
  19. M

    Textbox icerisindekini makroda kullanma

    ...Destination:=NewSheet.Cells For Each obj In NewSheet.Shapes obj.Delete Next obj NewSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=DosyaYolu, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...
  20. F

    Makro İle Dosyayı .xlsx Formatında Outlook a Atmak

    ...Exit Sub End If Yol = ThisWorkbook.Path Dosya_Adi = Range("AX18") & ".pdf" Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & Dosya_Adi, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...
Üst