Comando cliper negrito para impressora hp lasejet

[Dayse Oliveira]

Olá pessoal

Tenho um programa em clipper que mandava impressão para uma impressora matricial Epson fx 1170, agora precisei trocar a impressora por uma hp laserjet 1200, deu certo porém o comando negrito não funciona. Alguém saberia me dizer qual o comando para negrito e aumentar a fonte na hp laserjet 1200.
Desde já agradeço.

Att.
Dayse Oliveira

[HASA]

Olá veja se ajuda:

Código: Selecionar todos

FUNCTION QUAL_IMPRESSORA

   OJAN96:=WIN(07,30,14,43,"IMPRESSORAS",,WD_AZUL1CINZA)
   MSGH = " Epson      HP 500-600  HP 820-840  PadrÆo IBM  Rima    "
   DECLARE OP[5]
   A=0
   B=0
   DO WHILE A < 5 
      A=A+1
      MSGN = SUBSTR(MSGH,B,12)
      OP[A]=MSGN
      B=B+12
   ENDDO   
   DO WHILE .T.
      OP_A = ACHOICE(09,31,13,42,OP)
      IF OP_A = 0
         RSTENV(OJAN96)
         EXIT
      ELSEIF OP_A = 1
         RSTENV(OJAN96)
         C_DRVIMPR="PADRÇO EPSON - MATRICIAL"
         C_DRVACOM="CHR(15)"
         C_DRVDCOM="CHR(18)"
         C_DRVAELI="CHR(27)+'M'"
         C_DRVDELI="CHR(27)+'P'"
         C_DRVANEG="CHR(27)+'G'"
         C_DRVDNEG="CHR(27)+'H'"
         C_DRVAEXP="CHR(27)+'W'+CHR(1)"
         C_DRVDEXP="CHR(27)+'W'+CHR(0)"
         C_DRVAITA:="CHR(27)+CHR(4)"
         C_DRVDITA:="CHR(27)+CHR(5)"
         C_DRVASUB:="CHR(27)+'-'+CHR(1)"
         C_DRVDSUB:="CHR(27)+'-'+CHR(0)"
         EXIT
      ELSEIF OP_A = 2
         RSTENV(OJAN96)
         C_DRVIMPR="HP DESKJET - 400/500/600"
         C_DRVACOM="CHR(27)+'(s4S'"
         C_DRVDCOM="CHR(27)+'E'"
         C_DRVAELI="CHR(27)+'(s12H'"
         C_DRVDELI="CHR(27)+'E'"
         C_DRVANEG="CHR(27)+'(s32S'"
         C_DRVDNEG="CHR(27)+'E'"
         C_DRVAEXP="CHR(27)+'(s24S'"
         C_DRVDEXP="CHR(27)+'E'"
         C_DRVAITA:="CHR(27)+'(s0S'"
         C_DRVDITA:="CHR(27)+'E'"
         C_DRVASUB:="CHR(27)+'(s63S'"
         C_DRVDSUB:="CHR(27)+'E'"
         EXIT
      ELSEIF OP_A = 3
         RSTENV(OJAN96)
         C_DRVIMPR="HP LASER - 820/840"
         C_DRVACOM="CHR(27)+'(s16.67H'"
         C_DRVDCOM="CHR(27)+'(s10H'"
         C_DRVAELI="CHR(27)+'(s12H'"
         C_DRVDELI="CHR(27)+'(s10H'"
         C_DRVANEG="CHR(27)+'(s3B'"
         C_DRVDNEG="CHR(27)+'(s-3B'"
         C_DRVAEXP="CHR(27)+'(s3B'"
         C_DRVDEXP="CHR(27)+'(s-3B'"
         C_DRVAITA:="CHR(27)+'(s0S'"
         C_DRVDITA:="CHR(27)+'E'"
         C_DRVASUB:="CHR(27)+'(s63S'"
         C_DRVDSUB:="CHR(27)+'E'"
         EXIT
      ELSEIF OP_A = 4
         RSTENV(OJAN96)
         C_DRVIMPR="PADRÇO I B M - MATRICIAL"
         C_DRVACOM="CHR(15)"
         C_DRVDCOM="CHR(18)"
         C_DRVAELI="CHR(30)+'2'"
         C_DRVDELI="CHR(30)+'0'"
         C_DRVANEG="CHR(27)+'G'"
         C_DRVDNEG="CHR(27)+'H'"
         C_DRVAEXP="CHR(27)+'W'+CHR(1)"
         C_DRVDEXP="CHR(27)+'W'+CHR(0)"
         C_DRVAITA:="CHR(27)+CHR(4)"
         C_DRVDITA:="CHR(27)+CHR(5)"
         C_DRVASUB:="CHR(27)+'-'+CHR(1)"
         C_DRVDSUB:="CHR(27)+'-'+CHR(0)"
         EXIT
      ELSEIF OP_A = 5
         RSTENV(OJAN96)
         C_DRVIMPR="PADRÇO R I M A - MATRICIAL"
         C_DRVACOM="CHR(15)"
         C_DRVDCOM="CHR(18)"
         C_DRVAELI="CHR(27)+'['+CHR(2)"
         C_DRVDELI="CHR(27)+'['+CHR(1)"
         C_DRVANEG="CHR(27)+'G'"
         C_DRVDNEG="CHR(27)+'H'"
         C_DRVAEXP="CHR(27)+'W'+CHR(1)"
         C_DRVDEXP="CHR(27)+'W'+CHR(0)"
         C_DRVAITA:="CHR(27)+CHR(4)"
         C_DRVDITA:="CHR(27)+CHR(5)"
         C_DRVASUB:="CHR(27)+'-'+CHR(1)"
         C_DRVDSUB:="CHR(27)+'-'+CHR(0)"
         EXIT
      ENDIF
   ENDDO

Essa Win() e da visuallib, caso não use pode utilizar o achoice() ok

:)Pos
HASA