Código de Visual Basic.NET - Monitor de Impresiones

Filtrado por el tag: Ajax

<<>>

Pos: 31

Val: 85

Ha disminuido su posición en 4 puestos en Visual Basic.NET (en relación al último mes)

Monitor de Impresiones

Visual Basic.NET

(23)

Actualizado el 28 de Julio del 2017 por Jose (2 códigos) (Publicado el 13 de Junio del 2016)

12.383 visualizaciones desde el 13 de Junio del 2016

Sistema de monitoreo de impresiones, permite monitorear varias impresoras a la vez, así como pausar, reanudar, cancelar, eliminar los trabajos de impresión que envían los clientes, guarda los datos en una base de datos de Access, se pueden consultar por fecha, semana, mes o año.

Requerimientos

BASE DATOS ACCESS
PrinterQueueWatch.dll
Estan incluidos en el zip

En office 2010 aplicar estos 2 parches para que funcione el numero de copias enviadas por los clientes:
1.- office2010-kb2598267-fullfile-x86-glb.exe
2.- MicrosoftEasyFix50904.msi

En Office 2016 aplicar la siguiente modificacion al registro:
Click boton derecho Inicio, click ejecutar, teclea regedit en el cuadro de texto, y click en aceptar.
Localizar y seleccionar la siguente subclave del reguistro

HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\Options

botón derecho, nuevo, valor DWORD (32-bit).
Nombrar ForceSetCopyCount, y presionar Enter.
En el panel de detalle, botón derecho en ForceSetCopyCount, y click en modificar.
En información del valor, teclear 1, y click en OK.
Salir del editor del registro

1.0
(23)

Publicado el 13 de Junio del 2016

gráfica de visualizaciones de la versión: 1.0

12.384 visualizaciones desde el 13 de Junio del 2016

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.

Comentarios sobre la versión: 1.0 (23)

Willy Colindres

15 de Junio del 2016

Agradezco mucho si me lo podrian enviar

Responder

Jose

15 de Junio del 2016

A que correo?

Responder

jorge

18 de Febrero del 2018

hola amigo quisierapoder consultarte algunas cosas, adicional si lo tienes en visual 2010 y si te interesa venderlo?

Responder

Gaston

16 de Junio del 2016

Muy bueno, excelente trabajo. Gracias por tu aporte.

Responder

Wilmer

30 de Junio del 2016

excelenete programa, gracias

Responder

Carlos Peralta

6 de Julio del 2016

Exelente programa, seria genial tener la base de datos :(

Responder

galo

7 de Noviembre del 2016

Que codigo utilizas para ver el numero de copias?

Gracias

Responder

Hamza Akiour

2 de Febrero del 2017

Muchas gracias, perfecto para ver como manejar las impresoras en .NET

Responder

printer

5 de Febrero del 2017

No funciona para windows de 64 bits tienes una actualizacion del PrinterQueueWatch.dll

Responder

rzaballa

15 de Febrero del 2017

Compañero si funciona el problema es la compatibilidad del archivo, bajalo a una versión previa de office yo lo baje a 2003 y funciono sin problemas.

También en el Form1_Load cambia la linea que dice conn.Open() por lo siguiente conectarse() y te funcionará sin problemas.

Responder

Raúl González

15 de Febrero del 2017

Buenas tardes, me podrías ayudar?, estoy haciendo una aplicación muy similar, pero en c#, solo que no sé por donde empezar a investigar para logar obtener los datos de la cola de impresión en un formulario, te lo agradecería mucho, aunque sea solo para enfocarme en la dirección correcta, un saludo, te dejo mi correo nuevamente: [email protected], gracias

Responder

jonafe

30 de Marzo del 2017

EXCELENTE PROGRAMA, GRAN VALOR
Funciona perfecto en Win10x64

Muchas gracias,

Responder

alex

6 de Marzo del 2018

excelente aporte amigo pero para que me cuente las copias en el offices 2013 como hago el registro

Responder

Ivan

10 de Mayo del 2018

Podrias decirme como hacer para que office 2013 tambien mande el numero de copias, si hay que modificar algo en el registro o si hay que instalar algo...Saludos...

Responder

Mijail

29 de Agosto del 2018

Excellent Job Jose, thank you very much!!!

Responder

jony marin

15 de Marzo del 2019

buen dia amigo, ejecuto la aplicacion pero no me monitorea las impresiones, veo que no se ejecutan los eventos de la variable pmon.

Saludos.

Responder

jony marin

18 de Marzo del 2019

ya lo solucione ahora tengo el problema que el campo copy siempre me sale 1.

Saludos.

Responder

Armando

17 de Abril del 2019

Hola, como se puee hacer para que muestre el numero de copias real ya que siempre muestra 1

Responder

Cipriano Armando

22 de Mayo del 2019

Con el siguiente código se puede hacer automáticamente el registro. no esta perfeccionado pero a mi me funciona. el único inconveniente es que si captura las copias del equipo local pero las de un equipo cliente en la red no. aun no lo logro.

Private Sub adicionarValorKeyOfficeCopy(ByVal regKey As RegistryKey)
Dim valor = regKey.GetValue("ForceSetCopyCount")

If valor Is Nothing Then
regKey.SetValue("ForceSetCopyCount", 1, RegistryValueKind.DWord)
regKey.Flush()
End If
End Sub

Private Sub verificarKeyOfficeCopy()

Dim regKey As RegistryKey

regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Office\11.0\Word\Options", True)
If Not regKey Is Nothing Then
adicionarValorKeyOfficeCopy(regKey)
End If

regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Office\12.0\Word\Options", True)
If Not regKey Is Nothing Then
adicionarValorKeyOfficeCopy(regKey)
End If

regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Office\14.0\Word\Options", True)
If Not regKey Is Nothing Then
adicionarValorKeyOfficeCopy(regKey)
End If

' OFFICE 2013
regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Office\15.0\Word\Options", True)
If Not regKey Is Nothing Then
adicionarValorKeyOfficeCopy(regKey)
End If

' OFFICE 2016
regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Office\16.0\Word\Options", True)
If Not regKey Is Nothing Then
adicionarValorKeyOfficeCopy(regKey)
End If

End Sub

Responder

Jose Olvera Gomez

9 de Marzo del 2020

Corre este codigo en cada uno de los equipos de la red y ya funciona.

Responder

Christopher

11 de Septiembre del 2019

alguien me podria mandar el sistema funcionando a mi correo?, descargue el archivo pero al hacer el ejecutable en visual todo lo que abro al abrir el sistema se puso en label y no me abre los apartados

Responder

Jorge

7 de Marzo del 2020

Un saludo, lo e probado en visual studio 2019 y anda bien, alguien sabe cómo modificar para poder llevar registro si son impresiones en blanco y negro o a color

Responder

juan francisco

15 de Abril del 2020

Buenas tardes, que office teneis me da problemas: El proveedor 'Microsoft.ACE.OLEDB.12.0' no está registrado en el equipo local. he realizado lo que indicais al principio pero nada alguien me puede ayudar, gracias.

Responder