以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何加入指定打印机的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17760)
--  作者：红叶
--  发布时间：2012/3/23 11:44:00
--  [求助]如何加入指定打印机的代码

如何在以下代码中的打印前加入指定打印机的代码

            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" \'指定动作
            \'CurrentTable.PrintSetting() \'打开打印机设置对话框
            Proc.Start()
--  作者：狐狸爸爸
--  发布时间：2012/3/23 11:50:00
--  
没有办法。
--  作者：blackzhu
--  发布时间：2012/3/23 12:39:00
--  
用EXCEL  vba写帮助里有.
--  作者：红叶
--  发布时间：2012/3/23 13:00:00
--  
以下是引用blackzhu在2012-3-23 12:39:00的发言：
用EXCEL  vba写帮助里有.

大侠，我不会写呀，麻烦帮写一个
--  作者：飞
--  发布时间：2012/3/23 13:07:00
--  
返回或设置活动打印机的名称。String 类型，可读写。

语法

表达式.ActivePrinter

表达式 一个代表 Application 对象的变量。

示例

本示例显示活动打印机的名称。

Visual Basic for Applications
MsgBox "The name of the active printer is " & _
    Application.ActivePrinter

? 2010 Microsoft Corporation。保留所有权利。
--  作者：红叶
--  发布时间：2012/3/23 13:12:00
--  
感谢楼主的帮助，抱歉实在看不懂，麻烦楼主根据1楼的代码给我定一个按指定的打印机打印的代码，非常感谢！
--  作者：红叶
--  发布时间：2012/3/23 13:43:00
--  
 这个是以前收藏楼主的一段代码，但是不理解，麻烦楼主把代码中的红色部分帮作一下注解：

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")

Dim fl As String =ProjectPath & "Reports\\出库单.xls"

Book.Build()

Book.Save(fl) \'保存工作簿

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim Rg As MSExcel.Range

Rg = Ws.Range("C7")

Rg.EntireColumn.AutoFit   \'自动调整列宽

Rg.EntireRow.AutoFit

rg .WrapText =True \'引用单个单元格

App.Visible = True

Ws.printout(Preview:=True,ActivePrinter:="pdfFactory Pro")

App.Quit
--  作者：程兴刚
--  发布时间：2012/3/23 13:44:00
--  
专业报表可以自己指定，excel报表打开后在excel里面设置，没有办法！
--  作者：blackzhu
--  发布时间：2012/3/23 17:13:00
--  

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")

Dim fl As String =ProjectPath & "Reports\\出库单.xls"

Book.Build()

Book.Save(fl) \'保存工作簿

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.printout(Preview:=True,ActivePrinter:="你的打印机名字")  \'预览加指定打印机

App.Quit
--  作者：blackzhu
--  发布时间：2012/3/23 17:13:00
--  
就这样可以了,你试试