Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
ZbirS = 0
End Sub