Sorgu için arama sonuçları: xlTypePDF

Çok Teşekkürler İşimi gördü bu kod Hürmetler

Merhaba, kitap.Close False satırından önce aşağıdaki satırları ekleyerek dener misiniz? Yol_Dosya_Adı = "C:\Users\ozdem\Desktop\Aaaa.pdf" 'Kendinize göre değiştiriniz. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol_Dosya_Adı

...= Range("H16") & "-" & Range("I16") & " - " & Range("C14") & " " & Range("F6") & ".pdf" Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & Dosya_Adi, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...

...Dosya_Adi = Range("H16") & " " & Range("C14") Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & Dosya_Adi, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Set...

...gereken hücre aralığını belirten kod Dosyadi = Worksheets("Veri").Range("I2:I10").Value ActiveSheet .ExportAsFixedFormat Type:=xlTypePDF, Filename:= "Path" & "Dosyadi" & ".pdf" Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False...

Korhan Bey, İlginiz için teşekkür ederim. Textbox olarak yazabileceğim (Excel içerisinde) PDF ismini oluşturup belirttiğim dosyaya kaydetmesini sağlayamıyorum bir türlü.

...devam edebilmeniz için dosya adını girmelisiniz!", vbCritical Exit Sub End If Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=File_Path & File_Name & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...

...= shf2.[G33].Value Set shf2 = Nothing Set shf2 = Nothing End Sub Sub CreatePDF() ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="c:\PDF\" & "deneme _ " & Date & ".pdf" Application.Wait (Now + TimeValue("00:00:10")) Dim OutApp As Object Dim...

Merhaba, Şöyle dener misiniz. ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="c:\PDF\" & "deneme _ " & Date & ".pdf"

...kısmına yada başka bir yere ne gibi bir komut yazabilirim. Kod aşağıdadır. Sub CreatePDF() ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="\\c::\PDF\deneme.pdf" & "_" & Date Application.Wait (Now + TimeValue("00:00:10")) Dim OutApp As Object Dim...

...= ThisWorkbook.Path say = CreateObject("Scripting.FileSystemObject").GetFolder(yol).Files.Count + 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True...

...Hata metni; Method 'ExportAsFixedFormat' of object '_Worksheet' failed Hata aldığım satır ise; S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Dosya_Adi, Quality:=Standard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterpublish:=False Aldığım...

...Klasor = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

farklı bilgisayarda çalışınca Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

...Klasor = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

...Klasor = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

...= vbRed ElseIf s2.[A13] <> "" Or s2.[C14] + s1.Cells(i, "C") > 100000 Then s2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Format(Date, "DDMMYYYY") & " " & Format(a, "00") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

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

...edip mail göndermek istiyor musunuz?", vbExclamation + vbYesNo, "Uyarı") If Onay = vbYes Then S1.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & "\" & Dosya_Adi, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _...

Necati bey merhaba bu şekilde yaptığım zaman aşağıdaki kısımın tamamında hata veriyor .ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=yol & isim, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False