Sorgu için arama sonuçları: ExportAsFixedFormat

  1. 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, _...
  2. 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, _...
  3. M

    Yazdırma alanını hücreden belirtme

    Teşekkür ederim. Çalıştı.
  4. 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...
  5. 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...
  6. 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...
  7. 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...
  8. 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...
  9. 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...
  10. 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...
  11. 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...
  12. Muzaffer Ali

    PFD olarak kaydet

    Merhaba. Aktif sayfayı kaydeder. Sub Test() Range("A1:J54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Environ("UserProfile") & "\Desktop\" & Range("N1") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False...
  13. G

    Soru Makro İle Yazıcı Ayarı ve PDF Yapma

    ...Sheets.Select DOSYAYOLUADI = ThisWorkbook.Path & "\" & ActiveSheet.[A1].Value & Format(TARIH, "YYYYMMDD") & ".PDF" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DOSYAYOLUADI, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...
  14. R

    Soru Makro İle Yazıcı Ayarı ve PDF Yapma

    merhabalar hocam, ilginiz için çok teşekkürler ancak istediğim tam olarak olmadı. totalde 3 işlem yapması gerekiyor. pdf yapmadan önce yazıcıyı "Microsoft Print to PDF" yapması (excel dosyasını vereceğim personellerde farklı yazıcı seçili olduğunda sayfa yapısı pdf yaparken bozuluyor) excel...
  15. G

    Soru Makro İle Yazıcı Ayarı ve PDF Yapma

    ...Sub PDFKAYDET() ActiveSheet.PageSetup.BlackAndWhite = False ADSOYAD = [F55].Value DOSYAADI = "" & ADSOYAD & ".PDF" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\PDF_DOSYALAR\" & DOSYAADI & "", Quality:= _ xlQualityStandard, IncludeDocProperties:=True...
  16. halit3

    Soru Dosyaları Seç Birleştir ve PDF Yap

    objWord.ActiveDocument.ExportAsFixedFormat OutputFileName:=Klasor & "\" & dosya_adi & " " & say & ".pdf", ExportFormat:=wdExportFormatPDF yukarıdaki bölümü aşağıdaki ile değiştir. objWord.ActiveDocument.ExportAsFixedFormat OutputFileName:=Klasor & "\" & dosya_adi & ".pdf"...
  17. B

    Makronun Farklı Yere Kaydetme Sorunu

    ...dt_issue = Range("f14") fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=path & fname Set nextrec = Sayfa3.Range("A1048576").End(xlUp).Offset(1, 0) nextrec.Value =...
  18. M

    Makronun Farklı Yere Kaydetme Sorunu

    ...dt_issue = Range("f14") fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=path & fname Set nextrec =...
  19. M

    Makronun Farklı Yere Kaydetme Sorunu

    ...dt_issue = Range("f14") fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=path & fname Set nextrec =...
  20. B

    Makronun Farklı Yere Kaydetme Sorunu

    ...Range(c34) dt_issue = Range("f14") fname = invno & " - " & custname & " - " & PIno & " - " & POno & " - " & dt_issue ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=False, _ Filename:=path & fname Set nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0) nextrec =...
Üst