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