Private 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
 
Private Sub Command1_Click()
  ShellExecute Me.hwnd, "print", "d:\test.rtf", vbNullString, "C:\", 1
End Sub