Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 09-10-18, 11:13
ExcelTech Ο χρήστης ExcelTech δεν είναι συνδεδεμένος
Όνομα: Θωμάς
Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2002, Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-10-2018
Μηνύματα: 3
Προεπιλογή

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