PrintOut und Kopf- & Fußzeilen in VBA
bert
ich habe ein etwas eigenartiges Problem.
Ich verändere die Kopf- & Fußzeilen mittels VBA, um diese Daten immer so anzuzeigen.
Im Normalbetrieb (Seitenansicht und Einzelseitendruck) geht es ohne Probleme mit der Sub:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo fehler:
Dim wsSheet As Worksheet
With ActiveSheet.PageSetup
.LeftHeader = "Text 1
"
.CenterHeader = "Text 2
"
.RightHeader = "&D" 'Datum
.RightFooter = "Tabelle: &A"
End With
Exit Sub
fehler:
'für Fehler alter Versionen
Resume Next
End Sub
Nun will ich viele Tabellen drucken (eine Tabelle wird mit Werten gefüllt und soll dann gedruckt werden, wenn der Nutzer will)
Wenn ich diese Tabelle in einem Makro mit
Worksheets("Daten").PrintOut
ausdrucken will, bringt er alles durcheinander: Kopf rechts kommt nach links, Mitte-Kopf kommt nach unten, teilweise wird es durchgestrichen
Ich habe auch schon mit Warteschleifen und mit Application.Wait (Now + TimeValue("0:00:05")) alles etwas verlangsamt, aber ohne Erfolg.
Hat jemand eine Idee, woran das liegen kann oder wie man das umgehen kann?