automatically adding user name to printouts

[Johan Smits_1]

Sometimes a user prints classified documents and 'forgets' to collect them. We would like to add automatically the user name to each printed page (as a tiny footer), so that the document can be delivered to this user (together with a well deserved punishment).
Does anybody now about software (Windows, drivers) or hardware solutions?
Thanks, Johan.

[Ed Grey]

I don't know about adding user name as a footer on each page, but you can set up a separator page that prints out before each job, and include any of a number of identifiers, such as username, file name, date/time printed, etc. (I am assuming your NT server is servicing the print queues here).

The Microsoft article that describes the process is:

http://support.microsoft.com/support/kb/articles/Q102/7/12.asp?LN=EN-US&SD=gn&FR=0&qry=separator&rnk=1&src=DHCS_MSPSS_gn_SRCH&SPR=NTS40

Once you have a .sep file in place, just go into the print driver properties on the NT server, and click on the "separator page" button on the general tab, and point it to your file.

On my setup here, the three default .sep files that came with NT didn't work for me, but a custom one did.

Hope this helps,
Ed

Here is the simple file I made which worked for me:
@
Document:
@Fpathname

Printed by:
@N

@E

[Johan Smits_1]

Ed,

thanks for the response. Separator pages do help us, but only as long as they stay attached to the document. Therefor I am still looking for the possibillity to have that footer automatically printed to documents.
But thanks a lot anyway,

Johan Smits.

[avivit]

I know it's not what you want, I also wanted to do this, and when asked that in other forums, here are the answers I got:

1."the only thing that i know of is a separator page... if you want to print a header, you might have to look at some third party software or setup a print que log."

2. "Use a seperator page?
Start Button --> Settings --> Printers
Right click printer icon and select Properties. Look for the Seperator Page button."

The 2nd did the job, until...maybe...we find another way.

[avivit]

Forgot to mention: It's regarding windows 2000 server.

[Roberto_43]

Does any of you know how can I get the name of the document that I want to print on a separator page?

I tried "Fpathname" but it didn't work.

Thanks for your time

[Jon Finley]

The usage is:
@Fpathname_to_the_file_you_want_to_print.

i.e. c:\mydocs\test.doc

@Fc:\mydocs\test.doc

http://support.microsoft.com/default.aspx?scid=kb;en-us;102712

Jon

[Roberto_43]

Thanks Jon for your reply. I'm still trying to figure out how to get a filename on the separator page. Using "Fpathname" I have to specify the file name that I am going to print but what I'm looking for is a way to print out the file name of any document on the separator page. Just like the user name or jobid is printed on the separator page. I need the document name to differenciate
all the documents printed by the same user (because the jobid does not really tell me anything).
Thanks again for your help!

[trumboo]

I have the same requirement, I want to print username on every page at the footer

Please let me know if have any solution

[Denis Finnegan]

hi All,

Why not just keep the print queue and process that into a log file and then delete the job.

here is a script I wrote to do this.

'For this to work you must set the Keep Printed Documents in the printer advanced settings.

WorkQueue()
Sub WorkQueue()

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrintJobs = objWMIService.ExecQuery _
("Select * from Win32_PrintJob")


Const ForReading = 1 'Open a file for reading only. You canâ t write to this file.
Const ForWriting = 2 'Open a file for writing.
Const ForAppending = 8 'Open a file and write to the end of the file.

'create text file
Dim fs

Set fs = CreateObject("Scripting.FileSystemObject")
Set objWriteFile = fs.OpenTextFile("G:\Common_Share\Prtint Queue Log.txt", ForAppending)


'Process Print Queue
For Each objPrintJob in colPrintJobs
strPrinter = Split(objPrintJob.Name,",",-1,1)

'If you want email notification, uncomment the below
'SendEmail objPrintJob.Owner,strPrinter(0), objPrintJob.TotalPages

objWriteFile.Writeline("Time Stamp: " & Now() & ", Job Name: " & objPrintJob.Name & ", Doc Name: " & objPrintJob.Document & ", Job Owner: " & objPrintJob.Owner & ", Total Pages: " & objPrintJob.TotalPages & ", Size: " & objPrintJob.Size & ", Status: " & objPrintJob.Status)

objPrintJob.Delete_

Next

end Sub



Sub SendEmail(owner, printer, pages)
Set objMessage = CreateObject("CDO.Message")

objMessage.Sender = "whatever@domain.com"
objMessage.To = owner & "@tescodiets.com"
objMessage.Subject = "Have you Collected your Print Job Yet?"
objMessage.TextBody = "Has " & owner & " Collected their Print Off from the " & Printer & " Printer?" & vbcrlf & "The job consisted of " & pages & " pages."
VSMTPServer = "192.168.1.66"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = VSMTPServer
objMessage.Configuration.Fields.Update

objMessage.Send


end Sub