For Each f As String In IO.Directory.GetFiles("pfad zum Verzeichnis", _
         "*.doc")
            Dim p As New Process()
            p.StartInfo.Verb = "Print"
            p.StartInfo.UseShellExecute = True
            p.StartInfo.FileName = f
            p.Start()
            [IO.File.Delete(f) ' Anschliessend löschen]
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist