Ghostscript - 一次打印多個文件

Question

我使用Ghostscrip VB.NET包裝來打印PDF文件，無需在用戶的計算機上安裝GhostScript exe，也不需要Adobe。

它工作得很好。但問題是我需要打印許多文件，並且每當我發送一些文件打印時，我都無法停止默認打印機對話框彈出。

我不介意打印機對話框出現，因爲我希望用戶可以選擇打印機打印，但我無法弄清楚如何將多個文件發送到單個命令的打印。

目的是爲許多文件顯示一次打印機對話框。這是我的代碼：

梯級（ 「 - Q」， 「-dNOPAUSE」， 「-dNoCancel」， 「-dBATCH」， 「-dSAFER」， 「-sDEVICE = mswinpr2」，路徑）

梯級 - 是包裝函數 路徑隨文件路徑而變化。

Answer 1

Ghostscript命令行可以接受多個輸入文件。如果您修改RunGS以獲取可選數量的Path參數並將其傳遞到底層的gswin32c.exe命令行，它應該可以工作。

我用下面的命令，打印文件的2份測試此：

gswin32c -dBATCH -dNOPAUSE -sDEVICE=mswinpr2 file.pdf file.pdf 

我不知道是什麼梯級，但我搜查，發現一前一後在這裏如果有人共享的功能直接與DLL進行交互。如果它是相同的函數，它似乎只是將所有參數直接傳遞給Ghostscript。嘗試添加多個輸入文件，如果是這種情況，它應該可以工作。

的例子，對我的作品：

GhostscriptDllLib.RunGS("-q", "-dNOPAUSE", "-dNoCancel", "-dBATCH", "-dSAFER", "-sDEVICE=mswinpr2", "C:\testing\Test1.pdf", "C:\testing\Test2.pdf") 

Answer 2

謝謝您的幫助。我試過了，但沒有奏效。我使用直接與dll通信的包裝器。這是封裝的模塊：

Option Explicit On 
Imports System.Runtime.InteropServices 

'--- Simple VB.Net wrapper for Ghostscript gsdll32.dll 

' (Tested using Visual Studio 2010 and Ghostscript 9.06) 

Module GhostscriptDllLib 

    Private Declare Function gsapi_new_instance Lib "gsdll32.dll" _ 
     (ByRef instance As IntPtr, _ 
     ByVal caller_handle As IntPtr) As Integer 

    Private Declare Function gsapi_set_stdio Lib "gsdll32.dll" _ 
     (ByVal instance As IntPtr, _ 
     ByVal gsdll_stdin As StdIOCallBack, _ 
     ByVal gsdll_stdout As StdIOCallBack, _ 
     ByVal gsdll_stderr As StdIOCallBack) As Integer 

    Private Declare Function gsapi_init_with_args Lib "gsdll32.dll" _ 
     (ByVal instance As IntPtr, _ 
     ByVal argc As Integer, _ 
     <MarshalAs(UnmanagedType.LPArray, ArraySubType:=UnmanagedType.LPStr)> _ 
     ByVal argv() As String) As Integer 

    Private Declare Function gsapi_exit Lib "gsdll32.dll" _ 
     (ByVal instance As IntPtr) As Integer 

    Private Declare Sub gsapi_delete_instance Lib "gsdll32.dll" _ 
     (ByVal instance As IntPtr) 

    '--- Run Ghostscript with specified arguments 

    Public Function RunGS(ByVal ParamArray Args() As String) As Boolean 

     Dim InstanceHndl As IntPtr 
     Dim NumArgs As Integer 
     Dim StdErrCallback As StdIOCallBack 
     Dim StdInCallback As StdIOCallBack 
     Dim StdOutCallback As StdIOCallBack 

     NumArgs = Args.Count 

     StdInCallback = AddressOf InOutErrCallBack 
     StdOutCallback = AddressOf InOutErrCallBack 
     StdErrCallback = AddressOf InOutErrCallBack 

     '--- Shift arguments to begin at index 1 (Ghostscript requirement) 

     ReDim Preserve Args(NumArgs) 
     System.Array.Copy(Args, 0, Args, 1, NumArgs) 

     '--- Start a new Ghostscript instance 

     If gsapi_new_instance(InstanceHndl, 0) <> 0 Then 
      Return False 
      Exit Function 
     End If 

     '--- Set up dummy callbacks 

     gsapi_set_stdio(InstanceHndl, StdInCallback, StdOutCallback, StdErrCallback) 

     '--- Run Ghostscript using specified arguments 

     gsapi_init_with_args(InstanceHndl, NumArgs + 1, Args) 

     '--- Exit Ghostscript 

     gsapi_exit(InstanceHndl) 

     '--- Delete instance 

     gsapi_delete_instance(InstanceHndl) 

     Return True 

    End Function 

    '--- Delegate function for callbacks 

    Private Delegate Function StdIOCallBack(ByVal handle As IntPtr, _ 
     ByVal Strz As IntPtr, ByVal Bytes As Integer) As Integer 

    '--- Dummy callback for standard input, standard output, and errors 

    Private Function InOutErrCallBack(ByVal handle As IntPtr, _ 
     ByVal Strz As IntPtr, ByVal Bytes As Integer) As Integer 

     Return 0 

    End Function 

End Module 

然後我嘗試運行函數GS，其中參數用逗號分隔。

RunGS("-q", "-dNOPAUSE", "-dNoCancel", "-dBATCH", "-dSAFER", "-sDEVICE=mswinpr2", Path) 

如果我用逗號分隔路徑，沒有任何反應。如果我把路徑放在一起與空白空間分開，無論是。打印不被調用。

Answer 3

本網站上的其他帖子是Simple VB.Net Wrapper for Ghostscript Dll。它也不適用於我。

首先，源代碼進行到InOutErrCallBack方法在這一部分：

gsapi_init_with_args(InstanceHndl, NumArgs + 1, Args) 

當此occurr，執行凍結。發生這種情況後，以橫檔方法的下一個調用這部分返回false：

If gsapi_new_instance(InstanceHndl, IntPtr.Zero) <> 0 Then 
    Return False 
    Exit Function 
End If 

gsapi_new_instance的返回值是-100： Ghostscript API - Return codes

的gswin32.dll是在C：\ Windows \ System32下和BIN項目文件夾。

我寫的其他包裝過了，會發生類似的事情：

Option Explicit On 

Imports System.Runtime.InteropServices 

''' 
''' https://msdn.microsoft.com/en-us/library/aa719104(v=vs.71).aspx 
''' http://www.codeproject.com/Articles/32274/How-To-Convert-PDF-to-Image-Using-Ghostscript-API 
''' http://www.ghostscript.com/doc/current/API.htm 
''' https://stackoverflow.com/questions/16929383/simple-vb-net-wrapper-for-ghostscript-dll 
''' 
Public Class GhostscriptDLLWrapper 

#Region "GhostScript Import" 

    <StructLayout(LayoutKind.Sequential)> _ 
    Public Structure GSVersion 
     Public product As IntPtr 
     Public copyright As IntPtr 
     Public revision As Integer 
     Public revisionDate As Integer 
    End Structure 

    ''' 
    ''' <summary>This function returns the revision numbers and strings of the Ghostscript interpreter library; 
    ''' you should call it before any other interpreter library functions to make sure that the 
    ''' correct version of the Ghostscript interpreter has been loaded.</summary> 
    ''' 
    <DllImport("gsdll32.dll", CharSet:=CharSet.Ansi, EntryPoint:="gsapi_revision")> _ 
    Public Shared Function GsapiRevision(ByRef pVer As GSVersion, ByVal pSize As Integer) As Integer 

    End Function 

    ''' <summary>Create a new instance of Ghostscript.</summary> 
    ''' <param name="pinstance"></param> 
    ''' <param name="caller_handle"></param> 
    ''' <returns>The instance passed to other GS function</returns> 
    <DllImport("gsdll32.dll", CharSet:=CharSet.Ansi, EntryPoint:="gsapi_new_instance")> _ 
    Public Shared Function GsapiNewInstance(_ 
     ByRef instance As IntPtr, _ 
     ByVal caller_handle As IntPtr) As Integer 

    End Function 

    ''' <summary>This will make the conversion</summary> 
    ''' <param name="instance"></param><param name="argc"></param> 
    ''' <param name="argv"></param> 
    ''' <returns>0 if is ok</returns> 
    <DllImport("gsdll32.dll", CharSet:=CharSet.Ansi, EntryPoint:="gsapi_init_with_args")> _ 
    Public Shared Function GsapiInitWithArgs(_ 
     ByVal instance As IntPtr, _ 
     ByVal argc As Integer, _ 
     <MarshalAs(UnmanagedType.LPArray, ArraySubType:=UnmanagedType.LPStr)> _ 
     ByVal argv() As String) As Integer 

    End Function 

    ''' <summary>Exit the interpreter</summary> 
    ''' <param name="instance"></param> 
    ''' <returns></returns> 
    <DllImport("gsdll32.dll", CharSet:=CharSet.Ansi, EntryPoint:="gsapi_exit")> _ 
    Public Shared Function GsapiExit(ByVal instance As IntPtr) As Integer 

    End Function 

    ''' <summary>Destroy an instance of Ghostscript.</summary> 
    ''' <param name="instance"></param> 
    <DllImport("gsdll32.dll", CharSet:=CharSet.Ansi, EntryPoint:="gsapi_delete_instance")> _ 
    Public Shared Function GsapiDeleteInstance(ByVal instance As IntPtr) 

    End Function 

#End Region 

End Class 

我把這樣這些方法：

'https://stackoverflow.com/questions/16929383/simple-vb-net-wrapper-for-ghostscript-dll 
'Shift arguments to begin at index 1 (Ghostscript requirement) 
'Initialise the interpreter. This calls gs_main_init_with_args() in imainarg.c. See below for return codes. 
'The arguments are the same as the "C" main function: argv[0] is ignored and the user supplied arguments are argv[1] to argv[argc-1]. 
Dim argsCount As Integer = args.Length 
ReDim Preserve args(argsCount) 
System.Array.Copy(args, 0, args, 1, argsCount) 

SyncLock SyncRoot 
    Dim gsInstance As IntPtr 
    Dim result As Integer 
    result = GhostscriptDLLWrapper.GsapiNewInstance(gsInstance, IntPtr.Zero) 
    If (result = 0) Then 
     Try 
      result = GhostscriptDLLWrapper.GsapiInitWithArgs(_ 
      gsInstance, _ 
      args.Length, _ 
      args _ 
      ) 

      If (result < 0) Then 
       Throw New InvalidOperationException("Erro ao converter páginas do PDF em imagens PNG") 
      End If 

      If File.Exists(outputImgPath) Then 
       objFileStream = New FileStream(outputImgPath, FileMode.Open) 
       Dim length As Int32 = objFileStream.Length 
       Dim bytes(length) As Byte 
       objFileStream.Read(bytes, 0, length) 
       objFileStream.Close() 

       objMemoryStream = New MemoryStream(bytes, False) 

       objImages.Add(Image.FromStream(objMemoryStream)) 
      Else 
       Throw New InvalidOperationException("Erro ao converter páginas do PDF em imagens PNG") 
      End If 
     Catch ex As Exception 
      Throw New InvalidOperationException("Erro ao converter páginas do PDF em imagens PNG", ex) 
     End Try 
    End If 

    GhostscriptDLLWrapper.GsapiExit(gsInstance) 
    GhostscriptDLLWrapper.GsapiDeleteInstance(gsInstance) 
End SyncLock 

我的參數序列：

Dim outputImgPath As String 
outputImgPath = "C:\Download\DocumentosV2\Protocolo\Pronunciamento\" + Guid.NewGuid.ToString("N") + ".png" 

Dim args() As String = { _ 
    "-dNOPAUSE", _ 
    "-dBATCH", _ 
    "-dSAFER", _ 
    "-dQUIET", _ 
    "-sDEVICE=png16m", _ 
    String.Format("-r{0}", resolucao), _ 
    "-dTextAlphaBits=2", _ 
    "-dGraphicsAlphaBits=2", _ 
    String.Format("-dFirstPage={0}", pageNumber), _ 
    String.Format("-dLastPage={0}", pageNumber), _ 
    String.Format("-sOutputFile={0}", outputImgPath), _ 
    "-f", _ 
    pdfPath _ 
    }