Ever since we upgraded to v 8.1 we've had problems printing reports on some machines, while on other machines it prints fine.
Here is the code that is used to print the report
Dim Report
Dim objReportMV
Set Report = Application.BasicFunctions.GetCrystalReport("Personal:Opp Delivery Recipt")
Report.DiscardSavedData
Report.RecordSelectionFormula = "{UN_PURCHASEORDER:UN_PURCHASEORDERID} = '" & dgOppPurchaseOrders.GetCurrentField("Un_PurchaseOrderId") & "'"
set objReportMV = Application.MainViews.Add("System:SLX Crystal Report Viewer",0,False)
objReportMV.Caption = "Delivery Reciept"
objReportMV.height = 600
objReportMV.width = 800
'objReportMV.Show
Application.BasicFunctions.ProcessWindowMessages
objReportMV.DetailsView.Script.Display Report
Set Report = Nothing
Set objReportMV = Nothing
Here is the error message
An error occurred executing active form script
Object required:'Report'
Not sure why it works for some machines and not others. |