I finally got it - for anyone who is having the same challenge. The code is
below:

Sub PrintForms()
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

' Set reference to pivot table
Set pt = ActiveSheet.PivotTables(1)
' Set reference to the pivot field
Set pf = pt.PivotFields("monid")

For Each pi In pf.PivotItems

Range("B1") = pi.Value
ActiveSheet.PrintPreview
'ActiveSheet.PrintOut
Next

End Sub