Setting printer attributes from VB Script

We have a VBS script that does most of the setup for an application.  

We have a Generic / text only printer installed, I am looking for a way for the VBS script to change the form to tray assignments to Envelope#10 and in Printer Commands to set Begin and End print job commands.

I can do all this manually, but am looking to script it so users can make the changes themselves.

Thanks in advance.
LVL 3
JohnARAsked:
Who is Participating?
 
JohnARConnect With a Mentor Author Commented:

After some digging around I found that you cant directly set individual settings from VBS (or other)

I manually made the changes I needed, then using the following code I can read these settings into an array, to apply them it just a metter of using SetBinaryValue and passing the array


Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
 
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Generic / Text Only\PrinterDriverData"
strValueName = "TTY DeviceConfig"
 
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrValues
 
count = 0
 
wstmp = "PrinterDeviceConfig=array("
For Each strValue In arrValues
 
	if count = 0 then  wstmp = wstmp & strValue 
	if count <> 0 then  wstmp = wstmp & "," & strValue 
 
	count = count + 1
Next
 
wstmp = wstmp & ")" 
Wscript.Echo "Array " & wstmp

Open in new window

0
All Courses

From novice to tech pro — start learning today.