Dim Fname As String
'DG1为对话框控件
Dg1.ShowSave
Fname = Dg1.FileName
If Fname = "" Then
Exit Sub
Else
'VP1为当前VSPRINT控件
VSPDF1.ConvertDocument VP1, Fname
MsgBox ("数据导出完毕")
Exit Sub
End If代码可以顺利导出PDF文件,但是打开时,中文字符显示的是怪字符
能解决的话,我加分!
谢谢大家
'DG1为对话框控件
Dg1.ShowSave
Fname = Dg1.FileName
If Fname = "" Then
Exit Sub
Else
'VP1为当前VSPRINT控件
VSPDF1.ConvertDocument VP1, Fname
MsgBox ("数据导出完毕")
Exit Sub
End If代码可以顺利导出PDF文件,但是打开时,中文字符显示的是怪字符
能解决的话,我加分!
谢谢大家
学习^
vspdf好像不支持unicode,有些老的PDF生成工具也不支持中文,好像是里面没有所用字体的描述。
我试过改变vsprint的字体,生成的PDF有所变化,但仍然是怪字符。