09-10-18, 10:13
|
Όνομα: Θωμάς Έκδοση λογισμικού 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
|