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文件,但是打开时,中文字符显示的是怪字符
能解决的话,我加分!
谢谢大家