Thread: mail merge macro

Hello All,

I have the below Macro:

Sub SplitMergeLetterToPrinter()

' splitter Macro
'
Letters = ActiveDocument.Sections.Count
counter = 1
While counter < Letters
ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _
From:="s" & Format(counter), To:="s" & Format(counter)
counter = counter + 1
Wend
End Sub

I 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.

Hello micah.brown2,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Your post does not comply with Rule 5 of our Forum RULES. We have Seven question forums: Miscellaneous, General, Programming, Worksheet Functions, Charting, Excel 2007 Help and New Users. Please choose the appropriate forum, and post your question in ONLY one forum.

This is Word VBA

 
for j=1 to ActiveDocument.Sections.Count
  '
  if j mod 4 =0 then
next