[求助]EXCEL报表直接指定打印机和边距打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求代码

需求功能如题：想在以下功能上改进为直接指定打印机 FX DocuCentre 用A5纸居中打印（现状有多台打印机，每次都需要选定打印机很麻烦）

Dim Book As New XLS.Book(ProjectPath & "Attachments\产品标签.xls")

Dim fl As String = ProjectPath & "Reports\_产品标签.xls"

Book.Build() '

Book.Save(fl) '

Dim Proc As New Process '

Proc.File = fl

Proc.Verb = "Print"

Book.Save(fl) '

Proc.Start()

syscmd.Row.Lock()

Syscmd.Row.HideSelectedRows()

Tables("bqdy_bq").AddNew()

[此贴子已经被作者于2018/6/13 13:14:58编辑过]

主题：[求助]EXCEL报表直接指定打印机和边距打印