micah.brown
08-26-2011, 02:15 AM
Hello All,
I have the below Macro:
Code:
Sub SplitMergeLetterToPrinter()' splitter Macro'
Letters = ActiveDocument.Sections.Countcounter = 1While counter < LettersActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _From:="s" & Format(counter), To:="s" & Format(counter)counter = counter + 1WendEnd SubI would like to have it so that after the last page is printed in each of the letters that batch of letter is stapled together.
this is word VBA, is it possible that someone can help me with it?
i think the logic to fixing my problem is something like:
IF counter = 4 (or multiples of 4) THEN perform the vba function to staple and collate pages ELSE continue counter funtion which is the while funtion :
I have the below Macro:
Code:
Sub SplitMergeLetterToPrinter()' splitter Macro'
Letters = ActiveDocument.Sections.Countcounter = 1While counter < LettersActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _From:="s" & Format(counter), To:="s" & Format(counter)counter = counter + 1WendEnd SubI would like to have it so that after the last page is printed in each of the letters that batch of letter is stapled together.
this is word VBA, is it possible that someone can help me with it?
i think the logic to fixing my problem is something like:
IF counter = 4 (or multiples of 4) THEN perform the vba function to staple and collate pages ELSE continue counter funtion which is the while funtion :