Sorgu için arama sonuçları: xlTypePDF

Forumdaki arşiv konularını incelemenizi öneririm. Bolca örnek var. Uygun olan bir konuyu kendi talebinize göre derleyip kullanabilirsiniz. https://www.excel.web.tr/search/332179/?q=xlTypePDF&o=date

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

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

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

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

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

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

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

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

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

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

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