Sorgu için arama sonuçları: xlTypePDF

...diye. 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\" & ActiveSheet.Name & ".pdf" _ , Quality:=xlQualityStandard...

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

@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.

...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 =...

çok teşekkürler oldu bu

...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 & _...

...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 Süresi ; " &...

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

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

...' 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...

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?

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

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

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, _...

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

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

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

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

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

...For Each obj In NewSheet.Shapes obj.Delete Next obj NewSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=DosyaYolu, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...