Как рапечатать только первую страницу документов?

[Тандер]

Как рапечатать только первую страницу документов? Если, например, есть 50 документов и нужно распечатать только первую страницу? И наоборот, чтобы можно было распечатать все страницы, кроме первой.

[Казанский]

VBS скрипт, который распечатает все первые страницы файлов из папки, в которой он сам находится:

With CreateObject("word.application")
  .Visible = True
  .Documents.Add
  For Each x In CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.Files
    If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "doc" Then
      .PrintOut False, , 4, , , , , , "1", , , , x.Path
    End If
  Next
  .Quit
End With

А это скрипт, который распечатает все страницы, кроме первой (найдите отличие )

With CreateObject("word.application")
  .Visible = True
  .Documents.Add
  For Each x In CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.Files
    If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "doc" Then
      .PrintOut False, , 4, , , , , , "2-", , , , x.Path
    End If
  Next
  .Quit
End With