execl没用过这种打印，不懂。自己打开execl试试了
Dim Book As New XLS.Book(ProjectPath & "Attachments\1.xls")
Dim fl As String = ProjectPath & "Reports\1.pdf"
Book.Build() '生成细节区
Book.SaveToPDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()
出错了 文件都有的