ich habe eine Routine, die mir ein Sheet formatieren soll. Sie funktionierte im Testbetrieb immer einwandfrei:
Sub formatieren()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
If ActiveSheet.Name = "Frühdienst1" Or ActiveSheet.Name = "Psych.-Besonderheiten" Then
Rows("8:50").AutoFit
For x = 8 To 50
Höhe = Rows(x).RowHeight
Rows(x).RowHeight = Höhe + 3
Next x
ElseIf ActiveSheet.Name = "Behandlungspflege" Then
Rows("8:50").AutoFit
For x = 8 To 50
Höhe = Rows(x).RowHeight
Rows(x).RowHeight = Höhe + 10
Next x
ElseIf ActiveSheet.Name = "Stammdaten" Then
Rows("8:120").AutoFit
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
Beim umfangreicheren Testen meiner Anwendung habe ich aber festgestellt, dass die Routine nach einem Druckauftrag extrem langsam wird. Was vorher unter einer Sekunde passiert braucht nach dem Drucken über 12 Sekunden.
Ich habe auf verschiedenen Systemen an verschiedenen Druckern getestet, das Problem tritt überall in der gleichen Form auf.
Ich habe schon einige Beiträge aus dem Forum eingesehen und verschiedene Dinge probiert, aber nichts hilft. Hat jemand ähnliche Erfahrungen gemacht oder ein Idee, woran es liegen könnte? Auch für einen workaround wäre ich dankbar; für die, die sich über die Routine wundern: In meinem Sheet brauche ich zusammengefasste Zellen. Aus irgendeinm Grund funktioniert bei diesen aber keine Einstellung "optimale Zeilenhöhe", so dass ich die betroffenn Zellen umkopieren muss und dann das Format auf die ursprünglichen Zellen übertragen.
Danke im Voraus
Tobias