[Εκτύπωση] Αυτόματη εκτύπωση πολλών αρχείων excel με περισσότερα από ένα φύλλα ανά αρχείο

[ExcelTech]

Γεια σου Δημήτρη, αν γνωρίζεις από μακροεντολές, και με την προϋπόθεση ότι όλα τα αρχεία σου έχουν πάντα 2 φύλλα, ο παρακάτω κώδικας θα σε βοηθήσει να πετύχεις αυτό που ψάχνεις:

Sub PrintAll()
Dim MyFiles As String

MyFiles = Dir("C:\Temp\*.xlsx") '<- εδώ ορίζεις τη διαδρομή για τον φάκελο που περιέχει τα αρχεία προς εκτύπωση καθώς και την κατάληξη των αρχείων

Do While MyFiles <> ""

Workbooks.Open "C:\Temp\" & MyFiles '<- η διαδρομή για τον φάκελο αρχείων μπαίνει και εδώ
ActiveWorkbook.Sheets(1).PrintOut Copies:=1
ActiveWorkbook.Sheets(2).PrintOut Copies:=1
ActiveWorkbook.Close SaveChanges:=False

MyFiles = Dir
Loop

End Sub