Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
With Application.Dialogs(wdDialogFilePrint)
  .Range = wdPrintRangeOfPages
  .Pages = "s1, s2, s3, s4, s4, s5, s6, s7, s5, s6, s8"
   .Show
End With
lbl_Exit:
  Exit Sub
End Sub