Sorgu için arama sonuçları: ExportAsFixedFormat

...False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.PageSetup.PaperSize = 281 ActiveSheet.Range("$B$2:$D$34").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...

...& "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$2:$D$33").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...

Deneyiniz.

Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf" Cevabınızın sorunumu çözdüğünü belirtmiş ve teşekkür etmiştim. Şimdi bir konuda daha yardımınızı rica ediyorum. bu kodun devamına: oluşturulan pdf i açması için nasıl bir kod yazmalyım. Alakanız...

...Sub kaydet() Range("H1:J9").Select Range("J8").Activate ChDir "C:\Users\muratgunay48\Desktop" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\muratgunay48\Desktop\BAŞLIK MESAİ.pdf", Quality:=xlQualityStandard _ ...

...For Each grp In .Range("M2:M" & lr).Value rng.AutoFilter Field:=7, Criteria1:=grp .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & grp & "_Grup.pdf", Quality:=xlQualityStandard Next...

...ws.Range("G2:G" & LastRow).AutoFilter Field:=1, Criteria1:=FilterValues(i) ws.Range("A1", ws.Cells(ws.Rows.Count, "G").End(xlUp)).ExportAsFixedFormat _ Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & FilterValues(i) & "_Grup.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True...

...= Selection.Address ActiveSheet.PageSetup.FitToPagesWide = 1 ActiveSheet.PageSetup.FitToPagesTall = 1 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & FilterValues(i) & "_Grup.pdf", Quality:=xlQualityStandard...

...& "\" pdffile = gecicipath & Range("w7") & " _ " & Range("I10") & " _ " & Range("w9") & " _ " & Range("I4") & ".pdf" Alan.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdffile, openafterpublish:=False With Alan .Parent.Select Set daralan = ActiveCell .Select...

Bende kullanmak istedim. Ama gizli sayfayı bulamayınca hata verdi. Yeni bir sayfa oluşturup gizli sayfasını tanımlamasını değiştirip kullanabilirsiniz. Ya da kod ile gizli sayfayı gösterdikten sonra kullanabilirsiniz. Bu şekilde sorun olmuyor. @Levent Menteşoğlu hocam gelince net çözümü söyler...

Levent Hocam merhaba Ben bu çalışmanızı kullanmak istiyorum. Aşağıdaki satırda hata veriyor. Ekstra yapmam gereken işlem var mı? s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaadi, Quality:=xlQualityStandard

...PdfKaydet() Module4.Auto_Open Path = Worksheets("ayarlar").Range("B1").Text Faturalanan = Worksheets("teklif").Range("F8").Value Worksheets("teklif").ExportAsFixedFormat xlTypePDF, Filename:=Path & Faturalanan & "_" & Date & " " & Format(Time, "hh-mm") & ".pdf"...

Allah sizden razı olsun elinize emeğinize sağlık teşekkürler

Şu satırları silip; Dosya = Klasor & Dosya & ".pdf" .ExportAsFixedFormat OutputFileName:=Dosya, _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1...

Merhaba hocam bunu pdf olarak değilde word olarak keydedilmesini istiyorsak nasil bir yol izlemeliyiz. .pdf yazan yeri .docx olarak değiştiridğimde word dosyları oluşuyor ama hatalı word oluşuyor açılmıyor.

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 ,