Forum Post: Problem with automating Sales Order Printing

Hello community!  I am stuck with this code.  What could be the problem? Dim retVal As Integer Dim oScript As ProvideX.Script Dim oSS As ProvideX.PvxDispatch Dim soPrint As ProvideX.PvxDispatch oScript = New ProvideX.Script oScript.Init("\\sage100\Sage 100 Premium ERP\MAS90\Home") oSS = oScript.NewObject("SY_SESSION") oSS.nSetUser("DM", "dannys") oSS.nSetCompany("XYZ") oSS.nSetModule("S/O") Dim today1 As String = Format(Now.Year, "0000") + Format(Now.Month, "00") + Format(Now.Day, "00") oSS.nSetDate("S/O", today1) oSS.nSetProgram(oSS.nLookupTask("SO_SalesOrderPrinting_UI")) soPrint = oScript.NewObject("SO_SalesOrderPrinting_rpt", oSS) retVal = soPrint.nSelectReportSetting("MSI") retVal = soPrint.nSetKeyValue("ReportSetting$", "MSI") retVal = soPrint.nSetKeyValue("RowKey$", "1") retVal = soPrint.nSetKey() ----Error here: "The S/O0000000002SO_SALESORDERPRINTING_UI MSI 00001 is invalid." retVal = soPrint.nSetValue("SelectField$", "Order Number") retVal = soPrint.nSetValue("SelectFieldValue$", "Order Number") retVal = soPrint.nSetValue("Tag$", "TABLE=SO_SALESORDERHEADER; COLUMN=SALESORDERNO$") retVal = soPrint.nSetValue("Operand$", "=") retVal = soPrint.nSetValue("Value1$", "0055284") retVal = soPrint.nWrite() retVal = soPrint.nProcessReport("PREVIEW") ----Error here: "Data is not selected for report printing." soPrint = Nothing oSS.nCleanUp() oSS.DropObject()