Printer Usage Monitoring Application

New Post: PauseAllNewJobs

Merrion — Fri, 14 Nov 2008 18:49:14 GMT

Everything is unrestricted (i.e. will notstop functioning) and all the source code is up on CodePlex.

New Post: PauseAllNewJobs

Andersson — Fri, 14 Nov 2008 09:47:46 GMT

Hello

I figured out that i dont need the PauseAllNewJobs feature.

I simply check if student has money on account in sub pPrinter_JobAdded in PrinterMonitoringService.vb, if not the job is deleted.

If student has money i update students account in sub JobDeletedEvent in PrinterMonitorDatabaseListener.vb

PS
Is the PrinterMonitorService in PUMA-34425 Licensed or will it stop functioning?
ds

New Post: PauseAllNewJobs

Andersson — Wed, 12 Nov 2008 08:38:01 GMT

Mr Merrion

Thanks for answer me, perhaps i shold have been a bit clearer.

No, i am not getting any error, the printjobs just rush trough to the printer, database is updated but the job is not paused.

I really dont know what source i shall use to build this. Do i need to rebuild both PrinterMonitorService and PrinterQueueWatch ?

Can you please give me link to the source i need.

Thanks, Morgan

New Post: PauseAllNewJobs

Merrion — Tue, 11 Nov 2008 18:41:19 GMT

Are you getting an error?

A quick sample to monitor all the printers on this machine and pause jobs on it would be:-

Private WithEvents pmon As New PrinterMonitorComponent

For Each p As PrinterInformation In New PrinterInformationCollection

pmon.AddPrinter(p.PrinterName)

pmon.PrinterInformation(p.PrinterName).PauseAllNewJobs = True

Next p

New Post: PauseAllNewJobs

Andersson — Tue, 11 Nov 2008 08:51:33 GMT

Hello

I have been trying for sevaral days to get the PauseAllNewJobs to work, but i cant get it to success.

I need the feature PauseAllNewJobs to work so that i can do a check if student has money left for printing.

Can anyone please help me build a service that have PauseAllNewJobs set to True ?

I would be very greatful.

Thanks

Andersson

New Post: problem of no copies

solidcrip — Sat, 08 Nov 2008 09:35:43 GMT

You can use the SpoolFileLibrary. http://www.codeplex.com/SpoolFileLibrary. But it is in development state.

greez Cédric

New Post: problem of no copies

sagar123 — Tue, 21 Oct 2008 13:10:51 GMT

I am using office 2007 but i am get no of copies as 1
. Can you tell me "how to cross this problem", anh show me "why the printer can determine the copies while the queue hold the printjob displaying copies = 1"(Assume the copies >1)?

Updated Wiki: dbo.PRINTED DOCUMENTS

Merrion — Wed, 15 Oct 2008 20:59:07 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  View [dbo].[PRINTED DOCUMENTS]    Script Date: 10/15/2008 21:58:52 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo].[PRINTED DOCUMENTS]
AS
SELECT DISTINCT 
                      TOP (100) PERCENT dbo.[Print Jobs].[User name], dbo.[Print Jobs].[Document Name], dbo.[Print Jobs].Submitted, dbo.Printers.Name AS [Printer Name], 
                      dbo.[Print Jobs].[Machine Name], dbo.[Print Jobs].Pages, dbo.[Print Jobs].[Paper Type], dbo.[Print Jobs].[Pages Printed], dbo.[Print Jobs].Landscape, 
                      dbo.[Print Jobs].Colour, dbo.[Print Jobs].[Paper Source], ISNULL(dbo.[Standard Paper Sizes].Width, dbo.[Print Jobs].[Paper Width]) AS Width, 
                      ISNULL(dbo.[Standard Paper Sizes].Height, dbo.[Print Jobs].[Paper Height]) AS Height, ISNULL(dbo.[Standard Paper Sizes].[Measurement Units], 
                      'Millimeters') AS [Measurement Units]
FROM         dbo.[Print Jobs] INNER JOIN
                      dbo.Printers ON dbo.[Print Jobs].[Printer Id] = dbo.Printers.Id LEFT OUTER JOIN
                      dbo.[Standard Paper Sizes] ON dbo.[Print Jobs].[Paper Type] = dbo.[Standard Paper Sizes].[Paper Size Name]
ORDER BY dbo.[Print Jobs].[User name], dbo.[Print Jobs].Submitted, [Printer Name]

Updated Wiki: dbo.PAGES PRINTED BY WEEKDAY AND HOUR

Merrion — Wed, 15 Oct 2008 20:57:50 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  View [dbo].[PAGES PRINTED BY WEEKDAY AND HOUR]    Script Date: 10/15/2008 21:57:37 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo].[PAGES PRINTED BY WEEKDAY AND HOUR]
AS
SELECT     TOP (100) PERCENT dbo.[Print Jobs].[User name], dbo.Printers.Name AS [Printer Name], DATEPART(WeekDay, dbo.[Print Jobs].Submitted) AS Day, 
                      DATEPART(Hour, dbo.[Print Jobs].Submitted) AS Hour, MAX(dbo.[Print Job Events].[Pages Printed]) AS [Total Pages Printed]
FROM         dbo.[Print Jobs] INNER JOIN
                      dbo.[Print Job Events] ON dbo.[Print Jobs].[Printer Id] = dbo.[Print Job Events].[Printer Id] AND 
                      dbo.[Print Jobs].[Job Id] = dbo.[Print Job Events].[Job Id] AND 
                      dbo.[Print Jobs].[Printer Reboot Count] = dbo.[Print Job Events].[Printer Reboot Count] INNER JOIN
                      dbo.Printers ON dbo.[Print Jobs].[Printer Id] = dbo.Printers.Id
WHERE     (dbo.[Print Job Events].Event = 2) AND (dbo.[Print Job Events].Printed = 1)
GROUP BY dbo.[Print Jobs].[User name], dbo.Printers.Name, DATEPART(WeekDay, dbo.[Print Jobs].Submitted), DATEPART(Hour, dbo.[Print Jobs].Submitted)
ORDER BY dbo.[Print Jobs].[User name], Day, [Printer Name]

Updated Wiki: dbo.PAGES PRINTED BY PAPER TYPE

Merrion — Wed, 15 Oct 2008 20:56:45 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  View [dbo].[PAGES PRINTED BY PAPER TYPE]    Script Date: 10/15/2008 21:56:32 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo].[PAGES PRINTED BY PAPER TYPE]
AS
SELECT     TOP (100) PERCENT dbo.[Print Jobs].[User name], dbo.Printers.Name AS [Printer Name], dbo.[Print Jobs].[Paper Type], 
                      dbo.[Print Jobs].[Pages Printed]
FROM         dbo.[Print Jobs] INNER JOIN
                      dbo.Printers ON dbo.[Print Jobs].[Printer Id] = dbo.Printers.Id

Updated Wiki: dbo.PAGES PRINTED BY PAPER SOURCE

Merrion — Wed, 15 Oct 2008 20:50:05 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  View [dbo].[PAGES PRINTED BY PAPER SOURCE]    Script Date: 10/15/2008 21:49:48 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo].[PAGES PRINTED BY PAPER SOURCE]
AS
SELECT     TOP (100) PERCENT dbo.[Print Jobs].[User name], dbo.Printers.Name AS [Printer Name], dbo.[Print Jobs].[Paper Source]
FROM         dbo.[Print Jobs] INNER JOIN
                      dbo.Printers ON dbo.[Print Jobs].[Printer Id] = dbo.Printers.Id
GROUP BY dbo.[Print Jobs].[User name], dbo.Printers.Name, dbo.[Print Jobs].[Paper Source]
ORDER BY dbo.[Print Jobs].[User name], [Printer Name]

Updated Wiki: dbo.CATEGORISED PRINTED DOCUMENTS

Merrion — Wed, 15 Oct 2008 20:49:03 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  View [dbo].[CATEGORISED PRINTED DOCUMENTS]    Script Date: 10/15/2008 21:48:50 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo].[CATEGORISED PRINTED DOCUMENTS]
AS
SELECT     dbo.[Categorised Documents].[Category Type], dbo.[Categorised Documents].[Category Name], dbo.Printers.Name, dbo.[Print Jobs].Submitted, 
                      dbo.[Print Jobs].[User name], dbo.[Print Jobs].[Document Name], dbo.[Print Jobs].Pages, dbo.[Print Jobs].[Paper Type], 
                      dbo.[Print Jobs].[Pages Printed]
FROM         dbo.[Categorised Documents] INNER JOIN
                      dbo.[Print Jobs] ON dbo.[Categorised Documents].[Printer Id] = dbo.[Print Jobs].[Printer Id] AND 
                      dbo.[Categorised Documents].[Job Id] = dbo.[Print Jobs].[Job Id] AND 
                      dbo.[Categorised Documents].[Printer Reboot Count] = dbo.[Print Jobs].[Printer Reboot Count] INNER JOIN
                      dbo.Printers ON dbo.[Print Jobs].[Printer Id] = dbo.Printers.Id

Updated Wiki: dbo.User Permissions

Merrion — Wed, 15 Oct 2008 20:47:53 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  Table [dbo].[User Permissions]    Script Date: 10/15/2008 21:47:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[User Permissions](
	[User Name] [varchar](255) NOT NULL,
	[Can View All Users] [bit] NOT NULL,
 CONSTRAINT [PK_User Permissions] PRIMARY KEY CLUSTERED 
(
	[User Name] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING ON
GO

Updated Wiki: dbo.Standard Paper Sizes

Merrion — Wed, 15 Oct 2008 20:46:41 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  Table [dbo].[Standard Paper Sizes]    Script Date: 10/15/2008 21:46:04 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[Standard Paper Sizes](
	[Paper Size Name] [varchar](40) NOT NULL,
	[Width] [numeric](18, 3) NULL,
	[Height] [numeric](18, 3) NULL,
	[Measurement Units] [nvarchar](50) NULL,
 CONSTRAINT [PK_Standard Paper Sizes] PRIMARY KEY CLUSTERED 
(
	[Paper Size Name] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING ON
GO

Updated Wiki: dbo.Reference Data

Merrion — Wed, 15 Oct 2008 20:45:47 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  Table [dbo].[Reference Data]    Script Date: 10/15/2008 21:45:31 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[Reference Data](
	[Data Element Name] [varchar](50) NOT NULL,
	[Data Element Value] [varchar](50) NOT NULL,
	[Description] [varchar](200) NULL,
	[User Name] [varchar](200) NOT NULL CONSTRAINT [DF_Reference Data_User Name]  DEFAULT (suser_sname()),
	[Timestamp] [datetime] NOT NULL CONSTRAINT [DF_Reference Data_Timestamp]  DEFAULT (getdate()),
 CONSTRAINT [PK_Reference Data] PRIMARY KEY CLUSTERED 
(
	[Data Element Name] ASC,
	[Data Element Value] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING ON
GO

Updated Wiki: dbo.PUMA Release History

Merrion — Wed, 15 Oct 2008 20:44:36 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  Table [dbo].[PUMA Release History]    Script Date: 10/15/2008 21:44:05 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[PUMA Release History](
	[Release Name] [varchar](20) NULL,
	[Release Date] [datetime] NULL,
	[Release Note] [varchar](1000) NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING ON
GO

Updated Wiki: dbo.PUMA Parameters

Merrion — Wed, 15 Oct 2008 20:43:44 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  Table [dbo].[PUMA Parameters]    Script Date: 10/15/2008 21:42:23 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[PUMA Parameters](
	[Parameter Name] [varchar](20) NULL,
	[Parameter Value] [varchar](100) NULL,
	[Parameter Description] [varchar](100) NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING ON
GO

Updated Wiki: dbo.Printers

Merrion — Wed, 15 Oct 2008 20:41:15 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  Table [dbo].[Printers]    Script Date: 10/15/2008 21:41:02 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[Printers](
	[Id] [numeric](18, 0) IDENTITY(1,1) NOT NULL,
	[Reboot Count] [int] NOT NULL CONSTRAINT [DF_Printers_Reboot Count]  DEFAULT ((0)),
	[Name] [nvarchar](220) NOT NULL,
	[Location] [nvarchar](1024) NULL,
	[Comment] [nvarchar](1024) NULL,
	[Server Name] [varchar](255) NULL CONSTRAINT [DF_Printers_Server Name]  DEFAULT (host_name()),
	[Share Name] [varchar](255) NULL,
	[Port Name] [varchar](255) NULL,
	[Driver Name] [varchar](255) NULL,
	[Seperator Filename] [varchar](255) NULL,
	[Print Processor] [varchar](255) NULL,
	[Default Data Type] [varchar](255) NULL,
	[Parameters] [varchar](1024) NULL,
	[Monitor] [bit] NOT NULL CONSTRAINT [DF_Printers_Monitor]  DEFAULT ((1)),
	[User Name] [varchar](220) NOT NULL CONSTRAINT [DF_Printers_User Name]  DEFAULT (suser_sname()),
	[Timestamp] [datetime] NOT NULL CONSTRAINT [DF_Printers_Timestamp]  DEFAULT (getdate()),
 CONSTRAINT [PK_Printers] PRIMARY KEY CLUSTERED 
(
	[Id] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING ON
GO
ALTER TABLE [dbo].[Printers]  WITH CHECK ADD  CONSTRAINT [FK_Printers_Print Servers] FOREIGN KEY([Server Name])
REFERENCES [dbo].[Print Servers] ([Name])
GO
ALTER TABLE [dbo].[Printers] CHECK CONSTRAINT [FK_Printers_Print Servers]
go

Updated Wiki: dbo.Printer Usage Reports

Merrion — Wed, 15 Oct 2008 20:39:02 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  Table [dbo].[Printer Usage Reports]    Script Date: 10/15/2008 21:38:01 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[Printer Usage Reports](
	[Report Name] [varchar](60) NOT NULL,
	[Query Definition] [varchar](3000) NOT NULL,
	[Description] [varchar](300) NOT NULL,
	[Restrict By Printer] [bit] NOT NULL,
	[Restrict By Document Name] [bit] NOT NULL,
	[Restrict By Time Range] [bit] NOT NULL,
	[Restrict By User] [bit] NOT NULL,
	[Type] [char](1) NULL,
	[Parameters] [varchar](100) NULL,
	[Crystal Report Filename] [varchar](100) NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING ON

Data

Updated Wiki: dbo.Print Servers

Merrion — Wed, 15 Oct 2008 20:36:13 GMT

SQL

USE [PrintMonitor]
GO
/****** Object:  Table [dbo].[Print Servers]    Script Date: 10/15/2008 21:36:00 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[Print Servers](
	[Name] [varchar](255) NOT NULL,
	[License] [uniqueidentifier] ROWGUIDCOL  NOT NULL CONSTRAINT [DF_Print Servers_License]  DEFAULT (newid()),
	[Password] [varchar](50) NULL,
	[User name] [varchar](255) NOT NULL CONSTRAINT [DF_Print Servers_User name]  DEFAULT (suser_sname()),
	[Timestamp] [datetime] NOT NULL CONSTRAINT [DF_Print Servers_Timestamp]  DEFAULT (getdate()),
 CONSTRAINT [PK_Print Servers] PRIMARY KEY CLUSTERED 
(
	[Name] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING ON
go