找回密码
 立即注册

QQ登录

只需一步,快速开始

离谱

注册会员

2

主题

8

帖子

38

积分

注册会员

积分
38
最新发帖
离谱
注册会员   /  发表于:2021-4-29 18:33  /   查看:3616  /  回复:8
1金币
本帖最后由 Crystal.Li 于 2021-4-29 18:40 编辑

在富文本框中使用一下语句获取数据库中的信息,信息中包含中文和英文,将英文设置成Times New Roman,中文设置成宋体
="<body><p style='font-size:11pt;font-family:Times New Roman,宋体><span> "+Fields!Result.Value +"</span></p></body>"
输出的word文件字体没问题,但是输出的pdf的中文字体不是宋体,是图中这种奇怪的字体,请问怎么解决
附件: 您需要 登录 才可以下载或查看,没有帐号?立即注册

最佳答案

查看完整内容

Function ziti1(ByVal state As String) As String dim s as string s = state Dim i As Long Dim temps As String Dim tempall As String For i = 1 To len(s) temps=Mid(s, i, 1) If asc(temps) < 0 Then tempall = tempall + "" + temps + "" Else tempall = tempall + "" + temps + "" End If Next Return tempall End Function 暂时用的这个脚本,不知道还有没有其他方法

8 个回复

倒序浏览
最佳答案
最佳答案
离谱
注册会员   /  发表于:2021-4-29 18:33:31
来自 6#
Function ziti1(ByVal state As String) As String
        dim s as string
        s = state
        Dim i As Long
        Dim temps As String
        Dim tempall As String
        For i = 1 To len(s)
                temps=Mid(s, i, 1)
                If asc(temps) < 0 Then
                        tempall = tempall + "<span style='font-family:宋体'>" + temps + "</span>"
                Else
                        tempall = tempall + "<span style='font-family:Times New Roman'>" + temps + "</span>"
                End If
        Next
        Return tempall
End Function


暂时用的这个脚本,不知道还有没有其他方法

评分

参与人数 1金币 +500 收起 理由
Crystal.Li + 500 很给力!

查看全部评分

回复 使用道具 举报
Crystal.Li讲师达人认证 悬赏达人认证
论坛元老   /  发表于:2021-4-29 18:40:31
2#
您将这个改为全部嵌入试试:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 使用道具 举报
离谱
注册会员   /  发表于:2021-4-29 18:44:22
3#
希望解决问题的是富文本框中Html的同一标签下设置两种字体的问题,一般来说Times New Roman没有中文字体,中文的应该直接适用后面设置的宋体
回复 使用道具 举报
离谱
注册会员   /  发表于:2021-4-29 19:01:25
4#
Crystal.Li 发表于 2021-4-29 18:40
您将这个改为全部嵌入试试:

已经设为全部了,导出的pdf还是那样,‘疾病简介’四个字的style是ont-family:宋体;  ,下面这行的style是font-family:Times New Roman,宋体;

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 使用道具 举报
离谱
注册会员   /  发表于:2021-4-30 09:59:27
5#
Crystal.Li 发表于 2021-4-29 18:40
您将这个改为全部嵌入试试:

我用脚本解决了,感谢回答
回复 使用道具 举报
Crystal.Li讲师达人认证 悬赏达人认证
论坛元老   /  发表于:2021-4-30 11:06:15
7#
离谱 发表于 2021-4-29 18:33
Function ziti1(ByVal state As String) As String
        dim s as string
        s = state

这个问题目前这样解决是最好的。
我们验证了下,可能是个bug,我们这边再确认下,如果是bug会尽快反馈给研发团队~~
回复 使用道具 举报
离谱
注册会员   /  发表于:2021-4-30 11:11:21
8#
Crystal.Li 发表于 2021-4-30 11:06
这个问题目前这样解决是最好的。
我们验证了下,可能是个bug,我们这边再确认下,如果是bug会尽快反馈给 ...

好的,谢谢
回复 使用道具 举报
Crystal.Li讲师达人认证 悬赏达人认证
论坛元老   /  发表于:2021-4-30 12:12:56
9#

不客气哦~
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部