Public 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

Public Const SW_SHOWMAXIMIZED =  3 

Private Sub Command1_Click()
    PrintFile Me.hwnd, "E:\1\Test.txt"
End Sub

Public Sub PrintFile( _
  FormName As Long, FileName As String)
    Dim X As Long
    
    On Error Resume Next
    
    X = ShellExecute(FormName, "Print", FileName, _
      vbNullString,  0 &, SW_SHOWMAXIMIZED)
End Sub