Pivot Datensätze einzeln drucken

19/09/2008 - 08:33 von Thom | Report spam
Hallo liebe NG

Meine Pivot Tabelle sieht in etwa so aus:

a b c d e
1 1 Daten A x x x
2 x x x
3 x x x
4 2 Daten B z z z
5 z z z
6 3 Daten C f f f
7 f f f
8 f f f
9 f f f


In der Spalte A geht die "Indexnummer" bis 130. Jetzt will ich jede einzelne
"Laufnummer" mit deren Inhalt ausdrucken. Anstatt ich jedesmal manuell den
Filter 1 und dann drucken und dann 1 weg und 2 wàhle und wieder drucke und 2
weg und drei wàhle und drucke, gibt es sicherlich eine bessere Methode.
Hab's mit einem Makro versucht. Bin klàglich gescheitert.

Hat jemand ein Tipp.

Ich hoffe mich verstàndlich ausgedrückt zu haben.

Im Voraus besten Dank.

Gruss Thom
 

Lesen sie die antworten

#1 Thomas Ramel
21/09/2008 - 07:34 | Warnen spam
Grüezi Thom

Thom schrieb am 19.09.2008

Meine Pivot Tabelle sieht in etwa so aus:

a b c d e
1 1 Daten A x x x
2 x x x
3 x x x
4 2 Daten B z z z
5 z z z
6 3 Daten C f f f
7 f f f
8 f f f
9 f f f

In der Spalte A geht die "Indexnummer" bis 130. Jetzt will ich jede einzelne
"Laufnummer" mit deren Inhalt ausdrucken. Anstatt ich jedesmal manuell den
Filter 1 und dann drucken und dann 1 weg und 2 wàhle und wieder drucke und 2
weg und drei wàhle und drucke, gibt es sicherlich eine bessere Methode.
Hab's mit einem Makro versucht. Bin klàglich gescheitert.



...wie hat denn der Versuch ausgesehen - vielleicht können wir ja darauf
aufbauen?

Am einfachsten wàre es wohl, wenn du das Feld aus Spalte A in den
Seitenbereich der PT ziehen würdest und dann dieses in einer Schleife
durchlàufst, die ungefàhr so aussehen kann:

Sub Drucke_Pivot()
Dim pF As PivotField
Dim intI As Long
Dim pfAct As String

Set pF = ActiveSheet.PivotTables("PivotTable2").PivotFields("Plant")

pfAct = pF.CurrentPage.Name
For intI = 1 To pF.PivotItems.Count
pF.CurrentPage = pF.PivotItems(intI).Name
ActiveSheet.PrintPreview
'ActiveSheet.Print
Next intI
pF.CurrentPage = pfAct
End Sub



Mit freundlichen Grüssen
Thomas Ramel

- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-3]
Microsoft Excel - Die ExpertenTipps

Ähnliche fragen