I learn how to print a text as follows

Private Sub CommandButton3_Click()
Dim intOutFile As Integer 'number for the output file
intOutFile = FreeFile 'get a file number
Open "c:\temp\temp.txt" For Output As intOutFile
Print #intOutFile, Print_Dev.TextBox1.Text
Close intOutFile
Shell "c:\windows\notepad.exe /P c:\temp\temp.txt"
Kill "c:\temp\temp.txt" 'delete the file if desired
End Sub

Now I would like to print an image as well... I tried modifying this

Print #intOutFile, Print_Dev.TextBox1.Text

for this

Print #intOutFile, Print_Dev.image1.picture, Print_Dev.TextBox1.Text

but did not work... it just print a series of numbers.

Any idea?