[marcoszorrilla]

Yo con Clipper hago esto:

  IF nTipo == 1
        cInitPrn:=""
                IF NETNAME() <> "PUESTO1"
        SET PRINTER TO \\PUESTO1\hplaser\LPT1
                END

        ELSE
                IF NETNAME() <> "FACTURACION"
        SET PRINTER TO \\FACTURACION\epson\LPT1
                END
        
        END

Un Saludo.