Public Function SetSaveAsSpecificOccurrence( _
   ByVal bstrItemId As String, _
   ByVal bstrItemRev As String, _
   ByVal bstrDataSetFileName As String, _
   ByVal szPrntItemId As String, _
   ByVal szPrntItemRev As String, _
   ByVal szPrntDataSetFileName As String _
) As Long