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

καλησπέρα στο forum,

στη προσπάθεια να συντομεύσω την εργασία μου προσπαθώ να βρω τρόπο να εκτυπώνω αρχεία excel, τα οποία βρίσκονται σε ένα φάκελο, χωρίς να χρειάζεται να τα ανοίγω ένα ένα. Ειδικότερα στο επισυναπτόμενο αρχείο υπάρχουν 5 αρχεία excel, καθένα από τα οποία έχει δύο φύλλα. Θα ήθελα έναν αυτοματοποιημένο τρόπο ώστε να εκτυπώνεται κάθε αρχείο σε ένα φύλλο (μπρος πίσω). Αν δε γίνεται μπρος πίσω έστω και σε 2 φύλλα το κάθε αρχείο.

Ευχαριστώ εκ των προτέρων
Δημήτρης

Γεια σου Δημήτρη, αν γνωρίζεις από μακροεντολές, και με την προϋπόθεση ότι όλα τα αρχεία σου έχουν πάντα 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