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?

From VBA help file:

Private Sub UserForm_Click()
UserForm1.PrintForm
End Sub




"Alberto Ast" wrote in message
...
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?

Thanks... it does not print as good as previous function but it does it as
requeste...


"JLGWhiz" wrote:

From VBA help file:

Private Sub UserForm_Click()
UserForm1.PrintForm
End Sub




"Alberto Ast" wrote in message
...
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?


.