Sorgu için arama sonuçları: ExportAsFixedFormat

...satırının üstüne konumlandırıp deneyiniz. Sub Makro1() Yol = ThisWorkbook.Path & "\Deneme.pdf" ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, _ OptimizeFor:=wdExportOptimizeForPrint...

...KLS.createfolder MASAÜSTÜ & "\" & S1.Range("Z18").Text For SY = 1 To 55 S1.Range("B5") = SY S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" & S1.Range("Z18").Text & "\" & S1.Range("Z11").Text & ".pdf" Next S1.Range("B5") = 1 MsgBox "İşlem Tamamlandı", , "Sonuç" End Sub Sayfanın Kod...

...boş devam edilemez") Exit Sub End If Set shsayfa = ActiveSheet yol = ActiveWorkbook.Path & "\" & [k1] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...

Aşağıdaki kodları ekler misiniz, "Sayfaya Sığdır" With ActiveSheet.PageSetup .Zoom = False End With

...konum = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" adi = s1.Range("D8") & "EĞİTİM SERTİFİKASI (" & s1.Range("B1") & s1.Range("C1") & ") " & s1.Range("E20") uzanti = ".pdf" s1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & adi & uzanti ActiveSheet.Protect End Sub

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