A
Alberto Ast
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?
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?