Print Document in VB6

Hello friends,

After a long time I have been back to vb6. I have worked with PrintDocument in vb.net. Tell me is there any control which can work same as PrintDocument of vb.net.

Actually I want to create no. of pages at a time and when user clicks print button then all pages should be printed automatically.


Thanks in advance.

Typically I use the ShellExecute API

Code:

---

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 Command1_Click()
Dim PrintIt As Long
PrintIt = ShellExecute(Me.hwnd, "PRINT", "C:\My Documents\ishrar.Doc", "", "", -1)
End Sub

---