[求助]批量打印图纸（n多张），送到打印机后，打印机总是随机顺序打印怎么办？

leizi_y 发表于 2007-1-8 14:09:00

我在网上找了好久，都仅仅是说打印机怎么设置，怎么调整打印顺序的，但没有一个能够满足我的要求，我的要求很简单，就是要：先进先出。但是找了好久也没有答案。希望高手帮帮我。用VB，vba都成

wyj7485 发表于 2007-1-8 14:53:00

打印机就是按发图先后打印的，如果要调整顺序，就要在发送前完成该操作

leizi_y 发表于 2007-1-8 15:48:00

我这里不是阿，我的打印机设置是：使用后台打印，当我的所有图纸送到后台后（形成了打印列表），真正送到打印机的顺序不是我需要的先进先出顺序，而是随机从打印列表中的东西送给打印机。我使用的是Legend LJ7500 PCL5，XP PRO+ SP2系统。

wyj7485 发表于 2007-1-8 16:50:00

这应该是程序的问题

leizi_y 发表于 2007-1-8 17:17:00

不可能是程序的问题吧，我采用如下方法调试：先将打印机设置成脱机使用，然后在将所有打印的东西送到打印机（脱机）中，（可以看到打印列表和我送打印的顺序一致）然后再将脱机打印去掉，让系统自动打印，但是这样的后果是：系统不是按照打印列表中的顺序将打印任务送给打印机，而是随机的）忘了一点：我的所有打印任务的优先级都是一样，采用默认设置。我有几百张图纸，如果系统不按照我的循序打印的话，那么批量处理的意义不大了，因为后期整理图纸将是相当困难的事情。

wyj7485 发表于 2007-1-8 17:43:00

还没遇到过，这是我的设置

leizi_y 发表于 2007-1-9 13:38:00

我明白了，我没有选择"首先打印后台文档"谢谢版主的帮助。

leizi_y 发表于 2007-1-19 13:46:00

还想问一下：能不能通过程序直接控制选中"首先打印后台文档"而不是通过手动修改的方式。毕竟默认打印机设置中都不选中该选项。

wyj7485 发表于 2007-1-19 14:42:00

关于打印的API函数参考:GetPrintProcessorDirectory  VB声明  Declare Function GetPrintProcessorDirectory Lib "winspool.drv" Alias "GetPrintProcessorDirectoryA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, ByVal pPrintProcessorInfo As String, ByVal cdBuf As Long, pcbNeeded As Long) As Long  说明  判断指定系统中包含了打印机处理器驱动程序及文件的目录  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  pName String，指定服务器的名字。设置成vbNullString则表示使用本地系统  pEnvironment String，欲在其中获取目录的一个环境（如：Windows NT x86）。用vbNullString表示使用当前（本地）系统环境  Level Long，设为1  pPrintProcessorInfo String，指定一个缓冲区，其中载入打印机处理器目录的完整路径。可定义成ByVal As String，以便将字节数组分配给一个字串，从而取消进行ANSI到Unicode转换的必要  cbBuf Long，pPrintProcessorInfo缓冲区中的字符数量  pcbNeeded Long，指向一个Long型变量的指针，该变量用于保存请求的缓冲区长度，或者实际读入的字节数量  OpenPrinter  VB声明  Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long  说明  打开指定的打印机，并获取打印机的句柄  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  pPrinterName String，要打开的打印机的名字  phPrinter Long，用于装载打印机的句柄  pDefault PRINTER_DEFAULTS，这个结构保存要载入的打印机信息  PrinterMessageBox  VB声明  Declare Function PrinterMessageBox Lib "winspool.drv" Alias "PrinterMessageBoxA" (ByVal hPrinter As Long, ByVal error As Long, ByVal hwnd As Long, ByVal pText As String, ByVal pCaption As String, ByVal dwType As Long) As Long  说明  在拥有指定打印作业的系统上显示一个打印机出错消息框。如一名用户在远程登录，这种做法便相当有用  返回值  Long，IDOK， IDRETRY 或 IDCANCEL；由用户的输入决定（如消息框在远程系统显示，则肯定是IDOK）  参数表  参数 类型及说明  hPrinter Long，出现错误的打印机的句柄  error Long，ERROR_OUT_OF_PAPER（缺纸）或ERROR_NOT_READY（未就绪）  hwnd Long，指定消息框的父窗口。可以为NULL  pText Long，欲显示的消息正文  pCaption Long，消息框的标题  dwType Long，指定任何一个标准的MessageBox标志。建议使用MB_ICONSTOP 或 MB_RETRYCANCEL 或 MB_SETFOREGROUND  适用平台  Windows NT    PrinterProperties  VB声明  Declare Function PrinterProperties Lib "winspool.drv" Alias "PrinterProperties" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long  说明  启动打印机属性对话框，以便对打印机进行配置  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  hwnd Long，对话框的父窗口  hPrinter Long，一个已打开的打印机的句柄  注解  如打印机打开的时候没有使用足够的访问权限，对话框的有些功能也许会禁止使用   ReadPrinter  VB声明  Declare Function ReadPrinter Lib "winspool.drv" Alias "ReadPrinter" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pNoBytesRead As Long) As Long  说明  从打印机读入数据  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  hPrinter Long，一个已打开的打印机的句柄（用OpenPrinter获得）  pBuf Any，指定一个缓冲区或结构，用于装载来自打印机的数据  cdBuf Long，欲读入的缓冲区大小或字节数  pNoBytesRead Long，用于装载实际读取字节数的一个变量  注解  为使这个函数正常使用，端口必须是双向的   ResetDC  VB声明  Declare Function ResetDC Lib "gdi32" Alias "ResetDCA" (ByVal hdc As Long, lpInitData As DEVMODE) As Long  说明  根据提供的DEVMODE结构，对一个设备场景进行重设。这样便允许我们在打印期间改变打印机的配置。利用这个函数，可将文档中的某个页改为横向打印。可试着用DocumentProperties函数取得一个设备的默认DEVMODE结构  返回值  Long，执行成功则返回设备场景的句柄，零表示失败  参数表  参数 类型及说明  hdc Long，设备场景的句柄  lpInitData DEVMODE，指定一个缓冲区的第一个字节。该缓冲区包含了用于那个设备的一个有效DEVMODE结构。记住在这个缓冲区中包括设备专用的数据区  注解  这个函数可成功用于由VB的Printer对象的hDC属性返回的设备场景上 注意一定要正确设置lpdm的dmFields字段 这个函数在StartPage 和 EndPage之间会被禁用——即只能在页与页之间调用这个函数，不能在页内调用 驱动程序、设备和输出端口不可以用这个函数更改   ResetPrinter  VB声明  Declare Function ResetPrinter Lib "winspool.drv" Alias "ResetPrinterA" (ByVal hPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long  说明  改变指定打印机的默认数据类型及文档设置  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  hPrinter Long，欲修改的一台打印机的句柄  pDefault PRINTER_DEFAULTS，定义了打印机新设置的一个结构。参考OpenPrinter函数的说明，了解这个结构进一步的细节。结构中的DesiredAccess字段会被忽略  适用平台  Windows NT   ScheduleJob  VB声明  Declare Function ScheduleJob Lib "winspool.drv" Alias "ScheduleJob" (ByVal hPrinter As Long, ByVal JobId As Long) As Long  说明  提交一个要打印的作业  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  hPrinter Long，一台已打开的打印机句柄  JobId Long，以前用AddJob函数获得的作业编号  注解  参考AddJob函数以获得进一步的信息   Setabortproc  VB声明  Declare Function SetAbortProc Lib "gdi32" Alias "SetAbortProc" (ByVal hDC As Long, ByVal lpAbortProc As Long) As Long   说明    该函数叫“取消函数”。它告诉windows是继续打印，还是立即取消。该函数的作用是为windows指定取消函数的地址。由于vb不支持函数的地址概念，所以要使用dwcbk32.ocx通用回调定制控件，否则就不能使用这个函数。  返回值  Long，非零表示成功，SP_ERROR表示失败。会设置GetLastError  参数表  参数 类型及说明  lpAbortProc Long，一个取消函数的地址。可用dwcbk32d.ocx定制控件的Procaddress属性或取。  hDC Long ，一个设备场景的句柄。  SetForm  VB声明  Declare Function SetForm& Lib "spoolss.dll" Alias "SetFormA" (ByVal hPrinter As_ Long, ByVal pFormName As String, ByVal Level As Long, pForm As Byte)  说明    为指定表单设置信息。  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  Level Long，设为1  pForm Byte，包含一个有效FORM_INFO_1结构的缓冲区。  pFormName String，欲设置表单的名字。  hPrinter Long，指定一个打开打印机的句柄（用openprinter取得）  适用平台  windows NT  注解     请参考AddForm函数。   SetJob  VB声明  Declare Function SetJob Lib "winspool.drv" Alias "SetJobA" (ByVal hPrinter As Long, ByVal JobId As Long, ByVal Level As Long, pJob As Byte, ByVal Command As Long) As Long   说明    对一个打印作业的状态进行控制。  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  hPrint Long，指定一个打开打印机的句柄（用openprinter取得）  JobId Long，要修改的作业的编号  Level Long，0，1或2  pJob Byte，指定一个缓冲区。如级别（Level）设为1或2，那该缓冲区就包含了一个JOB_INFO_1或JOB_INFO_2结构。如级别为0，缓冲区为NULL（变成ByVal As Long，以便传递零值）。如指定了一个结构，则来自那个结构的信息会用于改变打印作业的设置（除JobId，pPrinterName，pMachineName，pDriverName，Size，Submitte以及Time字段外）  Command Long，下述常数之一：                      JOB_CONTROL_CANCEL：取消作业  JOB_CONTROL_PAUSE ：暂停作业  JOB_CONTROL_RESTART：重新启动一个已开始打印的作业  JOB_CONTROL_RESUME：恢复一个暂停的作业  SetPrinter  VB声明  Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal Command As Long) As Long   说明  对一台打印机的状态进行控制。  返回值  Long，非零表示成功，零表示失败。会设置GetLastError  参数表  参数 类型及说明  Level Long，0，2或3（4或5用于windows95，5或6用于NT4.0）。  pPrinter Byte，包含一个PRINTER_INFO_x的结构的缓冲区，其中的x代表级别的设定（Level）。假如级别为零，并且Command设为PRINTER_CONTROL_SET_STATUS，那缓冲区就包含了一个PRINTER_CONTROL_STATUS结构。否则，如级别为零，就设为NULL（要把声明变成ByVal As Long，以便传递零值）  Command Long，下述值之一：                     零，根据PRINTER_INFO_x结构改变打印机  PRINTER_CONTROL_CANCEL：取消作业  PRINTER_CONTROL_PURGE：删除打印机的所有作业  PRINTER_CONTROL_RESUME：惠复一台暂停的打印机  PRINTER_CONTROL_SET_STATUS：载入打印机的PRINTER_CONTROL_STATUS结构（不可NT3.51下使用）                        hPrinter Long，指定一个已打开的打印机的句柄（用openprinter取得）  注解    在PRINTER_INFO_2结构的基础上设置打印机状态时，pServerName，AveragePPM，Status和cJobs字段都会被忽略。   SetPrinterData  VB声明  Declare Function SetPrinterData Lib "winspool.drv" Alias "SetPrinterDataA" (ByVal hPrinter As Long, ByVal pValueName As String, ByVal dwType As Long, pData As Byte, ByVal cbData As Long) As Long   说明    设置打印机的注册表配置信息。  返回值  Long，ERROR_SUCCESS表示成功，一个错误值表示失败。  参数表  参数 类型及说明  hPrinter Long，指定一个已打开的打印机的句柄（用openprinter取得）  pValueName  String，欲设置的注册表值名  dwType Long，定义数据的类型，使用来自API32. txt文件的，以REG_起头的一个常数。  pData Byte，指定一个缓冲区的第一个条目，缓冲区中包含了要设置的适当的数据类型  cbData Long，缓冲区pData的长度  StartDoc  VB声明  Declare Function StartDoc Lib "gdi32" Alias "StartDocA" (ByVal hdc As Long, lpdi As DOCINFO) As Long   说明     开始一个打印作业。  返回值  Long，如执行成功，返回文档的作业编号，常数SP_ERROR失败。会设置GetLastError  参数表  参数 类型及说明  ipdi DOCINFO，对文档定义的一个结构  hdc Long，设备场景的句柄  cbSize Long，结构的大小，目前是12个字节  lpszDocName String，指向一个字串的指针，该字串包含了文档名。这个文档名会在打印管理程序中显示出来  lpszOutput String，指向一个字串的指针，该字串包含了输出文件的名字。可设为vbNullString。表示将输出结果传送到设备  注解     对DOCINFO结构的定义如下：            Type DOCINFO                cbSize As Long                lpszDocName As String                lpszOutput As String            End Type               StartDocPrinter  VB声明  Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As Byte) As Long   说明    在后台打印的级别启动一个新文档。  返回值  Long，非零表示成功，零表示失败。  参数表  参数 类型及说明  hPrinter Long，指定一个已打开的打印机的句柄（用openprinter取得）  Level Long，1或2（仅用于win95）  pDocInfo Byte，包含一个DOC_INFO_1或DOC_INFO_2结构得缓冲区  注解    在应用程序的级别并非有用。后台打印程序用它标识一个文档的开始   StartPage  VB声明  Declare Function StartPage Lib "gdi32" Alias "StartPage" (ByVal hdc As Long) As Long   说明    打印一个新页前要先调用这个函数。  返回值  Long，非零表示成功，零表示失败。  参数表  参数 类型及说明  hdc Long，一个设备场景的句柄  注解     参考EndPage函数的“移植问题”

sanjie 发表于 2008-4-13 14:50:00

学习一下

页: [1]

明经CAD社区's Archiver

[求助]批量打印图纸（n多张），送到打印机后，打印机总是随机顺序打印怎么办？