Sorgu için arama sonuçları: xlTypePDF

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

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

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

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

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

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

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

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

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