Thanks Allen and Shane for the quick reply.

Even if the suggestions will not directly fix my issues I appreciate the input.

I will do some reading this weekend about the PrinterConnection udf

Also the $RC suggestion will help to cleanup the code thanks.

Additionally I will look in to the AScan function.

All great suggestions, Thanks.

BTW:
$IPrinters is an array with individual printermappings:
 Code:
; Individual printer mapping Array -------------------------------------------------------------------------------
; Use only for individual printers or small groups
Dim $IPrinters[62]

$IPrinters[0]="" ; place holder
$IPrinters[1]="$EE102A_Printer","user1"
$IPrinters[2]="$EE102C_Printer","user2"
$IPrinters[3]="$EE102L_Copier"
$IPrinters[4]="$EE102Front_Printer","user3","user4","user5"
....
....