У меня проблемы с этим кодом печати, так как он работал и неожиданно остановился.Я попытался использовать режим прерывания и понял, что проблема находится в соответствии с PrintOut.без указания диапазона он работает и печатает две полные копии документа.
ActiveDocument.Range.Select
Selection.Find.Text = "Instructions"
blnFound = Selection.Find.Execute
endCount = ActiveDocument.ComputeStatistics(wdStatisticPages)
startCount = Selection.Information(wdActiveEndAdjustedPageNumber)
pag1 = startCount & "-" & endCount - 1
pag2 = endCount & "-" & endCount
Application.PrintOut FileName:="", Copies:=2, Range:=wdPrintRangeOfPages, Pages:=pag1