View Single Post
Old 29-03-2010, 19:40
gorgo2 gorgo2 is offline
Senior Member
Join Date: Feb 2010
Posts: 107

Originally Posted by runflacruiser View Post
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.

        If nPageCount < nPageCount2 Then
            For n = nPageCount2 To nPageCount + 1 Step -1
            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
This might be a silly question, but how does this new code work with the current GUI? Should I make a left and right margin setting box?
Reply With Quote