Sorgu için arama sonuçları: ExportAsFixedFormat

Necati Bey Teşekkürler... ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ satırını sizin dediğiniz docword.ExportAsFixedFormat OutputFileName:=Yol, _ olarak değiştirince düzeldi. Yalnız "Application.ScreenUpdating = False" komutunu True yapmasamda çalışıyıyor, Yapsamda çalışıyor. Bu...

...daha önce karşılaşmıştım. Activedocument'in önüne set yapılan Application ismini de yazınca düzeliyor. appword.ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol, _ yada: Activedocument'in yerine SET yapılan dosya ismi yazılınca da düzeliyor. docword.ExportAsFixedFormat...

Korhan Bey ilginize teşekkür ederim. Kodun son kısmına tıpkı Word belgesinde olduğu gibi dosya kapatılsa daha iyi olacak Yani PDF dosyası açık olmasın kayıt yapınca kapansın. Bunun için kodun sonuna docword.Close appword.Quit Bunların karşılığı ne yazılabilir

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