- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 保存为PDF 汉字是乱码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176725)
-- 发布时间：2022/4/24 17:27:00
-- 保存为PDF 汉字是乱码
此主题相关图片如下：企业微信截图_20220424172857.png
Dim
fl
As
String =
"c:\\data\\test.pdf"
Dim
doc As
New
PrintDoc
Dim
ra
As
New
prt.RenderArea
doc.PageSetting.Width
=
150
doc.PageSetting.Height
=
80
ra.Width
=
"Parent.Width"
ra.Height
=
"Parent.Height"
ra.Style.Borders.All
= New
prt.Linedef(5,
Color.Red)
doc.Body.Children.Add(ra)
doc.SavePDF(fl)
\'保存为PDF文件
Dim
Proc
As
New
Process
\'打开PDF文件
Proc.File
=
fl
Proc.Start()
[此贴子已经被作者于2022/4/24 17:29:24编辑过]
-- 发布时间：2022/4/24 17:32:00
--
专业报表使用了特殊的字体，改为宋体之类常见的字体
-- 发布时间：2022/4/24 17:43:00
--
没有特意设置过字体 就是设置了加粗
Dim doc As New PrintDoc
Dim rt As Prt.RenderTable
Dim rx As prt.RenderText \'定义一个文本对象
Dim rm As New prt.RenderImage() \'定义一个图片对象
\'\'加入标题
rx = New prt.RenderText
rx.Text = "湖南全案家居美学馆销售单 "
rx.Style.FontBold = True \'字体加粗
rx.Style.FontSize = 16 \'大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列
rx.Style.Spacing.Top = 3 \'和下面的对象(表格)距离3毫米
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) \'加入到报表中
Dim rt As Prt.RenderTable
Dim rx As prt.RenderText \'定义一个文本对象
Dim rm As New prt.RenderImage() \'定义一个图片对象
\'\'加入标题
rx = New prt.RenderText
rx.Text = "湖南全案家居美学馆销售单 "
rx.Style.FontBold = True \'字体加粗
rx.Style.FontSize = 16 \'大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列
rx.Style.Spacing.Top = 3 \'和下面的对象(表格)距离3毫米
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) \'加入到报表中
全部加入了指定字体 可以了
[此贴子已经被作者于2022/4/24 18:11:38编辑过]