Sorgu için arama sonuçları: ExportAsFixedFormat

  1. 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...
  2. 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.
  3. _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,
  4. 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...
  5. 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?
  6. 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", _...
  7. I

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

    Teşekkür ederim ancak kodu çalıştıramadım.
  8. 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, _...
  9. 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, _...
  10. F

    Textbox icerisindekini makroda kullanma

    Hocam çok teşekkür ederim ellerinize sağlık tam istediğim gibi çok sağolun.
  11. 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, _...
  12. M

    Textbox icerisindekini makroda kullanma

    textbox1 nesnesi sayfanızın üzerindemi,bende herhangi bir hata vermeden çalışıyor
  13. 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
  14. 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, _...
  15. 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, _...
  16. M

    Çözüldü Makro ile Sectigimiz Raporlari PDF olarak print almak

    ...To RaparNo2 Range("I3").Value = "NFE1-TFN-PIP-PWHT-" & i ' PDF'leri kaydetme islemi ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FilePath & "NFE1-TFN-PIP-PWHT-" & i & ".pdf", Quality:=xlQualityStandard Next i ' Islem tamamlandi...
  17. A

    tikladikca büyüyen buton yazisi

    ...& ".PDF" yol = "C:\Users\aadigital\Documents\Dispense_Unit\" With Sheets("Dispense_unit") .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=yol & isim, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...
  18. A

    Pdf i webbrowsera kaydetme

    ...& ".PDF" yol = "C:\Users\oezcan\document\Dispense_Unit" With Sheets("Dispense_unit") .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=yol & isim, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False...
  19. byfika

    Office 2007 de PDF yapma hatası

    ...As String simdi = Now simdi = Replace(simdi, ":", ".") Sheets("Satıs").Visible = True Sheets("Satıs").Select Sheets("Satıs").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\windows 8.1\Desktop\S P\A V\SATIŞLAR\" & Sheets("Satıs").Range("b2") & " - " & simdi & ".pdf"...
  20. ttb

    Çözüldü MAKRO İLE FARKLI BİR SHEETİ PDF OLARAK KAYDETME

    Çok teşekkür ederim. Elinize sağlık.
Üst