主题：如何让保存的PDF文件，刚好在1页的A4的页面内

请问狐爸，如何让保存的PDF文件，刚好在A4的页面内呢 利用教程中的代码： Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") Dim fl As String = ProjectPath & "Reports\出库单.pdf" Book.Build() '生成细节区 Book.SaveToPDF(fl) '保存为PDF文件 Dim Proc As New Process '打开PDF文件 Proc.File = fl Proc.Start() 保存为 EXCEL 和PDF ,一切OK。就是保存的PDF，（要求一页之内），可总是出了位（为二页） 请问狐爸：能不能写个代码，让它保存为一页的PDF呢，谢谢。

调了很多次了，那E表模板。 总是欠缺。

E表的打印设置，是调好的了，也调整了打印绽放比例，可这次就是不行 了（以前没有过的，包抱WORD转PDF） 我在想想看看，谢谢你们