Toon posts:

KIX32 default printer probleem.

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik zit met een probleempje,

Ik probeer in een netwerk printers te mappen die gelijk zijn aan de groep waar in een gebruiker zit.

Ik heb het als volgt gedaan:


----------------------------------------------------------
$printer="P-HP6P"
gosub printconn

$printer="P-HP-01"
gosub printconn

goto printconnf

:printconn
IF INGROUP("$printer")
DELPRINTERCONNECTION ("\\$pserver\$printer")
IF AddPrinterConnection ("\\$pserver\$printer") = 0
ENDIF
USE $mPrintport1 "\\$pserver\$printer"
IF setdefaultprinter ("\\$pserver\$printer") = 0
ENDIF
goto printconnf
ENDIF

Return
:printconnf
------------------------------------------------------------


De printer groepen het ik hetzelfde genoemd als de printer shares.

De gebruikers krijgen wel de juiste pinter alleen wordt die niet als default gezet. :?

Heeft iemand een idee???

  • Captor
  • Registratie: Juli 2001
  • Laatst online: 11-03-2025

Captor

Serenity now, insanity later !

in dit script stel je toch ook nergens een default printer in of wel ?

Verwijderd

Topicstarter
Dat zou hier moeten gebeuren:

USE $mPrintport1 "\\$pserver\$printer"
IF setdefaultprinter ("\\$pserver\$printer") = 0
ENDIF

Ten minste dat d8 ik, :?

Iemand dat dat kan vertellen????

  • seq_uence
  • Registratie: Mei 2000
  • Laatst online: 01-08-2024
Op maandag 25 maart 2002 09:01 schreef pietpruts het volgende:
Dat zou hier moeten gebeuren:

USE $mPrintport1 "\\$pserver\$printer"
IF setdefaultprinter ("\\$pserver\$printer") = 0
ENDIF

Ten minste dat d8 ik, :?

Iemand dat dat kan vertellen????
Iets anders, maar ik heb zoiets:

IF INGROUP ("groep1")
$p="\\server1\printer1"
$q="\\server1\printer2"
$r=addprinterconnection($q)
$x=addprinterconnection($p)
$x=setdefaultprinter($p)
ENDIF

Donec eris felix, multos numerabis amicos


Verwijderd

Topicstarter
OK,

Het heleprinter config gedeelte is:
----------------------------------------------------------

$mPrintport1 = "LPT1:"
$mPrintport2 = "LPT2:"

$pserver="SERVER"; Printerserver

$printer="P-HP-01"
gosub print_connect

$printer="P-HP-02"
gosub print_connect

goto print_connfig

:print_connect

IF INGROUP("$printer")

DELPRINTERCONNECTION ("\\$pserver\$printer")
IF AddPrinterConnection ("\\$pserver\$printer") = 0
ENDIF

USE $mPrintport1 "\\$pserver\$printer"
IF setdefaultprinter ("\\$pserver\$printer") = 0
ENDIF

goto print_connfig

ENDIF

Return

:print_connfig

------------------------------------------------------------
Dat zou toch moeten werken zou je denken. :?

Verwijderd

Topicstarter
Ik heb het al,

Ik had de printer naam niet gelijk aan de groep naam.
Pagina: 1