UC知道删除打印机
来源：百度知道 编辑：UC知道 时间：2024/06/15 16:32:33
Public Declare Function DeletePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long
Public Type PRINTER_DEFAULTS
pDatatype As String
pDevMode As Long
DesiredAccess As Long
End Type
Public Function PDFDeletePrinter() As Boolean
On Error GoTo SysError
Dim pd As PRINTER_DEFAULTS
Dim phPrinter As Long
Dim reslut As Long
With pd
.DesiredAccess = PRINTER_ALL_ACCESS
End With
reslut = OpenPrinter(PrintName, phPrinter, pd)
If reslut = 0 Then
PDFDeletePrinter = True
Else
reslut = DeletePrinter(phPrinter)
这是我的删除打印机的代码。OpenPrinter 返回是成功的。但是删除怎么删都删除不掉，而且我的打印机没有在打印
Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long
Public Type PRINTER_DEFAULTS
pDatatype As String
pDevMode As Long
DesiredAccess As Long
End Type
Public Function PDFDeletePrinter() As Boolean
On Error GoTo SysError
Dim pd As PRINTER_DEFAULTS
Dim phPrinter As Long
Dim reslut As Long
With pd
.DesiredAccess = PRINTER_ALL_ACCESS
End With
reslut = OpenPrinter(PrintName, phPrinter, pd)
If reslut = 0 Then
PDFDeletePrinter = True
Else
reslut = DeletePrinter(phPrinter)
这是我的删除打印机的代码。OpenPrinter 返回是成功的。但是删除怎么删都删除不掉，而且我的打印机没有在打印
好像很多人都有这样的困惑。下面是我回答其他人提问的回答，供参考。
如果你用的是windows xp，那你进入 打印和传真，选择你想删除的打印机，右击后点击删除。这种方法其实只是删除了一个便捷方式。如果你想更新驱动重装打印机，建议你继续一下操作：
在空白区域右击鼠标，然后选择“服务器属性”，在弹出提示框中选择“驱动”，里面会显示所有你在这台电脑上安装过的打印机驱动，选择你想删除的项目，然后点击“删除”，这样驱动就真正被删除了