Acredito que a única maneira de fazer isso é criar uma macro .
Adicione o seu código preferido à sua macro e altere X & Y para o intervalo desejado (no seu caso 1 e 11).
Use este código se você quiser mostrar a caixa de diálogo de impressão e permitir a seleção de qualquer intervalo, mas apenas definir o padrão para as páginas X-Y:
Sub FilePrint()
With ActiveDocument
' unprotect
If .ProtectionType <> wdNoProtection Then
.Unprotect Password:="snip"
End If
.Bookmarks("RunSpellCheckButton").Range.Font.Hidden = True
With Dialogs(wdDialogFilePrint)
.Range = wdPrintFromTo
.From = X
.To = Y
.Show
End With
.Bookmarks("RunSpellCheckButton").Range.Font.Hidden = False
' reprotect
.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="snip"
End With
End Sub
Use este código se quiser que ele imprima automaticamente páginas X-Y ao executar a macro, sem mostrar a caixa de diálogo de impressão primeiro:
Sub FilePrint()
With ActiveDocument
' unprotect
If .ProtectionType <> wdNoProtection Then
.Unprotect Password:="snip"
End If
.Bookmarks("RunSpellCheckButton").Range.Font.Hidden = True
.PrintOut Range:=wdPrintFromTo, From:="X", To:="Y"
.Bookmarks("RunSpellCheckButton").Range.Font.Hidden = False
' reprotect
.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="snip"
End With
End Sub
Crédito: Jay Freedman (MVP da Microsoft) .