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

sin imagen de perfil
Val: 115
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Monitor de Impresionesgráfica de visualizaciones


Visual Basic.NET

Actualizado el 28 de Julio del 2017 por Jose (2 códigos) (Publicado el 13 de Junio del 2016)
8.470 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
estrellaestrellaestrellaestrellaestrella(23)

Publicado el 13 de Junio del 2016gráfica de visualizaciones de la versión: 1.0
8.471 visualizaciones desde el 13 de Junio del 2016
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3

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
estrellaestrellaestrellaestrellaestrella
Agradezco mucho si me lo podrian enviar
Responder
15 de Junio del 2016
estrellaestrellaestrellaestrellaestrella
A que correo?
Responder
jorge
18 de Febrero del 2018
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
Muy bueno, excelente trabajo. Gracias por tu aporte.
Responder
Wilmer
30 de Junio del 2016
estrellaestrellaestrellaestrellaestrella
excelenete programa, gracias
Responder
Carlos Peralta
6 de Julio del 2016
estrellaestrellaestrellaestrellaestrella
Exelente programa, seria genial tener la base de datos :(
Responder
galo
7 de Noviembre del 2016
estrellaestrellaestrellaestrellaestrella
Que codigo utilizas para ver el numero de copias?

Gracias
Responder
2 de Febrero del 2017
estrellaestrellaestrellaestrellaestrella
Muchas gracias, perfecto para ver como manejar las impresoras en .NET
Responder
printer
5 de Febrero del 2017
estrellaestrellaestrellaestrellaestrella
No funciona para windows de 64 bits tienes una actualizacion del PrinterQueueWatch.dll
Responder
rzaballa
15 de Febrero del 2017
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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: ramms_tein_4@hotmail.com, gracias
Responder
jonafe
30 de Marzo del 2017
estrellaestrellaestrellaestrellaestrella
EXCELENTE PROGRAMA, GRAN VALOR
Funciona perfecto en Win10x64

Muchas gracias,
Responder
alex
6 de Marzo del 2018
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
Excellent Job Jose, thank you very much!!!
Responder
jony marin
15 de Marzo del 2019
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
ya lo solucione ahora tengo el problema que el campo copy siempre me sale 1.

Saludos.
Responder
Armando
17 de Abril del 2019
estrellaestrellaestrellaestrellaestrella
Hola, como se puee hacer para que muestre el numero de copias real ya que siempre muestra 1
Responder
22 de Mayo del 2019
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
Corre este codigo en cada uno de los equipos de la red y ya funciona.
Responder
Christopher
11 de Septiembre del 2019
estrellaestrellaestrellaestrellaestrella
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
7 de Marzo del 2020
estrellaestrellaestrellaestrellaestrella
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
15 de Abril del 2020
estrellaestrellaestrellaestrellaestrella
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

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s3552