试试这样，如果还不行，你改成常用的，如 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()
加好友 
发短信
Post By：2016/4/5 23:02:00 [显示全部帖子]
