Jak automatycznie wydrukować wiele plików DOC?

   Kolejny kod stworzony przy okazji pytania zadanego na grupach: jak automatycznie wydrukować wiele plików DOC? Można w tym celu napisać proste makro dla MS Worda:

Sub PrintAllFirst()
   Dim myFile As String
   Dim strLooking As String
   strLooking = "C:\Documents and Settings\Grzegorz\Pulpit\word\"
   myFile = Dir$(strLooking & "*.doc")
   Do While myFile <> ""
      Debug.Print myFile
      Application.PrintOut FileName:=strLooking & myFile, _
      Range:=wdPrintRangeOfPages, Item:= _
      wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:= _
      wdPrintAllPages
      myFile = Dir$
   Loop
End Sub