rlist=CREATEOBJECT("reportlistener") rlist.listenertype=1 rlist.PreviewContainer.caption=mytitle &&-- I added it after you said. but not anything changed WITH rlist.PreviewContainer.oForm .Caption=mytitle .Toolbar.Caption=caption("Rapor Ekrani Arac Cubugu") .Toolbar.cntPrev.CmdTop.ToolTipText=caption("Ilk sayfa") .Toolbar.cntPrev.CmdBack.ToolTipText=caption("Onceki sayfa") .Toolbar.cntNext.CmdBottom.ToolTipText=caption("Son sayfa") .Toolbar.cntNext.CmdForward.ToolTipText=caption("Sonraki sayfa") .Toolbar.cmdGoToPage.ToolTipText=caption("Sayfaya git") .Toolbar.CboZoom.ToolTipText=caption("Sayfa boyunu sec") .Toolbar.cmdPrint.ToolTipText=caption("Yazdir") .Toolbar.cmdClose.ToolTipText=caption("Kapat") .Toolbar.OpgPageCount.Opt1.ToolTipText=caption("Tek sayfa") .Toolbar.OpgPageCount.Opt2.ToolTipText=caption("Iki sayfa") .Toolbar.OpgPageCount.Opt3.ToolTipText=caption("Dort sayfa") ENDWITH