Página 1 de 1
Comando cliper negrito para impressora hp lasejet
Enviado: 30 Abr 2013 16:18
por 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
Comando cliper negrito para impressora hp lasejet
Enviado: 30 Abr 2013 17:04
por 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