Delphi中打印消息的获取及处理问题

各位大侠，现在单位使用了一程序，每次点估价打印时，都要打印二张单子，其实只使用一张就可以了。可程序开发商又不愿提供修改。    能否用Delphi实现一个功能，将所有打印消息捕获，然后显示出给用户，然后可以通过选择，删掉一些任务，再让打印机打印呀？多谢了。

解决方案 »

  1.   

    用pdf虚拟打印机，打印到文件，再修改就可以了。
      

  2.   

    输出到PDF文件的效率太低了，而且速度也无法接受。
      

  3.   

    不知道楼主用过FlashPaper吗
    它的虚拟打印机可以生成FLash或PDF，速度很快。
      

  4.   

    AbortPrinter
    AbortProc
    AddForm
    AddJob
    AddMonitor
    AddPort
    AddPrinter
    AddPrinterConnection
    AddPrinterDriver
    AddPrintProcessor
    AddPrintProvidor
    AdvancedDocumentProperties
    ClosePrinter
    ConfigurePort
    ConnectToPrinterDlg
    DeleteForm
    DeleteMonitor
    DeletePort
    DeletePrinter
    DeletePrinterConnection
    DeletePrinterData
    DeletePrinterDriver
    DeletePrintProcessor
    DeletePrintProvidor
    DocumentProperties
    EndDocPrinter
    EndPagePrinter
    EnumForms
    EnumJobs
    EnumMonitors
    EnumPorts
    EnumPrinterData
    EnumPrinterDrivers
    EnumPrinters
    EnumPrintProcessorDataTypes
    EnumPrintProcessors
    FindClosePrinterChangeNotification
    FindFirstPrinterChangeNotification
    FindNextPrinterChangeNotification
    FreePrinterNotifyInfo
    GetForm
    GetJob
    GetPrinter
    GetPrinterData
    GetPrinterDriver
    GetPrinterDriverDirectory
    GetPrintProcessorDirectory
    OpenPrinter
    PrinterMessageBox
    PrinterProperties
    ReadPrinter
    ResetPrinter
    ScheduleJob
    SetForm
    SetJob
    SetPort
    SetPrinter
    SetPrinterData
    StartDocPrinter
    StartPagePrinter
    WaitForPrinterChange
    WritePrinter 看看这些API的帮助吧，重点是：
    EnumJobs
    GetJob
    ...祝你好运~~
      

  5.   

    难道没人用Delphi做过打印机监控吗？