用PaperKind设置纸张，结果是失败的，有没有其他办法可以设置纸张？
‘---------------------
Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("Gprinter GP-9034T")
'Functions.Execute("打开报表",e,c.Value)
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & c.Value)
Dim fl As String = ProjectPath & "Reports\" & c.Value
Dim sheet As XLS.Sheet = book.Sheets(0)
With sheet.PrintSetting
.PaperKind = 258
End With
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
此主题相关图片如下：qq截图20160405223803.jpg
加好友 
发短信
Post By：2016/4/5 22:43:00 [只看该作者]
