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