主题：如何让保存的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呢，谢谢。