Sorgu için arama sonuçları: ExportAsFixedFormat

  1. M

    seçili alanı yazdırma ve pdf kaydetme

    ...Worksheet Dim pdfName As String Set ws = ActiveSheet pdfName = ThisWorkbook.Path & "\" & ws.Name & ".pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard ActiveSheet.PrintOut End Sub Excel sayfanızda seçili alanları...
  2. N

    Makroda çözümü kolay olabilecek bir sorun yaşıyorum

    ....ChartArea.Select End With ChDir "C:\Users\homenar\Desktop\deneme" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\homenar\Desktop\deneme\" & Sheets("ANADOSYA").Range("B" & satirBaslangic) & ".pdf"...
  3. M

    Makroda çözümü kolay olabilecek bir sorun yaşıyorum

    ....ChartArea.Select End With ChDir "C:\Users\homenar\Desktop\deneme" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\homenar\Desktop\deneme\" & Sheets("ANADOSYA").Range("B" & satirBaslangic) & ".pdf"...
  4. N

    Makroda çözümü kolay olabilecek bir sorun yaşıyorum

    ...& i .ChartArea.Select End With ChDir "C:\Users\homenar\Desktop\deneme" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\homenar\Desktop\deneme\" & Sheets("ANADOSYA").Range("B" & i) & ".pdf", Quality:= _...
  5. N

    Makro ile Grafikleri Yazdırırken Hata alıyorum. ( ActiveSheet.Shapes("Grafik 3") )

    ...= "='veritabanı'!B & i" ActiveChart.ChartArea.Select ChDir "C:\Users\narhome\Desktop\deneme" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\narhome\Desktop\deneme\" & Sheets("veritabanı").Range("B" & i) & ".pdf", Quality:= _...
  6. N

    pdf kaydetme 2nci sayfada veri yoksa 1 sayfa pdf

    ...End If Set shsayfa = Sheets("Bilgi Formu") yol = ActiveWorkbook.Path & "\" & [A3] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub
  7. N

    pdf kaydetme 2nci sayfada veri yoksa 1 sayfa pdf

    ...EDİN") Exit Sub End If Set shsayfa = Sheets("Bilgi Formu") yol = ActiveWorkbook.Path & "\" & [A3] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  8. okan32

    tüm sayfalarda aynı hücreleri toplu pdf olarak kaydetme

    ...fileName = folderPath & ws.Name & ".pdf" ws.Select ' Sayfayı seç exportRange.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileName, Quality:=xlQualityStandard MsgBox ws.Name & " sayfası PDF olarak kaydedildi.", vbInformation Next...
  9. okan32

    tüm sayfalarda aynı hücreleri toplu pdf olarak kaydetme

    ...ws In ThisWorkbook.Sheets fileName = folderPath & ws.Name & ".pdf" ws.Range("AM1:AZ41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileName, Quality:=xlQualityStandard MsgBox ws.Name & " sayfası PDF olarak kaydedildi."...
  10. Z

    Soru Sheets("Sheet2").Select hatası

    ..." & Range("D2").Value & " - " & Range("B4").Value Sheets("Sheet2").Select ActiveSheet.PageSetup.PrintArea = "A1:D79" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=PrintFile, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _...
  11. veyselemre

    sayfalar buton tek pdf yapma

    Makro Kaydet => Sub Makro1() Sheets(Array("ÜRÜN", "ÖZELLİKLER")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\EMRE\Downloads\PDF KAYDET.pdf", Quality:=xlQualityStandard, _...
  12. M

    Yazdırma alanını hücreden belirtme

    Teşekkür ederim. Çalıştı.
  13. Saban Sertkaya

    Yazdırma alanını hücreden belirtme

    ..."Geçersiz aralık metni girdiniz veya aralık bulunamadı.", vbExclamation Exit Sub End If ' PDF olarak kaydetme işlemi rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & "dosyaadi.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...
  14. M

    Yazdırma alanını hücreden belirtme

    ...masaustuyolu & "\" & AyAdi 'With ActiveSheet.PageSetup.PaperSize = 281 'End With ActiveSheet.Range("$B$2:$R$29").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...
  15. M

    Yazdırma alanını hücreden belirtme

    ...belirtilen bu kısmı " ActiveSheet.Range("$B$2:$R$29") " sayfadaki hücreden aldırmak mümkün mü ? ActiveSheet.Range("$B$2:$R$29").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True...
  16. T

    Soru sayfayı tercihe bağlı kaydetme

    ...If tercih = "P" Then ' PDF olarak kaydet Sheets(Array("Terfi Onay Formu")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True...
  17. D

    Pdf kaydetme dosya adını farklı 2 hücreden al

    ...("sipariş no boş bırakılamaz") Exit Sub End If Set shsayfa = Sheets("sipariş") yol = ActiveWorkbook.Path & "\" & [K6] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & [A1] & " " & [B2] , Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  18. sirkülasyon

    Soru sayfayı tercihe bağlı kaydetme

    ...= False Then MkDir Yol End If Say = fL.getfolder(Yol).Files.Count + 1 Sheets(Array("Terfi Onay Formu")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & dosya_adi & Say & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False...
  19. M

    Pdf kaydetme dosya adını farklı 2 hücreden al

    ...Dim yol As String yol = ActiveWorkbook.Path & "\" & ad & " " & siparisNo & ".pdf" Sheets("sipariş").ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True MsgBox "PDF OLARAK DOSYANIZ...
  20. N

    Pdf kaydetme dosya adını farklı 2 hücreden al

    ...bırakılamaz") Exit Sub End If Set shsayfa = Sheets("sipariş") yol = ActiveWorkbook.Path & "\" & [K6] shsayfa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
Üst