I have a VB application that prints a report from an Access Database. The only trouble I'm having is printing the CustSign field which is an OLE Object (a jpeg image of the Customer's signature). The report prints out beautifully, just without the signature. Here's the code. Thanks in advance.
Dim AA As Access.Application
Dim mcat As ADOX.Catalog
Dim mview As ADOX.View
Dim cmd As ADODB.Command
Set AA = New Access.Application
AA.OpenCurrentDatabase DBLocation
Set mcat = New ADOX.Catalog
Set mcat.ActiveConnection = db 'Database
Set mview = mcat.Views("heat"
Set cmd = mview.Command
cmd.CommandText = "SELECT CustNum,CustSign,CAddress,CCity,CState,CZip FROM Customers WHERE CustNum = '" & Text1.Text & "'"
Set mview.Command = cmd
Set mview = Nothing
Set cmd = Nothing
Set mcat = Nothing
If chkUpdate = 1 Then 'Print the report
AA.DoCmd.OpenReport "heat"
End If
AA.Quit
Set AA = Nothing
Dim AA As Access.Application
Dim mcat As ADOX.Catalog
Dim mview As ADOX.View
Dim cmd As ADODB.Command
Set AA = New Access.Application
AA.OpenCurrentDatabase DBLocation
Set mcat = New ADOX.Catalog
Set mcat.ActiveConnection = db 'Database
Set mview = mcat.Views("heat"
Set cmd = mview.Command
cmd.CommandText = "SELECT CustNum,CustSign,CAddress,CCity,CState,CZip FROM Customers WHERE CustNum = '" & Text1.Text & "'"
Set mview.Command = cmd
Set mview = Nothing
Set cmd = Nothing
Set mcat = Nothing
If chkUpdate = 1 Then 'Print the report
AA.DoCmd.OpenReport "heat"
End If
AA.Quit
Set AA = Nothing