title: Print first page from each of 1000 PDF
body: <p>By using .bat and .vbs. How it's possible to print first page from each of 1000 PDFs?</p>
  
  <p>The only working solution, which I found is:</p>
  
  <pre><code>Option Explicit
  
  Const FILE_TO_PRINT = "n:\xxx\xxx\xxx\xxx\xxxx.PDF"
  Dim shl
  Dim fldr
  Dim files,file
  
  Set shl = CreateObject("Shell.Application")
  Set fldr = shl.Namespace("n:\HEAT06\BAA Cards\66712\20161103\")
  Set files = fldr.Items
  
  
  For Each file in files
    If LCase(file.Path) = LCase(FILE_TO_PRINT) Then
      file.InvokeVerbEx("Print")
    End If
  
  Next
  
  Set shl = Nothing
  Set fldr = Nothing
  Set files = Nothing
  WScript.Quit
  </code></pre>
  
  <p>it's does work, BUT it will print whole document, when I need only first page.</p>