Sorgu için arama sonuçları: xlTypePDF

  1. I

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

    Teşekkür ederim ancak kodu çalıştıramadım.
  2. 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, _...
  3. Korhan Ayhan

    Textbox icerisindekini makroda kullanma

    ...52").TextFrame2.TextRange.Characters.Text, vbTab, "")) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Path & Model & "_" & Seri & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub
  4. F

    Textbox icerisindekini makroda kullanma

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

    Textbox icerisindekini makroda kullanma

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

    Textbox icerisindekini makroda kullanma

    ...For Each obj In NewSheet.Shapes obj.Delete Next obj NewSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=DosyaYolu, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...
  9. 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, _...
  10. M

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

    ...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 mesaji MsgBox "PDF...
  11. 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, _...
  12. 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...
  13. byfika

    Office 2007 de PDF yapma hatası

    ...= 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", Quality:=xlQualityStandard...
  14. M

    Kod içindeki klasör yolunu düzenlemek

    ...= Uygulama.CreateItem(0) Dosya_Adi = S1.Range("G3").Value & " " & S1.Range("G5").Value & ".pdf" S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & Dosya_Adi, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...
  15. ttb

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

    ...edebilmişimdir. Tekrar teşekkürler. Private Sub EK2A() Application.ScreenUpdating = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/EK2A" & Sheets("EK2A").Range("F30") & Format(Now()...
  16. halit3

    Pdf olarak kaydetmek

    ...ThisWorkbook.Path Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1 ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...
  17. T

    Çözüldü Excel Çalışma Kitabındaki Sayfanın xlsx Uzantılı Olarak Microsoft Outlook Programına Giden Maile Ek Olarak Eklenmesi Hk.

    ...If Kaynak = "C:\Perform_pdf\" If Right(Kaynak, 1) <> "\" Then End If yer = Kaynak & dosya_adı Range("A1:AU48").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ yer, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub adres...
  18. skaan

    Çözüldü Excel Çalışma Kitabındaki Sayfanın xlsx Uzantılı Olarak Microsoft Outlook Programına Giden Maile Ek Olarak Eklenmesi Hk.

    ...= Bilgi4 ' Yazdırma alanını belirle ve PDF olarak kaydet With Proforma .ExportAsFixedFormat Type:=xlTypePDF, Filename:=TamDosyaAdi, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False End With ' Bilgi mesajını...
  19. hkaradag

    Hücre Değeriyle Kayıt Yapmak

    ...Do While Sheets("SONUC").Range("B8").Value <> 0 'B8 hücresi 0 değilse döngüyü çalıştır ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\karad\Desktop\YDA_Sonuc_Aciklama\" & Sheets("SONUC").Range("B8").Value & ".pdf", Quality:=xlQualityStandard, _...
  20. I

    Çözüldü hangi hücrede işlem yapıldığı

    ...'gun2 = ActiveSheet.Name gun3 = ActiveSheet.Name If Len(ay) < 2 Then ay = 0 & ay ActiveSheet.Range("A1:Q164").ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, OpenAfterPublish:=True, fileName:=yol & yil & "-" & ay & "-" & gun & "-TR.pdf"...
Üst