Excel数据透视表的打印功能怎么用
Excel数据透视表的打印功能怎么用
学习啦在线学习网 在文档的使用过程中，打印功能对于我们来说并不陌生，在Excel数据透视表中也有打印功能。以下是学习啦小编为您带来的关于Excel数据透视表打印，希望对您有所帮助。
Excel数据透视表打印
学习啦在线学习网 打印 数据透视表页字段中的每个数据项
下面的代码将能够实现打印页字段中的每个数据项的功能(假定为一个页字段).请使用打印预览测试. 准备打印时, 请去掉 ActiveSheet.PrintOut代码前的单引号, 并在代码ActiveSheet.PrintPreview前添加一个单引号.
学习啦在线学习网 Sub PrintPivotPages()
学习啦在线学习网 '打印数据透视表一个页字段下的每个数据项
'假设只有一个页字段存在
On Error Resume Next
Dim pt As PivotTable
学习啦在线学习网 Dim pf As PivotField
Dim pi As PivotItem
Set pt = ActiveSheet.PivotTables.Item(1)
学习啦在线学习网 For Each pf In pt.PageFields
学习啦在线学习网 For Each pi In pf.PivotItems
pt.PivotFields(pf.Name).CurrentPage = pi.Name
学习啦在线学习网 ' ActiveSheet.PrintOut '使用这个代码打印
学习啦在线学习网 ActiveSheet.PrintPreview '使用这个代码预览
Next
Next pf
End Sub
打印数据透视表页字段下每个数据项的透视图
下面的代码将能够实现打印页字段中的每个数据项的透视图功能(假定为一个页字段).请使用打印预览测试. 准备打印时, 请去掉 ActiveSheet.PrintOut代码前的单引号, 并在代码ActiveSheet.PrintPreview前添加一个单引号.
Sub PrintPivotCharts()
'prints a chart for each item in the page field
Dim pt As PivotTable
学习啦在线学习网 Dim pf As PivotField
Dim pi As PivotItem
Set pt = ActiveChart.PivotLayout.PivotTable
学习啦在线学习网 For Each pf In pt.PageFields
学习啦在线学习网 For Each pi In pf.PivotItems
学习啦在线学习网 pt.PivotFields(pf.Name).CurrentPage = pi.Name
' ActiveSheet.PrintOut
学习啦在线学习网 ActiveSheet.PrintPreview '打印预览测试
Next
Next pf
End Sub
学习啦在线学习网 打印数据透视表的每个页数据项 – 多个页字段
学习啦在线学习网 下面代码将完成打印数据透视表页数据项的每个组合. 如果 PrintFlag 不设置为 true, 描述信息将被写入PageItemList工作表.
Option Compare Text
学习啦在线学习网 Public mrow As Integer
学习啦在线学习网 Public PrintFlag As Boolean
'====================================================================
Sub PrintAllPages()
学习啦在线学习网 'from code posted by Tom Ogilvy
学习啦在线学习网 'September 5 2004
Dim holdSettings
Dim ws As Worksheet
学习啦在线学习网 Dim wsPT As Worksheet
学习啦在线学习网 Set ws = Worksheets("PageItemList") 'sheet for page items
Set wsPT = Worksheets("Pivot") 'sheet with PivotTable
mrow = 0
学习啦在线学习网 If MsgBox("Print?", vbYesNo, "Print?") = vbYes Then
学习啦在线学习网 PrintFlag = True
Else
学习啦在线学习网 PrintFlag = False
MsgBox "Page field items will be listed on sheet " & ws.Name
End If
学习啦在线学习网 If Not PrintFlag Then
学习啦在线学习网 ws.Cells(1, 1).CurrentRegion.Clear
End If
Set PvtTbl = wsPT.PivotTables(1)
wsPT.Activate
If PvtTbl.PageFields.Count = 0 Then
MsgBox "The PivotTable has no Pages"
Exit Sub
End If
With PvtTbl
学习啦在线学习网 ReDim holdSettings(1 To .PageFields.Count)
I = 1
学习啦在线学习网 For Each PgeField In .PageFields
学习啦在线学习网 holdSettings(I) = PgeField.CurrentPage.Name
I = I + 1
学习啦在线学习网 PgeField.CurrentPage = PgeField.PivotItems(1).Name
Next PgeField
End With
PvtPage = 1
PvtItem = 1
学习啦在线学习网 DrillPvt oTable:=PvtTbl, Ipage:=PvtPage, wksht:=ws
I = 1
学习啦在线学习网 For Each PgeField In PvtTbl.PageFields
PgeField.CurrentPage = holdSettings(I)
I = I + 1
Next PgeField
End Sub
'====================================================================
学习啦在线学习网 Sub DrillPvt(oTable, Ipage, wksht)
学习啦在线学习网 'Debug.Print "in DrillPvt, page:=" & Ipage & " Page Item: " & _
学习啦在线学习网 ' oTable.PageFields(Ipage).CurrentPage & " " & mrow
If Ipage = oTable.PageFields.Count Then
学习啦在线学习网 With oTable
For I = 1 To .PageFields(Ipage).PivotItems.Count
.PageFields(Ipage).CurrentPage = _
学习啦在线学习网 .PageFields(Ipage).PivotItems(I).Name
学习啦在线学习网 mrow = mrow + 1
slist = ""
学习啦在线学习网 For j = 1 To .PageFields.Count
slist = slist & .PageFields(j).CurrentPage & " "
Next j
' Debug.Print slist
If PrintFlag Then
'' ActiveSheet.PrintOut 'print the sheet
ActiveSheet.PrintPreview 'preview -- for testing
Else
For j = 1 To .PageFields.Count
wksht.Cells(mrow, j).Value = _
学习啦在线学习网 .PageFields(j).CurrentPage.Name
Next j
End If
Next I
End With
学习啦在线学习网 For I = oTable.PageFields.Count - 1 To 1 Step -1
学习啦在线学习网 For j = 1 To oTable.PageFields(I).PivotItems.Count
If oTable.PageFields(I).CurrentPage = _
oTable.PageFields(I).PivotItems(j).Name Then
学习啦在线学习网 CurrItem = j
学习啦在线学习网 Exit For
End If
Next j
If CurrItem <> oTable.PageFields(I).PivotItems.Count Then
oTable.PageFields(I).CurrentPage = _
oTable.PageFields(I).PivotItems(CurrItem + 1).Name
Ipage = I + 1
DrillPvt oTable, Ipage, wksht
Else
If I <> 1 Then
oTable.PageFields(I).CurrentPage = _
oTable.PageFields(I).PivotItems(1).Name
Else
学习啦在线学习网 Exit Sub
End If
End If
Next I
Else
学习啦在线学习网 DrillPvt oTable, Ipage + 1, wksht
End If
End Sub
猜你喜欢：