Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 03-12-2017, 17:07   #1
1903emre34@gmail.com
Altın Üye
 
Giriş: 29/05/2016
Şehir: İstanbul
Mesaj: 597
Excel Vers. ve Dili:
Microsoft Excel 2013 Türkçe
Varsayılan Kapalı dosyalarda yazdırmak

Merhaba,

Aşağıdaki kod aracılığıyla, kapalı dosyalardaki pfd dosyalarını yazdırıyor, word dosyalarıyla birlikte yazdırması için kodlarda nasıl değişiklik yapabiliriz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim secilendizin As String

Sub menu()
   Call Klasor_Sec
   If secilendizin = "" Then
     MsgBox ("Dosya seçimi yapmadın")
     Exit Sub
   End If
   Call pdf_yazdir
End Sub

Sub Klasor_Sec()
  Set klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
  If Not klasor Is Nothing Then
     kaynak = klasor.self.Path
     If InStr(1, kaynak, "{") > 0 Then GoTo atla
     Set klasor = Nothing
     secilendizin = kaynak
  Else
atla:
     secilendizin = ""
  End If
End Sub


Public Sub pdf_yazdir()

    Dim folder As String
    Dim PDFfilename As String
    
    folder = secilendizin & "\"
    If Right(folder, 1) <> "\" Then folder = folder & "\"
       
    PDFfilename = Dir(folder & "*.pdf", vbNormal)
    While Len(PDFfilename) <> 0
        Print_PDF folder & PDFfilename
        PDFfilename = Dir()
    Wend

End Sub

Private Sub Print_PDF(sPDFfile As String)
    Shell "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /p /h " & Chr(34) & sPDFfile & Chr(34), vbNormalFocus
End Sub
1903emre34@gmail.com Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-12-2017, 21:54   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,558
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Not defterinde yazıldı TEST edilmedi.


Kontrol ediniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim secilendizin As String

Sub menu()
   Call Klasor_Sec
   If secilendizin = "" Then
     MsgBox ("Dosya seçimi yapmadın")
     Exit Sub
   End If
   Call pdf_yazdir
End Sub

Sub Klasor_Sec()
  Set klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
  If Not klasor Is Nothing Then
     kaynak = klasor.self.Path
     If InStr(1, kaynak, "{") > 0 Then GoTo atla
     Set klasor = Nothing
     secilendizin = kaynak
  Else
atla:
     secilendizin = ""
  End If
End Sub

Public Sub pdf_yazdir()

    Dim folder As String
    Dim PDFfilename As String
    
    folder = secilendizin & "\"
    If Right(folder, 1) <> "\" Then folder = folder & "\"
       
    PDFfilename = Dir(folder & "*.pdf", vbNormal)
    While Len(PDFfilename) <> 0
        Print_PDF folder & PDFfilename
        PDFfilename = Dir()
    Wend

    wrdfilename = Dir(folder & "*.docx", vbNormal)
    While Len(wrdfilename) <> 0
        word_yazdir folder & wrdfilename
        wrdfilename = Dir()
    Wend

End Sub

Private Sub Print_PDF(sPDFfile As String)
    Shell "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /p /h " & Chr(34) & sPDFfile & Chr(34), vbNormalFocus
End Sub

Sub word_yazdir (swrdfile As String)
  Dim objWord
  Dim objDoc
  Set objWord = CreateObject("Word.Application")
  objWord.Visible = False

  Set objDoc = objWord.Documents.Open(swrdfile)
  objDoc.PrintOut
  objDoc.Close
  objWord.Quit
End Sub
__________________
www.asriakdeniz.com - İş yoğunluğu nedeni ile uzunsüreli OFFLINE
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-12-2017, 07:16   #3
1903emre34@gmail.com
Altın Üye
 
Giriş: 29/05/2016
Şehir: İstanbul
Mesaj: 597
Excel Vers. ve Dili:
Microsoft Excel 2013 Türkçe
Varsayılan

Teşekkürler, sorunsuz çalıştı.
1903emre34@gmail.com Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2018, 11:39   #4
KuTuKa
Altın Üye
 
KuTuKa kullanıcısının avatarı
 
Giriş: 10/03/2005
Şehir: izmir
Mesaj: 621
Excel Vers. ve Dili:
Excel 2010 - İngilizce
Varsayılan

ben makroyu çalıştıramadım dosya seçip makroyu çalıştırdığımda tekrardan dosya seç geliyor.
KuTuKa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2018, 15:52   #5
1903emre34@gmail.com
Altın Üye
 
Giriş: 29/05/2016
Şehir: İstanbul
Mesaj: 597
Excel Vers. ve Dili:
Microsoft Excel 2013 Türkçe
Varsayılan

Alıntı:
KuTuKa tarafından gönderildi Mesajı Görüntüle
ben makroyu çalıştıramadım dosya seçip makroyu çalıştırdığımda tekrardan dosya seç geliyor.

Dosya ektedir.
Eklenmiş Dosyalar
Dosya Türü: xlsm ÇIKTI ALMAK İÇİN.xlsm (21.7 KB, 12 Görüntülenme)
__________________
Mevzu_u Bahis Vatansa Gerisi Teferruattır
1903emre34@gmail.com Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 04:47   #6
KuTuKa
Altın Üye
 
KuTuKa kullanıcısının avatarı
 
Giriş: 10/03/2005
Şehir: izmir
Mesaj: 621
Excel Vers. ve Dili:
Excel 2010 - İngilizce
Varsayılan

emre bey çok teşekkürler ama yineaynı sorun

menü yü tıklıyorum

dosya seç diyip yazdırılacak dosyayı seçiyorum

ya bir işlem yapıp 2. adım olan yazdır gelmiyor yada dosya bulunmaı diyor.

makro içinde benim kaydetmem gereken bir şey olabir mi c sürücüsüne teşekkürler.


istediğim sadece dosya içindeki pdf leri varsa word ü sırayla yazdırabilmek.
KuTuKa Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:03


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden