需要一种可以驱动两台打印机的快速编程语言

Question

Closed. This question is seeking recommendations for software libraries, tutorials, tools, books, or other off-site resources. It does not meet Stack Overflow guidelines. It is not currently accepting answers.

---

我们不允许提出寻求软件库、教程、工具、书籍或其他场外资源推荐的问题。您可以编辑问题，以便用事实和引文来回答。

2 年前已关闭。

Answer 1

作为一名 Python 程序员，我会使用类似 MSWinPrint.py 的东西，并直接使用Python。看起来它支持文本和图像，您可以轻松地通过名称选择系统中的任何打印机。

您需要：

1. 安装Python。
2. 安装Python for Windows 扩展。
3. 安装 PIL。
4. 安装MSWinPrint。

然后，您需要编写一个程序来进行打印。像下面这样的东西。

#python
import sys
import Image, ImageWin
import MSWinPrint

# workaround for PIL namespace change
MSWinPrint.ImageWin = ImageWin

def print_name(name, printer_name):
    doc = MSWinPrint.document(printer_name)
    doc.begin_document('nametag for %s' % name)
    # print the name at position 20,20
    text_pos = 20, 20
    doc.text(text_pos, name)
    # add an image for this person
    img_pos = 40, 40
    img_size = 100, 100
    doc.image(img_pos, get_image(), img_size)
    doc.end_document()

def get_image():
    image_filename = 'my image.jpg'
    return Image.open(image_filename)

if __name__ == '__main__':
    name, printer_name = sys.argv[1:]
    print_name(name, printer_name)

如果将其保存为 print_tag.py，则可以使用两个命令行参数（要打印的名称和图像文件名）执行它。

print_tag.py Sally "EPSON Artisan 810"

我运行了这段代码，效果很好。我不知道创建自定义打印作业会如此简单。

当然，您可以在任意数量的打印机上任意频繁地运行该程序。当然，您还可以做更多的事情来自定义打印作业的运行时间和方式。您可以自定义代码以始终运行并解释鼠标单击（为此您可能需要 wxPython），或者您可能有另一个只执行脚本的程序。

Answer 2

正如其他人所说，编程语言不会产生太大的影响。然而（这是一个很大的问题），大多数脚本语言（例如 VBA 和 .NET）中内置的打印库要么只支持打印到系统默认打印机（最常见，并且不能通过同时打开两个实例来解决） ，因为系统默认打印机是全局设置）或要求您配置一个全局变量来指定活动打印机（这仅影响一个进程，因此可以使用两个实例来解决）。

相反，您必须直接调用 Windows API。它肯定允许直接打印到系统上的任何打印机。 以下是如何使用默认打印机的示例。 请注意，仅一行代码（调用 GetDefaultPrinter 函数）将其与默认打印机联系起来。向 CreateDC 提供不同的打印机名称将为您提供不同的打印机。

如果您改为调用 EnumPrinters 函数，您可以找到任何或所有打印机名称，而不仅仅是默认名称。或者让管理员预先配置要在注册表设置或文本文件中使用的打印机名称。

在任何情况下，您都可以同时打开所有打印机的设备上下文。当然，一旦获得打印机设备上下文，您就必须创建打印作业、发送内容并结束打印作业。 MSDN 上提供了大量信息。

所有示例均以 C 语言编写，这使得 C++ 成为打印到非默认打印机的明显语言，但只要您知道如何从您的语言调用 WinAPI 函数，您就可以使用它。在 VBA 中，这需要声明 Function XYZ Lib "gdi32"（此处为参数）

Answer 3

这不是编程语言的问题，只是您所使用的打印机堆栈的限制。

我不确定 .NET 是否支持它（或 Windows）是否支持在线程上发送打印。您可以将每台打印机置于其自己的线程中，并阻止 UI 接受更多打印请求。

您还可以尝试为两台打印机打开后台打印。这将在本地渲染它并返回然后打印。

Answer 4

几年前，我写了一些东西（在 VB6 中，因此可能很容易移植到 VBA），绕过打印机驱动程序（必须设置打印机，但实际使用的驱动程序无关）并向打印机发送原始命令。根据您使用的打印机类型，这可能是也可能不是问题（有些使用复杂的转义序列）。如果您想打印图形，这可能会增加另一层复杂性 - 尽管如果您知道打印机支持哪些命令就可以完成。我设法在点阵打印机上打印位图，但这不是一个 5 分钟的任务。如果您对此感兴趣，我可以尝试挖掘代码吗？

代码如下：

Public Type DOCINFO
          pDocName As String
          pOutputFile As String
          pDatatype As String
      End Type

Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Declare Function EndDocPrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Declare Function EndPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long

Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As DOCINFO) As Long

Declare Function StartPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long

Public Function PrintRawData(ByVal sPrinter As String, ByVal sDocName As String, ByVal sData As String) As Boolean
On Error GoTo PrintErr:

          Dim lhPrinter As Long, lReturn As Long, lpcWritten As Long
          Dim lDoc As Long, sWrittenData As String
          Dim MyDocInfo As DOCINFO
          Dim pOutput As Printer
          Dim p As Printer

            For Each p In Printers
                If p.DeviceName = sPrinter Then
                    Set pOutput = p
                    GoTo StartPrinting
                End If
            Next p

            MsgBox "Unable to find the specified printer [" & sPrinter & _
            "] in the list of currently installed printers" & vbCrLf & _
            "Printing will be aborted", vbCritical
            Exit Function

StartPrinting:
          lReturn = OpenPrinter(pOutput.DeviceName, lhPrinter, 0)

          If lReturn = 0 Then
              MsgBox "Print was unsuccessful. Make sure there is a printer installed on the port you are trying to print to"
              Exit Function
          End If

          MyDocInfo.pDocName = sDocName
          MyDocInfo.pOutputFile = vbNullString
          MyDocInfo.pDatatype = vbNullString
          lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
          Call StartPagePrinter(lhPrinter)

          sWrittenData = sData

          lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, Len(sWrittenData), lpcWritten)
          lReturn = EndPagePrinter(lhPrinter) 'need this??
          lReturn = EndDocPrinter(lhPrinter)
          lReturn = ClosePrinter(lhPrinter)

          Exit Function

PrintErr:
    MsgBox "Print was unsuccessful. Make sure there is a printer installed on the port you are trying to print to"
    Exit Function

End Function

要使用它，您需要使用任何驱动程序安装使用正确端口的打印机（我通常使用通用/仅文本驱动程序），然后按如下方式调用它，将 Hello 替换为您要发送的数据到打印机，包括控制字符等：

PrintRawData "Generic / Text Only", "My Document", "Hello"

Answer 5

更新并彻底修改答案：

Pete，您是否考虑过使用完全不同类型的打印机？设置、更改和发送 PostSCript 命令确实会花费大量时间。

您可能会称其为奇怪的解决方案，但我们的即时黑白激光 Brother 标签打印机只需按一下按钮即可立即打印出来。他们内部开发的专业坚如磐石的 P-Touch Editor 5.4 软件的创建方式是同时输出到多台打印机(!!)，每台打印机打印相同或不同的标签（例如不同的序列号）数据库中的数字或日期）。

它很快：当放开返回按钮时，当我的手指到达按钮中半厘米时，已经 IIIIEEEUUUUUU（释放返回键后 1 秒）整个标签就出来了。尽管是黑白的。

除了标签之外，还有原始或第三方品牌生产的不带粘背的 102 毫米宽卷纸标签。

成本：每台 100 美元 ~ 400 美元，包括设计和定制与数据库连接的软件。

我知道这些即时打印机使用更少的基于 Windows 的驱动程序和更多的嵌入式技术，从而使系统免于标准化打印作业。

也许这可以解决您的问题或给您带来新的想法。