Pivottabelle drucken; Excel hängt
09.07.2004 13:36:48
Kersten
Ich habe mal wieder ein big Problem.
Ich lasse in einem Excelprojekt Auswertungen über Pivottabellen machen.
Die Kardinalität sprich Ausdehnung so einer Pivottabelle kann je nach benutzter Anzahl von Positionen (Es handelt sich um ein Kalkulations-Excelprojekt) ganz schön lang werden.
Der Ausdruck erfolgt über VB wie folgt: (exemplarich für ein Ausdruck)
'*******************************************************************************
'Materialauswertung Drucken
'*******************************************************************************
Sub MaterialDrucken()
With Worksheets("Auswertung")
.Visible = True
.Select
End With
Range("E2:M2").Select
ActiveWindow.Zoom = 100
ActiveWindow.Zoom = True
ActiveSheet.PivotTables("PivotTable2").RefreshTable
Dim rng As Range
Set rng = Range(Cells(1, 6), _
Cells(Cells(Rows.Count, 11).End(xlUp).Row, 11))
ActiveSheet.PageSetup.PrintArea = rng.Address
With ActiveSheet.PageSetup
.PrintTitleRows = "$4:$6"
.PrintTitleColumns = ""
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
ActiveSheet.PrintPreview
Call DatenErfassen
End Sub
(Der Range-Bereich deckt einen Pivottabellenbereich ab)
Das funktioniert zunächst einwandfrei. Es sei denn die Pivottabele wird zu groß.
Ich gehe mal davon aus daran liegt es.
Es passiert folgendes. Der Druckauftrag wird noch an den Drucker weitergegeben und ausgeführt. Im Meldefenster für den Druck wird noch gemeldet welche Seite gerade gedruckt wird (meistens bis Seite 2) und dann hängt sich Excel auf und verabschiedet sich nach einiger Zeit mit der Meldung, das Excel.exe einen Fehler verursacht hat.
Das Selbe passiert auch, wenn ich mir die Seitenvorschau zeigen lasse und versuche über die Seite 2 hinaus zu scrollen.
Hat jemand schon mal so ein Problem gehabt.
Danke Gruß Kersten