Pagesetup funktioniert nicht und langsam
12.11.2016 17:34:56
Peter
ich habe mir eine Druckvorschau erstellt. Leider habe ich ein Problem, durch die Footer
ist das ganze extrem langsam.
Wenn ich die Footer herausnehme läuft das Ganze sehr schnell.
Wo liegt bitte der Fehler? Was kann man dagegen machen?
Sub Druckvorschau_2016_11_12()
SpalteL = Range("M65536").End(xlUp).Row 'SpalteL ist der Massstab für das berechnen der _
letzten beschriebenene Zelle in Spalte K = PLZ da immer ausgefüllt
Sheets("Tabelle1").Select
Makro_Spalten_ausblenden
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintArea = "" 'Druckbereich aufheben
.LeftFooter = "" 'linke Fusszeile löschen
.CenterFooter = "" 'mittlere Fusszeile löschen
.PrintTitleRows = "$1:$1"
.PrintArea = Range("A1:Y" & SpalteL).Address
.LeftFooter = "&""Arial,Fett""&14" & "aktuelles Datum: &D"
.CenterFooter = "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D3") & " Anzahl: " & _
Worksheets("Hilfstabelle").Range("F3") & Chr(10) & "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D4") & " Anzahl: " & Worksheets("Hilfstabelle").Range("F4") & Chr(10) & "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D5") & " Anzahl: " & Worksheets("Hilfstabelle").Range("F5")
.RightFooter = "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D6") & " Anzahl: " & _
Worksheets("Hilfstabelle").Range("F6") & Chr(10) & "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D7") & " Anzahl: " & Worksheets("Hilfstabelle").Range("F7") & Chr(10) & "&""Arial,Fett""&14" & Worksheets("Hilfstabelle").Range("D8") & " Anzahl: " & Worksheets("Hilfstabelle").Range("F8")
Application.PrintCommunication = True
ActiveSheet.PrintPreview
Makro_alle_Spalten_einblenden
End With
ActiveSheet.Range("A1").Select
End Sub
Besten Dank für Eure Hilfe.
Gruss Peter