Dosya adı yazılı olan sayfaları yazdırmak

[sbayyigit]

merhaba arkadaşlar;
yazdırmam gereken 300 tane excel dosyası var. Bunların listesi de başka bir dosyada excel sayfası içerisinde yazılı ve hyperlink oluşturulmuş (tıklayınca sayfa açılıyor)

benim yapmak istediğiim şey;
a sütünunda yazılı bütün excel dosyalarının yazdırılması

ekte dosya mevcut

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Integer
        For i = 1 To Range("A65536").End(3).Row
            Set ac = Workbooks.Open(Cells(i, 1))
            ActiveSheet.PrintPreview
        Next i
    ac.Close False
    i = Empty
End Sub

ActiveSheet.PrintPreview satırı yerine ActiveSheet.PrintOut copies:=1 satırını yazın.

 

[sbayyigit]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Integer
        For i = 1 To Range("A65536").End(3).Row
            Set ac = Workbooks.Open(Cells(i, 1))
            ActiveSheet.PrintPreview
        Next i
    ac.Close False
    i = Empty
End Sub

ActiveSheet.PrintPreview satırı yerine ActiveSheet.PrintOut copies:=1 satırını yazın.

teşekkürler usta ben de tam şimdi benzer bir kod bulmuştum eline sağlık
Sub Test()

Dim MyFile As String
Dim xlMain As Long
Set s1 = Sheets("sayfa1")
For x = 1 To Range("A65536").End(3).Row

MyFile = s1.Range("a" & x).Value
xlMain = FindWindowA(strXLClass, vbNullString)
ShellExecute xlMain, "Print", MyFile, vbNullString, "C:\", 0

Next
End Sub

 

[Murat OSMA]

Rica ederim, iyi günler...