Stampa automatica file Word da directory locale o remota

1 aprile 2009

Dato che mi ha fatto comodo per risolvere un problema un po’ contorto, voglio segnalare questo script VBA per Word che verifica i file .DOC eventualmente presenti in una determinata directory (locale o remota) e per ognuno:
– apre
– stampa sulla stampante predefinita
– chiude

Sub stampa_file()
Set fs = Application.FileSearch
With fs
    .LookIn = "\\server_remoto\percorso"
    .FileType = msoFileTypeWordDocuments
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            Documents.Open FileName:=.FoundFiles(i)
            ActiveDocument.PrintOut , Copies:=1
            ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
        Next i
    End If
End With
Application.Quit
End Sub

Spero possa essere utile a qualcuno.