cCommand = [Report Form ] + Thisform.cReportToPrint Do Case Case 'TO PRINTER' $ Upper(Thisform.cPrintTo) Set REPORTBEHAVIOR 90 ox = CREATEOBJECT('ReportListener') ox.AllowModalMessages = .T. ox.DynamicLineHeight = .T. ox.ListenerType = 0 ox.PrintJobName = 'VfpFleetJob' ox.QuietMode = .T. cCommand = cCommand + [ OBJECT ox] &cCommand ox = Null Release oxIt does work in the debugger though.