OK, I see the problem. What you could do is merge to a new document and then print in batches of four pages e.g.
Sub SplitMergeLetterToPrinter()
'Graham Mayor - https://www.gmayor.com - Last updated - 21 Jan 2021
Dim lngCounter As Long
Dim sPrinter As String
Const lngStep As Long = 3
With Dialogs(wdDialogFilePrintSetup)
sPrinter = .Printer
.Printer = "PRE-228202"
.DoNotSetAsSysDefault = True
.Execute
End With
For lngCounter = 1 To ActiveDocument.Sections.Count Step lngStep
ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _
from:="s" & Format(lngCounter), To:="s" & Format(lngCounter + lngStep)
lngCounter = lngCounter + 1
Next lngCounter
With Dialogs(wdDialogFilePrintSetup)
.Printer = sPrinter
.Execute
End With
lbl_Exit:
Exit Sub
End Sub
Or if you want to print each page as a separate print job, remove the step e.g.
Sub SplitMergeLetterToPrinter()
'Graham Mayor - https://www.gmayor.com - Last updated - 21 Jan 2021
Dim lngCounter As Long
Dim sPrinter As String
With Dialogs(wdDialogFilePrintSetup)
sPrinter = .Printer
.Printer = "PRE-228202"
.DoNotSetAsSysDefault = True
.Execute
End With
For lngCounter = 1 To ActiveDocument.Sections.Count
ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _
from:="s" & Format(lngCounter), To:="s" & Format(lngCounter)
lngCounter = lngCounter + 1
Next lngCounter
With Dialogs(wdDialogFilePrintSetup)
.Printer = sPrinter
.Execute
End With
lbl_Exit:
Exit Sub
End Sub
If you want simple the method I suggested previously will print each document as a separate print job.