- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打印pdf问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118085)
-- 发布时间：2018/4/24 21:44:00
-- 打印pdf问题
请教下，利用如下代码来生成pdf文件
此主题相关图片如下：代码.png
产生的pdf文档借入如下图
此主题相关图片如下：错误.png
1，如何设置才能使文档产生缩放，a，让所有内容在一页。 b，让所有列在一页， c，让所有行在一列
2，如何设置页面的横向 or 纵向
谢谢
-- 发布时间：2018/4/24 22:04:00
--
1、上传模板看看
-- 发布时间：2018/4/24 22:10:00
--
这是模板麻烦看下，我看你您发我的帮助，貌似无法解决我的问题呢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:业务采购单导出打印模板.xls |
-- 发布时间：2018/4/24 22:28:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\业务采购单导出打印模板.xls")
Dim fl As String = ProjectPath & "出库单.pdf"
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
With Sheet.PrintSetting
.LandScape = True \'横向打印
.AutoScale = True \'自动缩放
.FitPagesAcross = 1 \'垂直方向缩为1页
End With
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()