- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]设置默认纸张失败 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83285)
-- 发布时间：2016/4/5 22:43:00
-- [求助]设置默认纸张失败
用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
-- 发布时间：2016/4/5 22:45:00
--
PaperKind的值是没有错的
此主题相关图片如下：qq截图20160405224431.jpg
-- 发布时间：2016/4/5 23:02:00
--
试试这样，如果还不行，你改成常用的，如 8、9的看行不行。
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
Book.Build() \'生成细节区
Dim sheet As XLS.Sheet = book.Sheets(0)
With sheet.PrintSetting
.PaperKind = 258
End With
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()