上一篇：和俺一起玩专业报表 1 

第二篇：

目的：汉化打印预览控件

作用：汉化打印预览控件

效果：

此主题相关图片如下：无标题.jpg

 步骤：

一、建立一个自定义函数（我的叫MyRDLChinesization）

二、写入代码

\'用于汉化MyRDL的界面
If _MyRDL Is Nothing Then Return Nothing

With _MyRDL

    .OutlineViewCaption = "大纲"
    .ThumbnailViewCaption = "页面"   
   

    .PreviewTextSearchPanel.FindWhatText = "查找:"
     .PreviewTextSearchPanel.HideButt       

    .PreviewTextSearchPanel.MatchCaseText = "模糊匹配"
    .PreviewTextSearchPanel.MatchWordText = "完全匹配"
    .PreviewTextSearchPanel.PageCapti

    .PreviewTextSearchPanel.SearchButt

    .PreviewTextSearchPanel.SearchUpText = "向上查找"
    .PreviewTextSearchPanel.TextCapti

    .ToolBars.File.Open.ToolTipText = "打开文件"  
    .ToolBars.File.PageSetup.ToolTipText = "页面设置"
    .ToolBars.File.Print.ToolTipText = "打印"
    .ToolBars.File.Save.ToolTipText = "保存文件"
    .ToolBars.Navigation.GoFirst.ToolTipText = "首页面"  
    .ToolBars.Navigation.GoLast.ToolTipText = "尾页"  
    .ToolBars.Navigation.GoNext.ToolTipText = "后翻页"   
    .ToolBars.Navigation.GoPrev.ToolTipText = "前翻页"   
    .ToolBars.Navigation.HistoryNext.ToolTipText = "后退到"   
    .ToolBars.Navigation.HistoryPrev.ToolTipText = "前进到"        
    .ToolBars.Page.Continuous.ToolTipText = "连续"  
    .ToolBars.Page.Facing.ToolTipText = "并列"
    .ToolBars.Page.FacingContinuous.ToolTipText = "全景"  
    .ToolBars.Page.Single.ToolTipText = "单页"  
    .ToolBars.Text.Find.ToolTipText = "查找文本"  
    .ToolBars.Text.Hand.ToolTipText = "手型"  
    .ToolBars.Text.SelectText.ToolTipText = "选择"  
    .ToolBars.Zoom.ZoomIn.ToolTipText = "Zoom In"   
    .ToolBars.Zoom.ZoomOut.ToolTipText = "Zoom Out"
      
End With

不知道咋回事，代码粘贴不全，特附 自定义函数的文本

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 文本文档 (2).txt

窗口1的AfterLoad事件 再 加入

Functions.Execute("MyRDLChinesization") \'汉化

现在看一下窗口1的界面

粘贴不上去啊，加空格也没用

自动给截断了