>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 ox >>