printen

[maartenf]

ik heb een directory met ca 400 excelbestanden.
al deze excelbestanden hebben hetzelfde formaat en dezelfde layout
en bestaan uit blad1 en blad2.

nu wil ik het volgende:
alle excelbestanden dubbelzijdig uitprinten met blad 1 op de voorkant en blad2 op de achterkant.

is er iemand die me daar bij kan helpen?
b.v.d.
Maarten

 

[maartenf]

het is me inmiddels gelukt om een routine te schrijven die de bestanden in de directory achterhaalt

With Application.FileSearch
.LookIn = "\\SRV-FIL-001\Home$\gmafr1\Mijn Documenten\test"
.FileType = msoFileTypeExcelWorkbooks

If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Range("a" & i).Value = .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

Nu nog het dubbelzijdig printen van de twee werkbladen per bestand

 

[maartenf]

het dubbelzijdig printen lukt nog niet.
het overige staat in bijgevoegd bestand

 

[Wigi]

Hier is een aanzet alvast.

Sub printen()

Dim bestand As Workbook

'weet nog niet hoe dit moet
'bestand selecteren, blad 1 en 2 dubbelzijdig printen
    eindtemp = Sheets("blad1").Range("c5").Value    'aantal files
    begin = 12    'beginrij
    eind = 12 + eindtemp    'eindrij
    Do While begin <= eind
        If Sheets("blad1").Range("a" & begin).Value = "ja" Then
            Set bestand = Workbooks.Open(Range("E1").Value & Range("A" & begin).Value)
            
            With bestand
                
                'code voor printen, neem op met macro recorder
                
                
                'sluiten
                .Close SaveChanges:=False
                
            End With
            
            Sheets("blad1").Range("i" & begin).Value = "ja"
        End If
        begin = begin + 1
    Loop
End Sub

Wigi

 

[maartenf]

thanx voor je reactie.

het probleem is dat ik bij de macro opnemen niets kan vinden anders dan

ActiveWorkbook.PrintOut Copies:=1, Collate:=True

 

[Wigi]

Een betere manier heb ik zo direct niet, maar print eerst de voorkanten (blad 1), draai de stapel om en print de achterkanten.

 

[maartenf]

thanx. heeft waarschijnlijk met de printer zelf te maken en niet met excel. ik zoek verder

 

[Wigi]

thanx. heeft waarschijnlijk met de printer zelf te maken en niet met excel

Inderdaad, dat zou ook mijn reactie zijn. Succes ermee.