Moin,
Keine Sorge, ich halte niemanden fuer unhoeflich, der Dateien aus unbekannter Quelle nicht bedenkenlos herunterlaed. Ich weiss ja nicht, wo Du genau gelandet bist, und was Du da herunterladen wolltest/solltest. Aber mein Link zeigt eigtl. auf einen, hier im Forum oefter verwendeten, File-Hoster und dort auf eine Datei Namens "SN_MitternachtsDruck.xls".
Solltest Du woanders gelandet sein, oder eine andere Datei zum Download bekommen haben, dann stimmt irgendetwas nicht.
Solltest Du hingegen bei eben diesem xls-File gelandet sein, dann wird es wohl so sein, dass Dein Excel (welche Version?) Dich davor warnt aktiven Inhalt auszufuehren. Da Makros aber nunmal aktiven Inhalt darstellen, ist das nun auch nicht allzu verwunderlich.
Sei es wie es sei. Die Datei enthaelt folgenden Code im Modul "Diese Arbeitsmappe":
Option Explicit
Private Sub Workbook_Open() 'laeuft beim Mappenstart an
datRun = Date + TimeValue("23:59:59") 'Startzeit auf Heute/23:59:59 setzen
Application.OnTime datRun, "MeineProzedur", datRun + TimeValue("0:1:0") 'Ausdruck planen (mit einer min Wartezeit)
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'springt vor dem Schliessen der Mappe an
Application.OnTime datRun, "MeineProzedur", , False 'geplanten Ausdruck "abwaehlen"
End Sub
und zusaetzlich noch ein Standard-Modul mit folgendem Inhalt:
Option Explicit
Public datRun As Date 'Variable fuer Startzeit
Public Sub MeineProzedur()
With ThisWorkbook.Worksheets("Tabelle1") 'gilt fuer Tabelle1 (!!!ANPASSEN!!!)
.PageSetup.CenterHeader = _
"&""Arial,Fett""&10&U" & "Ausdruck vom " & Now() & "Uhr" 'CenterHeader schreiben
.PrintOut 'Ausdrucken auf StandardDrucker
.PageSetup.CenterHeader = "" 'CenterHeader loeschen
.Range(.Range("A2"), _
.Cells.SpecialCells(xlCellTypeLastCell)).ClearContents 'Inhalte unter/Rechtsvon A2 loeschen
'!!!ANPASSEN!!!
End With
datRun = datRun + 1 'Startzeit auf naechsten Tag setzen
Application.OnTime datRun, "MeineProzedur", datRun + TimeValue("0:1:0") 'NEUEN Ausdruck planen
End Sub
Wie Du siehst, ist das alles in allem nur eine Umsetzung dessen, was im Link von M.O. (#2) beschrieben ist. Ob Du dies nun selbst in eine Excel-Datei schreibst, oder im Download mit deaktiverten Makros erst kontrollierst, oder gleich ganz die Dinger davon laesst, ist und bleibt voellig Dir ueberlassen.
Cu
TheBlackBird ®