VB Forum / COM / March 2005

You might try something like this.... works fine here. The "guts" are behind
Command1... sample needs a textbox and a command button..
'===========
Option Explicit

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 Form_Load()
  'Place the full path to your file here....
  Text1.Text = "C:\Temp\Test.htm"
End Sub

Private Sub Command1_Click()
  Const SW_SHOWDEFAULT As Long = 10
  Dim sFullPathToFile As String

  sFullPathToFile = Text1.Text

  Call ShellExecute(0, "Print", sFullPathToFile _
  , 0&, 0&, SW_SHOWDEFAULT)
End Sub
'===========