Copy a page

The following diagram shows the sequence of events initiated by the "Copy Page" user request. In the BeforeCopyPage event, the user interaction can be canceled. To verify if the opening module is the current module please use the Project.ScriptExecutionMode property.

Note If you edit a batch during processing by copying a document or page this does not copy any existing custom storage strings. You can use the AfterCopyDocument or AfterCopyPage events to set them via script.

A visual representation of the Copy Page event sequence.

' Project Script
Private Sub Batch_BeforeCopyPage(pXDocInfo As CASCADELib.CscXDocInfo, bCancel As Boolean) 

   If pXDocInfo.XDocument.ExtractionClass = "SinglePageForm" Then 
      MsgBox "You cannot copy pages to a single page form. Please create a new document." 
      bCancel = True  
   End If 
End Sub

' Project Script
Private Sub Batch_AfterCopyPage(ByVal pTargetXDocInfo As CASCADELib.CscXDocInfo, ByVal TargetPageIndex As Long, ByVal pSrcXDocInfo As CASCADELib.CscXDocInfo, ByVal SrcPageIndex As Long)
   Dim xValue As CscXValue
   Dim i As Integer

   For i = 0 To pSrcXDocInfo.XValues.Count-1
      Set xValue = pSrcXDocInfo.XValues.ItemByIndex(i)
      If InStr(xValue.Key,"AC_CSS_PAGE" & SrcPageIndex & "_") Then

         Dim newxValueKey As String

         newxValueKey = "AC_CSS_PAGE" & TargetPageIndex & Right(xValue.Key, Len(xValue.Key) - InStrRev(xValue.Key, "_") + 1)

         pTargetXDocInfo.XValues.Add (newxValueKey,xValue.Value,True)
         pTargetXDocInfo.XValues.ItemByName(newxValueKey).MustSynchronize=True
      End If
   Next

End Sub

Your search for {searchVal} returned {total} results.

Copy a page