¿Cómo filtrar automáticamente una Tabla Dinámica en la generación de un informe?

En un informe de DataCycle Reporting (DCR) que contiene una tabla dinámica, es posible filtrar automáticamente dicha tabla dinámica usando la tarea "Ejecutar macro" de DCR. Para ello se puede usar la siguiente macro que se debe incluir en la plantilla diseño del informe:

Configuración de la tarea de DCR "Ejecutar macro":
Macro: FiltraTD
Parametros: Campo a filtrar,Valor a Filtrar

Macro a incluir en el diseño del informe (dentro del código VBA de la plantilla diseño Excel):
---
Sub filtraTD(fieldname As String, Value As String)
Dim pt As PivotTable
Dim apfield As PivotField

If Value = "" Then Exit Sub
Set pt = Sheets("Visión Dinámica").PivotTables("Cubo")
Set apfield = pt.PivotFields(fieldname)
apfield.CurrentPage = Value
If apfield.CurrentPage <> Value Then
MsgBox "Error:" & Err.Description
End If
End Sub
---

Esta macro es válida si la plantilla tiene una hoja llamada "Visión Dinámica" y una TD llamada "Cubo"