精华内容
下载资源
问答
  • 第一步:停止打印功能 (1)在Windows10->开始->运行,或者直接“windous+R”; (2)输入“services.msc” (3)按首字母找到“Print ...(2)全部删除缓存文件 第三步:重启打印功能 按首字母找到...

    第一步:停止打印功能

    (1)在Windows10->开始->运行,或者直接“windous+R”;

    (2)输入“services.msc”

    (3)按首字母找到“Print Spooler”, 右键停止;

    第二步:清空缓存

    (1)进入路径“ C:\Windows\System32\Spool\Printers ”

    (2)全部删除缓存文件

    第三步:重启打印功能

    按首字母找到“Print Spooler”, 右键启动;

     

     

    展开全文
  • 所以要给每个打印文档命名,以便知道每个病人报表的打印情况,可是水晶报表似乎并没有提供设置在提交给打印机队列前设置文档名,都是默认是document ,网上找了一天似乎都没结果,要么是根本就是没有实现,要么就是一点...

    项目有个很变态的需求.由于预计同时打印的报表特别多.所以要给每个打印文档命名,以便知道每个病人报表的打印情况,可是水晶报表似乎并没有提供设置在提交给打印机队列前设置文档名,都是默认是document ,网上找了一天似乎都没结果,要么是根本就是没有实现,要么就是一点理解有问题.

    .思考摸索了一天,google了一天,没有合适的解决方案!很遗憾,心一横用了一个周末的时间重写了CrystalReportViewer控件..希望对后来人有帮助..

    源代码如下:

     

    Imports CrystalDecisions.Windows.Forms
    Imports System.Reflection
    Imports System.ComponentModel
    Imports System.Drawing.Printing
    Imports CrystalDecisions.CrystalReports.ViewerObjectModel
    'add jove 2010-12-05
    Namespace myReportViewerTools
    
    
        ''' 
    
        
    ''' 重写的报表打印工具(add jove 2010-12-05)
        ''' 可以控制打印机队列的中 jobName
        ''' 
        ''' 
        Public Class myCrystalReportViewer
            Inherits CrystalReportViewer
            Private pageView1 As PageView
            Public Sub New()
                MyBase.New()
            End Sub
            Private _jobName As String = "Doc" & Date.Now.ToString("yyyy-MM-dd HH:mm:ss")
            
            ''' 
    
            
    ''' 设置打印队列中的名称
            ''' 
            ''' 
            ''' 
            Public WriteOnly Property JobName()
                Set(ByVal value)
                    If Not String.IsNullOrEmpty(value) Then
                        _jobName = value
                    End If
                End Set
            End Property
    
            Private Sub laog() Handles Me.Load
                Dim ponfo = GetType(CrystalReportViewer).GetField("pageView", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
                If ponfo IsNot Nothing Then
                    pageView1 = ponfo.GetValue(Me)
                    Dim ponfobtn = GetType(PageView).GetField("printButton", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
                    If ponfobtn IsNot Nothing Then
                        Dim btn As ToolStripButton = ponfobtn.GetValue(Me.pageView1)
                        RemoveEvent(btn)
                        'AddHandler btn.Click, AddressOf showmsg
                        AddHandler btn.Click, AddressOf PrintReport
                    End If
    
                End If
            End Sub
            ''' 
    
            
    ''' 移除控件上的特定类型的委托队列
            ''' 
            ''' 
            ''' 
            Private Sub RemoveEvent(ByVal c As ToolStripButton)
                Dim d As EventHandler = GetDelegate(c, "EventClick")
                If d IsNot Nothing Then
                    For Each tmp As [Delegate] In d.GetInvocationList()
                        RemoveHandler c.Click, tmp
                    Next
                End If
            End Sub
            ''' 
    
            
    ''' 获得某控件上的特定委托
            ''' 
            ''' 
            ''' 
            ''' 
            ''' 
            Private Function GetDelegate(ByVal issuer As Component, ByVal keyName As String) As Object
                Dim key = issuer.GetType() _
                        .GetField(keyName, BindingFlags.Static Or BindingFlags.NonPublic Or BindingFlags.FlattenHierarchy) _
                        .GetValue(Nothing)
                Dim events = GetType(Component).GetField("events", BindingFlags.Instance Or BindingFlags.NonPublic).GetValue(issuer)
                Dim listEntry = GetType(EventHandlerList) _
                         .GetMethod("Find", BindingFlags.NonPublic Or BindingFlags.Instance) _
                         .Invoke(events, New Object() {key})
                Dim handler = listEntry _
                         .GetType() _
                         .GetField("handler", BindingFlags.Instance Or BindingFlags.NonPublic) _
                         .GetValue(listEntry)
                Return handler
            End Function
            ''' 
    
            
    ''' 设置value
            ''' 
            ''' 
            ''' 
            ''' 
            ''' 
            Private Sub SetPrivat(ByVal obj As Object, ByVal strname As String, ByVal vaule As Object)
                If obj Is Nothing Then
                    Return
                End If
                Dim fd = GetType(ReportDocumentBase).GetField(strname, BindingFlags.Instance Or BindingFlags.NonPublic)
                fd.SetValue(obj, vaule)
            End Sub
            ''' 
    
            
    ''' 获得值
            ''' 
            ''' 
            ''' 
            ''' 
            ''' 
            Private Function GetPrivat(ByVal obj As Object, ByVal strname As String) As Object
                If obj Is Nothing Then
                    Return Nothing
                End If
                Dim fd = GetType(ReportDocumentBase).GetField(strname, BindingFlags.Instance Or BindingFlags.NonPublic)
                Return fd.GetValue(obj)
            End Function
    
            ''' 
    
            
    ''' 测试代码
            ''' 
            ''' 
            Private Sub showmsg()
                MsgBox(Date.Now.ToLongTimeString)
            End Sub
            ''' 
    
            
    ''' 重写报表打印方法
            ''' 
            ''' 
            Public Overrides Sub PrintReport()
                Dim activeDocument As ReportDocumentBase = CType(pageView1.GetActiveDocument(), ReportDocumentBase)
                If (Not activeDocument Is Nothing) Then
                    'activeDocument.Print()
    
                    Dim dialog As New PrintDialog
                    dialog.UseEXDialog = True
                    dialog.AllowSomePages = True
                    Dim settings As New PrinterSettings
                    settings.MinimumPage = 1
                    settings.FromPage = 1
                    Dim minfo1 = GetType(ReportDocumentBase).GetMethod("GetLastPageNumber", BindingFlags.Instance Or BindingFlags.NonPublic)
                    settings.MaximumPage = minfo1.Invoke(activeDocument, Nothing)
                    settings.ToPage = settings.MaximumPage
                    If (settings.MinimumPage <= settings.MaximumPage) Then
                        Dim document As New PrintDocument
                        document.DocumentName = _jobName
                        document.PrinterSettings = settings
                        Dim minfo2 = GetType(ReportDocumentBase).GetMethod("isPaperLandscape", BindingFlags.Instance Or BindingFlags.NonPublic)
                        document.DefaultPageSettings.Landscape = minfo2.Invoke(activeDocument, Nothing)
                        Dim minfo = GetType(ReportDocumentBase).GetMethod("getPaperKind", BindingFlags.Instance Or BindingFlags.NonPublic)
                        Dim kind As PaperKind = minfo.Invoke(activeDocument, Nothing)
                        Dim size As PaperSize
                        For Each size In settings.PaperSizes
                            If (size.Kind = kind) Then
                                document.DefaultPageSettings.PaperSize = size
                                Exit For
                            End If
                        Next
                        dialog.Document = document
                        Dim oK As DialogResult = DialogResult.OK
                        Dim b = New PrintingPermission(PrintingPermissionLevel.AllPrinting)
                        b.Assert()
                        Try
                            oK = dialog.ShowDialog
                        Catch exception1 As Exception
    
                        End Try
                        If (oK <> DialogResult.OK) Then
                            settings = Nothing
                        Else
                            AddHandler dialog.Document.PrintPage, New PrintPageEventHandler(AddressOf myPrintPageEventHander)
                            SetPrivat(activeDocument, "CurHorizontalPage", 1)
                            If (settings.PrintRange = PrintRange.AllPages) Then
                                SetPrivat(activeDocument, "FromPage", 1)
                                SetPrivat(activeDocument, "CurPage", 1)
                                SetPrivat(activeDocument, "ToPage", settings.MaximumPage)
                                SetPrivat(activeDocument, "TotalHorizontalPage", 1)
                            Else
    
                                SetPrivat(activeDocument, "FromPage", settings.FromPage)
                                SetPrivat(activeDocument, "CurPage", settings.FromPage)
                                SetPrivat(activeDocument, "ToPage", settings.ToPage)
                            End If
                            SetPrivat(activeDocument, "PrintCopies", settings.Copies)
                            Try
                                document.Print()
                            Catch exception3 As Exception
    
                            End Try
                        End If
                    End If
                End If
            End Sub
            Private Sub myPrintPageEventHander(ByVal sender As Object, ByVal e As PrintPageEventArgs)
                Dim activeDocument As ReportDocumentBase = CType(pageView1.GetActiveDocument(), ReportDocumentBase)
                Dim minfo2 = GetType(ReportDocumentBase).GetMethod("PrintPageEventHander", BindingFlags.Instance Or BindingFlags.NonPublic)
                minfo2.Invoke(activeDocument, New Object() {sender, e})
    
            End Sub
            Private Function getPaperKind(ByRef activeDocument As ReportDocumentBase) As PaperKind
                Dim defaultPaperSize As CrystalDecisions.Shared.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize
                Dim i As Integer
                Dim fino = activeDocument.GetType.GetField("pages", BindingFlags.Instance Or BindingFlags.NonPublic)
                For i = 0 To fino.GetValue(activeDocument).Count - 1
                    Dim obj2 As PageObject = fino.GetValue(activeDocument).Item(i)
                    If (Not obj2 Is Nothing) Then
                        defaultPaperSize = obj2.PaperSize
                        Exit For
                    End If
                Next i
                Select Case defaultPaperSize
                    Case CrystalDecisions.Shared.PaperSize.DefaultPaperSize
                        Return PaperKind.Letter
                    Case CrystalDecisions.Shared.PaperSize.PaperLetter
                        Return PaperKind.Letter
                    Case CrystalDecisions.Shared.PaperSize.PaperLetterSmall
                        Return PaperKind.LetterSmall
                    Case CrystalDecisions.Shared.PaperSize.PaperTabloid
                        Return PaperKind.Tabloid
                    Case CrystalDecisions.Shared.PaperSize.PaperLedger
                        Return PaperKind.Ledger
                    Case CrystalDecisions.Shared.PaperSize.PaperLegal
                        Return PaperKind.Legal
                    Case CrystalDecisions.Shared.PaperSize.PaperStatement
                        Return PaperKind.Statement
                    Case CrystalDecisions.Shared.PaperSize.PaperExecutive
                        Return PaperKind.Executive
                    Case CrystalDecisions.Shared.PaperSize.PaperA3
                        Return PaperKind.A3
                    Case CrystalDecisions.Shared.PaperSize.PaperA4
                        Return PaperKind.A4
                    Case CrystalDecisions.Shared.PaperSize.PaperA4Small
                        Return PaperKind.A4Small
                    Case CrystalDecisions.Shared.PaperSize.PaperA5
                        Return PaperKind.A5
                    Case CrystalDecisions.Shared.PaperSize.PaperB4
                        Return PaperKind.B4
                    Case CrystalDecisions.Shared.PaperSize.PaperB5
                        Return PaperKind.B5
                    Case CrystalDecisions.Shared.PaperSize.PaperFolio
                        Return PaperKind.Folio
                    Case CrystalDecisions.Shared.PaperSize.PaperQuarto
                        Return PaperKind.Quarto
                    Case CrystalDecisions.Shared.PaperSize.Paper10x14
                        Return PaperKind.Standard10x14
                    Case CrystalDecisions.Shared.PaperSize.Paper11x17
                        Return PaperKind.Standard11x17
                    Case CrystalDecisions.Shared.PaperSize.PaperNote
                        Return PaperKind.Note
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelope9
                        Return PaperKind.Number9Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelope10
                        Return PaperKind.Number10Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelope11
                        Return PaperKind.Number11Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelope12
                        Return PaperKind.Number12Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelope14
                        Return PaperKind.Number14Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperCsheet
                        Return PaperKind.CSheet
                    Case CrystalDecisions.Shared.PaperSize.PaperDsheet
                        Return PaperKind.DSheet
                    Case CrystalDecisions.Shared.PaperSize.PaperEsheet
                        Return PaperKind.ESheet
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeDL
                        Return PaperKind.DLEnvelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC5
                        Return PaperKind.C5Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC3
                        Return PaperKind.C3Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC4
                        Return PaperKind.C4Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC6
                        Return PaperKind.C6Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeC65
                        Return PaperKind.C65Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeB4
                        Return PaperKind.B4Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeB5
                        Return PaperKind.B5Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeB6
                        Return PaperKind.B6Envelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeItaly
                        Return PaperKind.ItalyEnvelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopeMonarch
                        Return PaperKind.MonarchEnvelope
                    Case CrystalDecisions.Shared.PaperSize.PaperEnvelopePersonal
                        Return PaperKind.PersonalEnvelope
                    Case CrystalDecisions.Shared.PaperSize.PaperFanfoldUS
                        Return PaperKind.USStandardFanfold
                    Case CrystalDecisions.Shared.PaperSize.PaperFanfoldStdGerman
                        Return PaperKind.GermanStandardFanfold
                    Case CrystalDecisions.Shared.PaperSize.PaperFanfoldLegalGerman
                        Return PaperKind.GermanLegalFanfold
                End Select
                Return PaperKind.Letter
            End Function
    
    
    
    
    
    
    
        End Class
    End Namespace

    展开全文
  • 打印机文档删除中,删不掉,那么只好先停掉Print Spooler这个服务。 依次点击“开始”→“控制面板”→“文件夹”“管理工具”→“服务”→“Print Spooler” 。 点击左侧 “停止此服务”,停止打印机服务。 然后再...

    打印机文档删除中,删不掉,那么只好先停掉Print Spooler这个服务。
    依次点击“开始”→“控制面板”→“文件夹”“管理工具”→“服务”→“Print Spooler” 。
    点击左侧 “停止此服务”,停止打印机服务。
    然后再ctrl+R,输入Spool,打开Spool文件夹,删除“PRINTERS”文件夹中的所有文件;
    在这里插入图片描述
    回到“服务”窗口,点击左侧“启动此服务”,重新启动打印服务即可。

    tick1:
    快捷打开服务,打开cmd,输入services,msc
    在这里插入图片描述
    tick2:
    命令符停止服务,在命令提示符中输入命令“net stop spooler”并按回车键,此时将显示“您想继续此操作吗?”提法,输入“Y”并按回车即可停止当前所有打印任务。
    在这里插入图片描述
    注意:如果是网络打印机,那一定要到本地那台电脑删除spool的临时文件。因为网络连接的电脑打印发送的任务会之间发送到本地连接的那台电脑,所以打印的临时文件也是在本地连接的电脑。

    展开全文
  • C++编程彻底删除Windows 打印缓冲的任务列表或者单个打印任务.
  • 打印机打印时出现“打印队列问题” 解决方案 1. 重启Print Spooler服务 服务介绍 Print Spooler是打印后台处理服务,即管理所有本地和网络打印队列及控制所有打印工作。如果此服务被停用,本地计算机上的打印将不...

    1. 重启Print Spooler服务

    服务介绍
    Print Spooler是打印后台处理服务,即管理所有本地和网络打印队列及控制所有打印工作。如果此服务被停用,本地计算机上的打印将不可用。如果此服务被禁用,任何依赖于它的服务将无法启用。

    解决办法
    删除作业文件,然后重新启动 (Windows 10)
    每当将打印作业发送到打印机,Windows 电脑上就会创建一份文件。有时这些文件会损坏,并导致问题。要正确重置您的打印环境,请手动删除这些打印作业文件。

    1. 如果在您的打印软件中打开了所有工作,请保存您的工作。您当前的打印作业将会丢失,需要稍后再次进行打印。
    2. 单击开始菜单按“微标键”在您的键盘上打开搜索或按下win键+S。
    3. 在搜索框中输入 services.msc或者中文输入“服务”,然后按下 enter 键。
    4. 从服务列表中选择打印后台处理程序。
    5. 单击重新启动服务或单击重新启动按钮。
      在这里插入图片描述
    6. 再次尝试打印。
    展开全文
  • 本图文详细介绍了顺序队列、循环队列、链队列的实现过程。
  • 打印队列(Printer Queue)(优先队列)

    千次阅读 2020-08-24 20:07:56
    学生会里只有一台打印机,但是有很多...输入打印队列中各个任务的优先级以及所关注的任务在队列的位置(队首位置为0),输出该任务完成的时刻。所有任务都需要1分钟打印。例如,打印队列为{1,1,9,1,1,1},目前处于
  • →run 打开运行命令→net stop spooler→run→spool 把PRINT文件夹下面的内容删除→run→net start spool重启打印机打开service.msc 重启 print spooler 服务
  • Printer Queue打印队列

    千次阅读 2012-10-16 00:06:35
    //读取队列长度和目标文档的位置 vector<jobs> q; int priority; jobs temp; for(int i=0;i;i++) //读取优先级队列 { cin>>priority; temp.contant=priority;  temp.flag=0; q.push_...
  • 故障现象典型表现为以下两种情况 1、当打印任务开始进行时,这些打印任务便被保存在打印作业列表(也称打印队列)内。...2、打印机的打印列表里,一个文档,无法打印,也无法删除。重启动,故障依...
  • (XP 到 10)它会自动将多个文件发送到打印队列。 选择要打印的文件,按打印键:所有文件将一一送入打印队列。 您还可以停止、恢复和暂停该过程。 简单的图形用户界面使 EAP 用户友好且易于使用。 要打印 Microsoft...
  • 工作PDF打印顺序混乱着实让我疼痛了好久,其实决绝方法非常简单,但没有想到这个点子的时候确实让我走了很多弯路 这里文章写出来并不是为了炫耀什么,只是觉得发现些好东西就分享出来而已,同时也做个记录,方便...
  • 删除无法取消的打印文档方法

    千次阅读 2010-07-13 20:10:00
    删除无法取消的打印文档方法 : <br />依次点击“开始”→“控制面板”→“性能和维护”→“管理工具”→“服务”→“Print Spooler” 。 点击左侧 “停止此服务”,停止打印机服务。 ...
  • 您可以导入,导出,清除列表,添加新文件以及从列表中删除项目。 支持所有类型的打印机 Print Conductor 可以在任何类型的打印设备上打印文档:本地打印机,网络打印机或虚拟打印机。 此外,您可以调整所选打印机...
  • 怎么删除打印机正在打印文档

    千次阅读 2011-03-08 10:56:00
    在Windows XP 操作系统下如下操作,Windows NT类似。 依次点击“开始”→“控制面板”→“性能和维护”→“管理工具”→“服务”→“Print Spooler”. 点击左侧... 删除“PRINTERS”文件夹的所
  • 出处:https://discussions.apple.com/thread/252093470
  • 激光打印机,保留打印记录的文档

    千次阅读 2019-08-01 09:29:22
    2、选择高级,勾选保留打印文档 3、查看记录 4、因为是通过域用户连接共享打印机服务器,所以能查看到用户名 5、以上设置保留的文档路径 存储在正常情况下位于C:\Windows\System32\spool\PRINTERS...
  • // 循环队列队列的顺序存储结构 #include<stdio.h> #include<malloc.h> #include<process.h> //exit 的头文件 #define OK 1 #define ERROR 0 #define MAXQSIZE 100// 最大队列长度 #define Status int #define N 10 ...
  • C#打印PDF文档并实时监测打印进度

    千次阅读 2018-08-22 11:19:59
    项目需求是:客户端通过OA系统上传打印请求到服务器,服务器提交PDF文档打印打印完成后做后期处理。。。项目的后期处理部分要做什么不是本文涉及的内容,这里仅涉及打印。 首先是系统选型,选择范围是android、...
  • 问题:打印机可以打印测试文档、excel文档,却不能...文档总是被挂起在操作队列中,接着就没有任何反应 解决办法:修改文档的字体,(宋体)总是可以打印的 转载于:https://blog.51cto.com/8073212/1350326...
  • 菜鸟打印组件-文档

    万次阅读 2018-02-06 10:00:00
    amp;treeId=409&amp;articleId=106976&amp;docType=1 ...菜鸟打印组件是以独立进程和打印机交互,而非作为浏览器插件进行打印。 浏览器或其他客户端需要通过WebSocket协议与菜鸟打印组...
  • 打印文档控制三则

    千次阅读 2004-08-27 14:49:00
    打印文档控制三则 1、修改打印文档的名称*-- 说明:我们在用VFP写的程序需要打印时,WINDOWS的系统打印管理器里会有打印队列,* 并显示文档名:Visual Foxpro,那么下面这个功能可以帮助我们实现修改*-- 设置打印...
  • TBarCode可在Linux/Unix系统下把TBarCode控件挂接在用户的打印队列或者挂接在CUPS (通用UNIX打印系统)中,使其可以从用户的文档中创建条形码,并自动的打印输出。或者也可以将条形码保存至EPS(Postscript)或PCL...
  • 教你删除打印机取消不了的文档有时候打印机文档打印不了,右键点取消文档删除文档都不管用 右键点“我的电脑”, “管理”, “服务和应用程序”,服务—>找到“print Spooler”......
  • 如果打印机因意外暂停(如打印机未连接)而未完成打印任务,则该打印任务将列入打印队列,并且存入文件的打印池,备份。进行备份的打印任务,如果不加以清除,后面的打印任务无法执行,导致打印机无法继续打印。 ...
  • 删除打印队列中的现有作业 在iOS7.0及更高版本上运行,以实现最大的兼容性 ##原始的HacknRoll 2014视频 雍泉叙事 ##屏幕截图 在screenshots目录查看更多截图。 依存关系 Swift 2语言 Xcode 7 椰子
  • GCD编程的主队列和全局队列

    千次阅读 2015-12-13 15:32:25
    本文主要结合上一篇介绍的同步异步的概念,介绍一下ios系统提供的两个常用队列:主队列和全局队列,并记录一下我在学习存在的疑惑和最终探索答案的过程。
  • 用Javascript实现队列

    2018-10-18 12:27:27
    什么是队列 队列是遵循FIFO(First In First ...在计算机科学,一个常见的例子就是打印队列。比如说,我们需要打印五份文档。我们会打开每个文档,然后点击打印按钮。每个文档都会被发送到打印队列。第一个发送到...
  • 删除打印队列中的现有作业 在Android 2.1及更高版本上运行,以实现最大的兼容性 ##屏幕截图 ##构建工具 Java 8 Update 60 64位SDK Android 6.0 SDK Android Studio 1.3.2 ##使用的图书馆 Jsch SSH库 Flurry ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 47,106
精华内容 18,842
关键字:

如何删除打印队列中的文档