Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
       (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub PrintDocuments()
    ShellExecute Me.hwnd, "Print", "C:\WINDOWS\wplog.txt", _
     vbNullString, vbNullString, vbNormalFocus
End Sub