Klasördeki dosyaları yazdırmak.

[Leoncio]

Merhaba;

Her ay rutin olarak Ocak-09, Şubat-09 Mart-09.... şeklinde klasörler oluşturuyorum. Herbir klasör içinde yaklaşık 40-50 dosyam mevcut.
Dosyaların sayfa yapıları ayarlanmış, yani yazdırmaya uygun.
Nisan-09 klasöründeki dosyaların tamamını yazdırmak istiyorum. Bunun pratik olarak nasıl yapabilirim? Daha pratik....

Yada; Dublör dosyamda a2 hücresinde alt alta dosya isimleri mevcut. a2 hücresinde ismi yazılı dosyayı aşağıdaki kod ile açıp da yapılabiliyor.
EDIT:
Workbooks.Open ([a2])
Workbooks.Open ([b2])

Farklı önerilere açığım..

 

[Recep İpek]

Aşağıdaki kodları inceleyiniz.Umarım işinize yarar.

Sub KlasörSeçYazdır()
    On Error Resume Next
    Dim Klasör, Klasör_Yolu, DosyaAdi As String
    Application.ScreenUpdating = False
 
    Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", &H100)
    If Not ObjFolder Is Nothing Then
    Klasör_Yolu = ObjFolder.Items.Item.Path
    End If
    DosyaAdi = Application.ActiveWorkbook.Name
    Set Klasör = CreateObject("Scripting.FileSystemObject").GetFolder(Klasör_Yolu).Files
        For Each Dosya In Klasör
            If InStr(Dosya.Name, ".xls") > 0 Then
                If Dosya.Name <> DosyaAdi Then
                    Workbooks.Open Filename:=Dosya
                        Sheets(1).Select
                            For i = 1 To Worksheets.Count
                               Sheets(i).Select
                               ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                            Next i
                       ActiveWorkbook.Close True
                End If
            End If
        Next
    Set Klasör = Nothing
    Set ObjFolder = Nothing
    Application.ScreenUpdating = True
    MsgBox "Yazdırma İşleminiz Tamamlandı.", vbInformation, "Bilgi"
End Sub

 

[Leoncio]

Sn. İpek. Aradığım kodlar buydu. Teşekkür ederim.

 

[NEMAKSAN]

Sayın Recep İpek

Klasörün içindeki onlarca Pdf Dosyasını toplu olarak nasıl yazdırabiliriz

teşekkürler

 

[Recep İpek]

Aşağıdaki linkte buna benzer bir çalışma var.

http://www.excel.web.tr/archive/index.php/t-36306.html

 

[hdm24]

Sayın Recep İpek,
çok teşekkür ederim.

 

[Recep İpek]

Rica ederim.