Page 1 of 1 1
Topic Options
#185926 - 2008-03-04 12:46 PM printer connection and default printer
paul28 Offline
Fresh Scripter

Registered: 2008-02-28
Posts: 20
Loc: UK
Hi,

I am trying to add the addprinterconnection and the defaut printer depending on the users group membership. When I run the script it seems to make the last addprinterconnection the default printer even when the user is not a member of the default printer group.

The naming convention is that all printers have the same name as their share name. The D in the group name denotes the members of the group should have the printer made as their defaut printer:

ie. If you are a member of the Prn_05-G group you should have access to printer prn_05, if you are a member of the Prn_05D-G then this should be your default printer.

Here is what I've come up with

IF INGROUP ("Prn_01-G")
ADDPRINTERCONNECTION ("\\server\Prn_01")
ENDIF
IF INGROUP ("Prn_01D-G")
SETDEFAULTPRINTER ("\\server\Prn_01")
ENDIF
IF INGROUP ("Prn_02-G")
ADDPRINTERCONNECTION ("\\server\Prn_02")
ENDIF
IF INGROUP ("Prn_02D-G")
SETDEFAULTPRINTER ("\\server\Prn_02")
ENDIF
IF INGROUP ("Prn_03-G")
ADDPRINTERCONNECTION ("\\server\Prn_03")
ENDIF
IF INGROUP ("Prn_03D-G")
SETDEFAULTPRINTER ("\\server\Prn_03")
ENDIF
IF INGROUP ("Prn_04-G")
ADDPRINTERCONNECTION ("\\server\Prn_04")
ENDIF
IF INGROUP ("Prn_04D-G")
SETDEFAULTPRINTER ("\\server\Prn_04")
ENDIF
IF INGROUP ("Prn_05-G")
ADDPRINTERCONNECTION ("\\server\Prn_05")
ENDIF
;IF INGROUP ("Prn_05D-G")
SETDEFAULTPRINTER ("\\server\Prn_05")
;ENDIF
IF INGROUP ("Prn_06-G")
ADDPRINTERCONNECTION ("\\server\Prn_06")
ENDIF
IF INGROUP ("Prn_06D-G")
SETDEFAULTPRINTER ("\\server\Prn_06")
ENDIF
IF INGROUP ("Prn_07-G")
ADDPRINTERCONNECTION ("\\server\Prn_07")
ENDIF

Thanks in advance

Top
#185929 - 2008-03-04 01:15 PM Re: printer connection and default printer [Re: paul28]
Witto Offline
MM club member
*****

Registered: 2004-09-29
Posts: 1828
Loc: Belgium
If the problem is like you say, maybe reorganise the script and put the SetDefaultPrinter() functions at the end
Break ON
DIM $SO
$SO
 = SetOption("Explicit", "ON")
$SO = SetOption("NoMacrosInStrings", "ON")
$SO = SetOption("NoVarsInStrings", "ON")

If InGroup ("Prn_01-G")
   
$SO = AddPrinterConnection ("\\server\Prn_01")
EndIf
If InGroup ("Prn_02-G")
   
$SO = AddPrinterConnection ("\\server\Prn_02")
EndIf
If
 InGroup ("Prn_03-G")
   
$SO = AddPrinterConnection ("\\server\Prn_03")
EndIf
If
 InGroup ("Prn_04-G")
   
$SO = AddPrinterConnection ("\\server\Prn_04")
EndIf
If InGroup ("Prn_05-G")
   
$SO = AddPrinterConnection ("\\server\Prn_05")
EndIf
If InGroup ("Prn_06-G")
   
$SO = AddPrinterConnection ("\\server\Prn_06")
EndIf
If InGroup ("Prn_07-G")
   
$SO = AddPrinterConnection ("\\server\Prn_07")
EndIf

If InGroup ("Prn_01D-G")
   
$SO = SetDefaultPrinter ("\\server\Prn_01")
EndIf
If InGroup ("Prn_02D-G")
   
$SO = SetDefaultPrinter ("\\server\Prn_02")
EndIf
If InGroup ("Prn_03D-G")
   
$SO = SetDefaultPrinter ("\\server\Prn_03")
EndIf
If InGroup ("Prn_04D-G")
   
$SO = SetDefaultPrinter ("\\server\Prn_04")
EndIf
;If InGroup ("Prn_05D-G")
   
$SO
 =
SetDefaultPrinter
 (
"
\
\
server\Prn_05")
;EndIf
If InGroup ("Prn_06D-G")
   
$SO = SetDefaultPrinter ("\\server\Prn_06")
EndIf

Top
Page 1 of 1 1


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 1636 anonymous users online.
Newest Members
Viginette, ManuvdWielNL, Sir_Barrington, batdk82, StuTheCoder
17888 Registered Users

Generated in 0.055 seconds in which 0.027 seconds were spent on a total of 13 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org