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