VB.NET 打开并打印一个excel文件答案

【问题标题】：VB.NET open and print an excel fileVB.NET 打开并打印一个excel文件
【发布时间】：2013-09-30 03:05:07
【问题描述】：

我正在为一家小型印刷企业开发一个简单的 VB.NET 桌面应用程序。它有一个主 WinForm、打开 JPG/PDF/Word/Excel 文件的按钮、打开相关程序、打印文件、捕获假脱机作业，最后根据打印机名称、页数向用户收费，页面大小和每页成本。没什么大不了。宿主机为Win7操作系统。

当用户想要打印 XLS 文件时，我希望应用程序打开 Excel 2010，打开之前使用文件对话框选择的文件。当 Excel 打开时，直接进入打印对话框，然后当作业完成加载到假脱机中时，我会捕获该事件并 KILL Excel 进程。

我的问题是：

我无法直接打开 Excel 到打印对话框。 Excel 确实响应“打印”动词。但它只是使用默认打印机打印。我希望它打开并转到打印对话框。我不想只使用默认打印机打印，我确实需要允许用户选择所需的打印机、页面、副本等。

我正在尝试使用以下代码：

   Dim openFileDialog1 As New OpenFileDialog()
   Dim filePath As String = ""
   Dim startInfo As ProcessStartInfo

    'openFileDialog1.InitialDirectory = "c:\"
    openFileDialog1.Filter = "XLS Files (*.xls)|*.xls|XLSX Files (*.xlsx)|*.xlsx|All files (*.*)|*.*"
    openFileDialog1.FilterIndex = 1
    openFileDialog1.RestoreDirectory = True

    If (DialogResult.OK) = openFileDialog1.ShowDialog(Me) Then
        filePath = openFileDialog1.FileName
    Else
        Exit Sub
    End If

    startInfo = New ProcessStartinfo(rutaArchivo)

    With startInfo
            .FileName = filePath 
                .WindowStyle = ProcessWindowStyle.Normal 
            .Verb = "print"
            .CreateNoWindow = False
            .UseShellExecute = True

    End With

    Try
        System.Diagnostics.Process.Start(startInfo)

    Catch ex As Exception
        MsgBox(ex.ToString)

    End Try

IDE 是 SharpDevelop 4.3。框架是 .NET 4.0 客户端配置文件。操作系统是Win7。

非常感谢:)

【问题讨论】：

标签： vb.net excel printing sharpdevelop

【解决方案1】：

MS Excel 只有以下命令行开关：Excel Switches

要做你想做的事，你可以看看Excel Interop

【讨论】：

【解决方案2】：

您应该可以通过首先打开打印对话框然后使用带有“PrintTo”动词的打印机来执行此操作，如下所示：

Dim openFileDialog1 As New OpenFileDialog()
    Dim filePath As String = ""
    Dim startInfo As ProcessStartInfo

    'openFileDialog1.InitialDirectory = "c:\"
    openFileDialog1.Filter = "XLS Files (*.xls)|*.xls|XLSX Files (*.xlsx)|*.xlsx|All files (*.*)|*.*"
    openFileDialog1.FilterIndex = 1
    openFileDialog1.RestoreDirectory = True

    If (DialogResult.OK) = openFileDialog1.ShowDialog(Me) Then
        filePath = openFileDialog1.FileName
    Else
        Exit Sub
    End If

    Dim printer As String = ""
    Dim printDialog As New PrintDialog()

    If printDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
        printer = printDialog.PrinterSettings.PrinterName
    End If


    startInfo = New ProcessStartInfo(filePath)

    With startInfo
        .WindowStyle = ProcessWindowStyle.Normal
        .Verb = "PrintTo"
        '.Arguments = """\\" & System.Net.Dns.GetHostName() & "\" & printer & """"
        .Arguments = """" & printer & """"
        .CreateNoWindow = False
        .UseShellExecute = True

    End With

    Try
        System.Diagnostics.Process.Start(startInfo)

    Catch ex As Exception
        MsgBox(ex.ToString)

    End Try

您可能必须在参数中包含服务器（注释行）。

【讨论】：