>> >>RepoWin = Createobject("RepoForm") >>RepoWin.Caption = "[Report] : " + Juststem(lcFileName) >> >>lcOutPut = "PREVIEW" >>If "PRINTER" $ lcOutPut >> Report Form GetFullReportPath(lcFileName) To Printer NOCONSOLE >>Else >> RepoWin.WindowState = 2 >> RepoWin.Name = "RepoWin" >> RepoWin.Visible = .T. >> Report Form GetFullReportPath(lcFileName) &lcOutPut Window RepoWin >>EndIf >> >>Define Class RepoForm As Form >> BorderStyle = 3 >> BackColor = Rgb(255,255,255) >> ControlBox = .F. >> MaxButton = .F. >> MinButton = .F. >> Closable = .T. >> ZoomBox = .T. >> ScrollBars = 2 >> Left = 0 >> Top = 0 >> AutoCenter = .T. >> Visible = .F. >>Enddefine >> >>>