How to delete pages in KTM Server automatically?

Question / Problem:

How to delete pages in KTM Server automatically?

Answer / Solution:

You can delete or move pages in the events Batch_open and Batch_close only.

The following example deletes every 2nd page, if the document has more than 1 page:

Private Sub Batch_Close(ByVal pXRootFolder As CASCADELib.CscXFolder, ByVal CloseMode As CASCADELib.CscBatchCloseMode)
If Project.ScriptExecutionMode =CscScriptModeServer Then
Dim i As Integer
For i=0 To pXRootFolder.DocInfos.Count-1
If pXRootFolder.DocInfos(i).PageCount>1 Then Batch.DeletePage(pXRootFolder.DocInfos(i),1) End If
Next
End If
End Sub

Applies To: