Sorgu için arama sonuçları: xlTypePDF

...Counter = Counter + 1 MyFileName = MyPath & "Form_" & Counter & ".pdf" Loop ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName, Quality:=xlQualityStandard MsgBox "Form PDF olarak kaydedildi: " & MyFileName, vbInformation End Sub Ömer beyin...

Merhaba, Deneyiniz... Sub kod() isim = "Form_" & Format(Now, "yyyymmddhhnn") & ".pdf" Sheets("Form").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Formlar\" & isim, _ OpenAfterPublish:=False End Sub

...' Eğer aynı isimde bir dosya yoksa PDF olarak kaydet If Dir(dosyaAdi) = "" Then ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard MsgBox "Fatura PDF olarak kaydedildi.", vbInformation Else MsgBox "Aynı isimde bir...

...ElseIf ws.Name = "Fazla Mesai" Then Set rng = ws.Range("B2:S47") End If If Not rng Is Nothing Then ws.ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=folderPath & "\" & fileName & "_" & ws.Name & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False...

...= ws.Range("B2:S47") End If If Not rng Is Nothing Then ws.ExportAsFixedFormat Type:=xlTypePDF, _ fileName:=folderPath & "\" & fileName & "_" & ws.Name & ".pdf", _...

...& " " & Sheets("RD").Range("C4")) ChDir CreateObject("WScript.Shell").SpecialFolders("Desktop") Sheets("RD").ExportAsFixedFormat Type:=xlTypePDF, Filename:=CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _ Application.PathSeparator & ad & ".pdf", Quality:= _...

...değişmesini burada yapacaksınız Next i Application.DisplayAlerts = False wb.Worksheets(1).Delete Application.DisplayAlerts = True wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Egitim_Belgesi.pdf", OpenAfterPublish:=False wb.Close SaveChanges:=False Application.ScreenUpdating = True End Sub

sayın Mdemir63 emeğinize sağlık teşekkür ederim

...'Burayı siz kendi bilgisayarınızdaki masa üstüne göre değiştirin fileName = currentDate & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, Quality:=xlQualityStandard MsgBox "PDF dosyası başarıyla oluşturuldu: " & fileName, vbInformation End Sub

...hali bulunmaktadır." ' Sayfa PDF'e dönüştürme işlemi On Error Resume Next Sheets(sheetName).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath On Error GoTo 0 If Err.Number <> 0 Then MsgBox "PDF oluşturma hatası: " & Err.Description, vbExclamation...

çok çok teşekkürler

Merhaba, Deneyiniz. Sub kod() Sheets(Array("Sayfa1", "Sayfa2")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\Dosya.pdf", _ OpenAfterPublish:=True End Sub

...If Next Sheets(2).Select For Each sh In Sheets If sh.Name <> s1.Name Then sh.Select False Next ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\Yazdır.pdf", _ OpenAfterPublish:=True Application.DisplayAlerts = False For Each sh In...

Aynısını yapmama rağmen data bar yüzdelerini pdf de göremiyorum

..."-" & tarihSaat ' Kayıt yolu yol = "C:\Users\" sh.Select sh.Range("A1:z74").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & dosyaAdi & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False...

...= isim & "-" & tarihSaat yol = "D:\YEDEKLER" sh.Select sh.Range("B6:H74").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & dosyaAdi & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...

Hocam çok teşekkür ederim harika oldu.

...s1.Range("A" & i & ":AJ" & i).Copy s2.Range("A" & son2) End If Next i s2.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & tc & uzanti son2 = s2.Cells(Rows.Count, 1).End(3).Row s2.Range("A3:AJ" & son2 + 1).Clear Next x MsgBox "İşlem tamamlandı."...

...yol = ThisWorkbook.Path isim = sh.Range("D13").Value sh.Select sh.Range("B6:H74").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _ & "\" & isim & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub...

Kodu paylaşmamışım kusura bakmayın.