comando set printer to lpt1 dando erro

[porter]

olá pessoal, no clipper eu seto a porta paralela assim:
SET PRINTER TO LPT1
No clipper, se não tiver uma porta paralela instalada, não dá erro, mas no xHarbour está dando o seguinte erro:

CREATE ERROR LPT1.prn Arguments()
(DOS ERROR 2)

Gostaria de saber se o comando no xHarbour é diferente, porque nem todas as máquinas terão porta paralela instalada, no clipper independente de ter a porta paralela instalada ou não, esse erro não acontece, já no xHarbour sim.

windows 7 64 bits, xHarbour.

obrigado.

[Kapiaba]

Código: Selecionar todos

EXTERNAL Isprinter

FUNCTION Imprime()

  LOCAL x_print:= PRINTERPORTTONAME( "lpt1:" )

  IF .NOT. ISPRINTER()
     RETURN NIL
  ENDIF

  IF .NOT. EMPTY( x_print )

    SET PRINTER TO (x_print)

  ELSE

    Alert( "No printer attached to LPT1: " )

  ENDIF

RETURN NIL

[Kapiaba]

Código: Selecionar todos

   set printer to tmpfile.prn 
   set device to printer 

   //.... /your print fiunction/ .... 

   set device to screem 
   set printer to 

   PrintFileRaw( YouPrinterNameInWindows, 'tmpfile.prn' , )