The simple function is below. the logic worked perfectly in com version 5 but I am getting an error of "Object doesn't support this property or method". Its the gdviewer1.print line which is throwing the error.
Our development system is Windows 7 64bit, using Microsoft Access 2010, running the newest version of gdpicture. The function is below:
Code: Select all
Private Sub print_one_Click()
On Error GoTo Handler_Err
If Print_cancel = False Then 'ok to use viewer to print
If GdViewer1.PrintSetActivePrinter(Application.Printer.DeviceName) Then
Me!xresponse.Caption = ""
GdViewer1.PrintSetFromToPage GdViewer1.CurrentPage, GdViewer1.CurrentPage
GdViewer1.Print
Else
Me!xresponse.Caption = "Unable to set printer"
End If
End If
Handler_Exit:
Exit Sub
Call err_log_entry(Err.Number, Err.Description, "image pop print 1")
Resume Handler_Exit
End Sub