Sorgu için arama sonuçları: ExportAsFixedFormat

tüm kodun en sonunda mı Set oWSHShell = Nothing olması lazım yoksa Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False bu kısım hata vermektedir.

office2010 hata almazsan 2007 böyle bir hata alıyorum sebebi nedir. Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

...için şimdiden teşekkürler.. Private Sub CommandButton1_Click() Application.ScreenUpdating = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="C:\Users\XXXX\Desktop\belge.pdf", _ OpenAfterPublish:=False Application.ScreenUpdating = True...

Adem Hocam , teşekkürler kod güzel çalışıyor elinize sağlık. data sayfasında veri sayısı fazla olunca masaüstüne pdf olarak kayıt yaptığı için masaüstü doluyor. masa üstünde "yeni klasör" adında klasör açsam direkt onun içine atacak şekilde kodu düzenleme şansınız var mıdır? teşekkürler ,

...& "\" & strName & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strName & "\" & strName & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True...

...aşağıdaki ile değiştirerek dener misiniz? If altklasor_kontrol <> True Then klasor.CreateFolder alt_klasor pdfdosya_adı = Sheets("Rapor").Cells(1, 2) Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf" Ben yazarken Üstat cevaplamış bile... :)

Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook.Path & "\DENEME\" & pdfdosya_adı kodu DENEME nin içinde alt_klasor ün yanına atıyor. alt_klasor (değişkebir klasör) ü ThisWorkbook.Path & "\DENEME\" yoluna ekleyemiyorum.

...alt_klasor pdfdosya_adı = Rapor.Cells(1, 2) Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook.Path & alt_klasor & dosya_adı Else pdfdosya_adı = Rapor.Cells(1, 2)...

İlginize çok teşekkür ediyorum, çok güzel oldu :)

...Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_" & Sayfa.Name & ".pdf", _...

Teşekkür ederim, Dosya adını çekiyor şimdi, Sadece dosya adının yanında uzantısı da geliyor "Dosyaadi.xlsm-Sayfa-adı.PDF" xlsm dosya türünü yazmasını nasıl engelleyebiliriz ?

...1) End With konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" adi = s1.Range("D3") & " EĞİTİM SERTİFİKASI " & s1.Range("E20") uzanti = ".pdf" s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti End If Next i...

...Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name &"_"& Sayfa.Name & ".pdf", _ Quality:=xlQualityStandard...

...Say = fL.getfolder(Yol).Files.Count + 1 Sheets(Array("Hakediş Özeti", "Hakediş İcmali", "Hakediş Raporu")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True...

...Dim Sayfa As Worksheet For Each Sayfa In ThisWorkbook.Worksheets(Array("SİYAH", "BEYAZ", "GRI")) Sayfa.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\" & Sayfa.Name & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _...

...& "\" adi = S1.Range("L9") & " 7 NOKTA VE ZULA - DUR-KALK FORMU (" & S1.Range("L11") & " - " & S1.Range("AE11") & ") " & S1.Range("L12") uzanti = ".pdf" S1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti ActiveSheet.Protect

Deneyiniz. ActiveSheet.Range("A1:D30").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Environ("UserProfile") & "\Desktop\" & Range("A1").Value & " - " & Range("B1").Value & ".pdf" , _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...

Size zahmet olmayacaksa bana iki hücreden alması gerekiyor. 1 Fatura kodu, 2 Müşteri adı. Bunuda yaparsanız çok sevinirim

...ayarladım. Uzantısı olmadan ilgili hücreye dosya adını yazarsanız sorun çıkmadan kullanabilirsiniz. ActiveSheet.Range("A1:D30").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Environ("UserProfile") & "\Desktop\" & Range("A1").Value & ".pdf" , _ Quality:=xlQualityStandard, _...