Akt. Datum und Uhrzeit am gedruckten Dokument

Private Sub Druck() 'Druckt den Bereich Druckbereich im TB Drucken Sheets("Drucken").Select 'Wählt die Tabelle2 aus Range("a1:m25").Select 'Definiert den Druckbereich Selection.PrintOut copies:=1, collate:=True 'Druckoptionen With ActiveSheet.PageSetup 'Gestaltet den Kopf- und Fußbereich für den _ Ausdruck .Orientation = xlLandscape .PrintArea = ActiveSheet.UsedRange.Address .LeftMargin = Application.InchesToPoints(0.1) .RightMargin = Application.InchesToPoints(0.5) .TopMargin = Application.InchesToPoints(2) .BottomMargin = Application.InchesToPoints(2) .LeftHeader = "Bearbeiter: " & Application.UserName .CenterHeader = "Mängelliste" .RightHeader = "Gedruckt: " & Format(Now, "DD.MMMM.YYYY HH:MM:SS") .LeftFooter = "Nur für internen Gebrauch" .CenterFooter = "" .RightFooter = "Seite &P von &N" End With Sheets("Drucken").Select 'Wählt TB Drucken aus Range("a2:n25").Select 'Markiert den Bereich a2:n20 in TB Drucken Selection.Clear 'Löscht den markierten Bereich End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi
läuft bei mir ohne Fehler durch.
wenn du die Platzhalter (allerdings OHNE Leerzeichen dazwischen, bitte mal den Recorder benutzen!)
verwendest, brauchst du diesen Code nicht im BeforePrint-Makro.
dann reicht es, wenn du das einmalig bzw bei Bedarf so einrichtest und dann wird hier immer das aktuelle Datum und Uhrzeit eingesetzt.
das BeforePrint-Makro brauchst du nur, wenn du hier nicht die Platzhalter, sondern festen Text verwenden willst (ggf weil dir die Formatierung nicht passt) und dieser immer direkt vor dem Druck aktualisiert werden muss.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.RightHeader = "Gedruckt:  " & Format(Now, "YYYY-MM-DD hh:mm")
End With
End Sub

Gruß Daniel

Guten Morgen Daniel, guten Morgen Forum
Ich möchte hiermit eventuell das ganze Forum um Hilfe bitten. Unten habe ich jetzt noch einmal den Code gepostet, den ich in einen Modul habe:

Private Sub Druck()
'Druckt den Bereich Druckbereich im TB Drucken
Sheets("Drucken").Select                    'Wählt die Tabelle2 aus
Range("a1:m25").Select                      'Definiert den Druckbereich
Selection.PrintOut copies:=1, collate:=True 'Druckoptionen
With ActiveSheet.PageSetup                  'Gestaltet den Kopf- und Fußbereich für den  _
Ausdruck
.Orientation = xlLandscape
.PrintArea = ActiveSheet.UsedRange.Address
.LeftMargin = Application.InchesToPoints(0.1)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(2)
.BottomMargin = Application.InchesToPoints(2)
.LeftHeader = "Bearbeiter: " & Application.UserName
.CenterHeader = "Mängelliste"
.RightHeader = "Gedruckt: " & Format(Now, "dd.mm.yyyy, hh:mm")
.LeftFooter = "Nur für internen Gebrauch"
.CenterFooter = "Made by " & "Beranek Helmut " & " 2017"
.RightFooter = "Seite &P von &N"
End With
Sheets("Drucken").Select                    'Wählt TB Drucken aus
Range("a2:n25").Select                      'Markiert den Bereich a2:n20 in TB Drucken
Selection.Clear                             'Löscht den markierten Bereich
End Sub

Hier habe ich den Code, der aktuell in diese Arbeitsmappe eingefügt ist:

Option Explicit
Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="1234"
With ThisWorkbook.Worksheets("Mängelliste") 'hebt Filterung des SpeziFi auf
If .FilterMode Then .ShowAllData
End With
'Worksheets("Mängelliste").Activate
Zeitmakro        'mdl_Zeit)#
'Application.Visible = False      'Blendet "Mängelliste" aus und zeigt nur UF Portier!!!!
Portier.Show
'Range("P9:p3008").Select         'Selektiert Spalte "P" und löscht Einträge
'Selection.ClearContents
Worksheets("Mängelliste").Activate
Range("C9").Select               'geht zu letzter beschriebener Zelle in Spalte "C"
Selection.End(xlDown).Select
'Filterung trotz Blattschutz möglich
ActiveSheet.Protect userinterfaceonly:=True, Password:="1234"
ActiveSheet.EnableOutlining = True  'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub

Nun lieber Daniel möchte ich dich bitten, die paar Codezeilen die du mir zur Verfügung gestellt hast, in diese Arbeitsmappe einzufügen. Ich habe es mit allen möglichen Variationen probiert, es funktioniert nicht!
Besten Dank im Voraus, lg Helmut

Beliebteste Forumthreads (12 Monate)

Akt. Datum und Uhrzeit am gedruckten Dokument

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

331 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Akt. Datum und Uhrzeit am gedruckten Dokument

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

331 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread