;********laser 1**************************
:Printer_Pool1
	if $wkstype="PTP" and $wksorder="01"
		$statlaser=$loc
	else
		if addprinterconnection ($srvQL) = 0
			$statlaser=$ok
		else
                        $statlaser=$abs
		endif
	endif
        $def_print="HP Laser Pool1 "+$statlaser
        if $statlaser=$ok or $statlaser=$loc
        $nul = oleputproperty ( $frmprint, "innerhtml", "s", 'color="#FFFF00">$def_print' )
        else
        $nul = oleputproperty ( $frmprint, "innerhtml", "s", 'color="#FF0000">$def_print' )
        endif
	return

;********laser 2**************************
:Printer_Pool2
	$ptp11="\\PTP"+substr(@DOMAIN,3,4)+$ccmid+"11"
        shell "net view $ptp11"
        if @error=0
		if $wkstype="PTP" and $wksorder="11"
			$statlaser=$loc
		else
			if addprinterconnection ($srvQL) = 0
				$statlaser=$ok
			else
				$statlaser=$abs
			endif
		endif
                $def_print="HP Laser Pool2 "+$statlaser
        if $statlaser=$ok or $statlaser=$loc
        $nul = oleputproperty ( $frmprint, "innerhtml", "s", 'color="#FFFF00">$def_print' )
        else
        $nul = oleputproperty ( $frmprint, "innerhtml", "s", 'color="#FF0000">$def_print' )
        endif
	else
		$statlaser=$nex
	endif
	return

;********laser 3**************************
:Printer_Pool3
	$ptp31="\\PTP"+substr(@DOMAIN,3,4)+$ccmid+"31"
        shell "net view $ptp31"
        if @error=0
		if $wkstype="PTP" and $wksorder="31"
			$statlaser=$loc
		else
			if addprinterconnection ($srvQL) = 0
				$statlaser=$ok
			else
				$statlaser=$abs
			endif
		endif
                $def_print="HP Laser Pool3 "+$statlaser
        if $statlaser=$ok or $statlaser=$loc
        $nul = oleputproperty ( $frmprint, "innerhtml", "s", 'color="#FFFF00">$def_print' )
        else
        $nul = oleputproperty ( $frmprint, "innerhtml", "s", 'color="#FF0000">$def_print' )
        endif
	else
		$statlaser=$nex
	endif
	return

;********couleur**************************
:Printer_Color
	if $wkstype<>"PTP" and $wksorder="21"
		$statcolor=$loc
	else
		if addprinterconnection ($srvQC) = 0
			$statcolor=$ok
		else
			$statcolor=$abs
		endif
	endif
        $print_2="HP Deskjet  "+$statcolor
        if $statcolor=$ok or $statcolor=$loc
        $nul = oleputproperty ( $frmprint2, "innerhtml", "s", 'color="#FFFF00">$print_2' )
        else
        $nul = oleputproperty ( $frmprint2, "innerhtml", "s", 'color="#FF0000">$print_2' )
        endif
      	return