Kapalı dosyalardan print almak

[tamer42]

Merhabalar,

Bir klasör altındaki ("C:\ExcelOrn") excel dosyalarını;

Açarak yada açmadan tüm sheet lerini printOut etmenin kolay bir yolunu biliyormusunuz?

Örn: Bu şekilde bir kod düzenlenebilir mi?

Set ds = CreateObject("Scripting.FileSystemObject")
        Set f = ds.GetFolder("C:\ExcelOrn")
            Set dc = f.Files

               For Each dosya In dc

                          [color=red]dosya.PrintOut[/color]
 
                     Next

İyi Çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub DOSYALARI_YAZDIR()
    Columns(1).Clear
    Set Klasör = CreateObject("Scripting.FileSystemObject").GetFolder("C:\ExcelOrn\").Files
    For Each Dosya In Klasör
    If InStr(Dosya.Name, ".xls") > 0 Then
    X = X + 1
    Cells(X, 1) = Dosya.Name
    Workbooks.Open Filename:=Dosya
    Dim Sayfa As Worksheet
    For Each Sayfa In Worksheets
    Sayfa.PrintOut
    Next
    ActiveWorkbook.Close True
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub