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
猜你喜欢：