What are you sorry about?
Use ShellExecuteCode: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() Dim PrintIt As Long PrintIt = ShellExecute(Me.hwnd, "PRINT", "C:\page.htm", "", "", -1) End Sub




Reply With Quote