View Single Post
  #4  
Old 27-03-2010, 13:17
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Ok.
If you want to try that method I decribed above here's were I think you can add the code.
I didn't test it yet. Find it in the main form.

Code:
        If nPageCount < nPageCount2 Then
            For n = nPageCount2 To nPageCount + 1 Step -1
                ActiveDocument.Pages(n).Delete
            Next n
        End If
        
        nx = nx + 1
        nCurrent = nCurrent + 1
        If nx >= CountX Then
            nx = 0
            ny = ny + 1
            If ny >= CountY Then
                ny = 0
                If nCurrent < nCount Then
                'enter code here begin -----------------
                
                
                'enter code here end -----------------
                    ActiveDocument.AddPages 1
                End If
            End If
        End If
    Next f
    bProcessing = False
    lblProgress.Caption = ""
    cmAbort.Visible = False
    cmOK.Visible = True
    cmCancel.Visible = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If bProcessing Then
        bAborted = True
    End If
End Sub
-John
Reply With Quote