SoloCodigo
Programación General => Clipper => Mensaje iniciado por: ricardo_pre en Lunes 14 de Octubre de 2002, 17:35
-
Siempre que hice un programa que debia imprimir, le ingresé codigo de impresión Epson.
No se si para impresoras HP son los mismos.
Si alguien lo sabe por favor, responda.
Muchas gracias.
-
Hace un tiempo encontre esta rutina para HP,
aun no la he probado asi que no se si funciona.
Suerte
Jose
/*
Esta fun‡„o tem como objetivo a impress„o em cores para a impressora HP.
Autor: Emerson Borges dos Santos
Fone: 041-961-5884
Compila‡„o Clipper hp.prg
Linkedi‡„o Rtlink hp.obj
*/
cls
SIMNAO := SPACE(01)
@ 12,15 SAY "Confirma o Teste de Impress„o para a HP ?" GET SIMNAO PICTURE "!";
VALID(SIMNAO $ "SN")
?? chr(07)
READ
IF LASTKEY() = 27
CLS
QUIT
ENDIF
IF SIMNAO = "S"
SET DEVICE TO PRINT
SET CONSOLE OFF
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+'(s17.5H'
@ PROW()+1,1 SAY "Teste de Impressao Letra 17,5 Cpp"
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+'(s12H'
@ PROW()+1,1 SAY "Teste de Impressao Letra 12 Cpp"
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+'(s3H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Expandida"
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+'(s50H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Expandida"
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+CHR(38)+CHR(108)+'#4#'+CHR(68)
@ PROW()+1,1 SAY "Teste de Impress„o 4 Linhas por Polegada"
@ PROW()+1,1 SAY CHR(27)+CHR(38)+CHR(108)+'#6#'+CHR(68)
@ PROW()+1,1 SAY "Teste de Impress„o 6 Linhas por Polegada"
@ PROW()+1,1 SAY CHR(27)+CHR(38)+CHR(108)+'#8#'+CHR(68)
@ PROW()+1,1 SAY "Teste de Impress„o 8 Linhas por Polegada"
@ PROW()+1,1 SAY CHR(27)+CHR(38)+CHR(108)+'#2#'+CHR(68)
@ PROW()+1,1 SAY "Teste de Impress„o 2 Linhas por Polegada"
EJECT
SET CONSOLE ON
SET DEVICE TO SCREEN
// HP 600 e HP 660
OFICIO := CHR(27)+CHR(38)+CHR(108)+CHR(51)+CHR(65)
LENGH := CHR(27)+CHR(38)+CHR(108)+'#070#'+CHR(80)
LENTXT := CHR(27)+CHR(38)+CHR(108)+'#070#'+CHR(70)
TOPO := CHR(27)+CHR(38)+CHR(108)+'#000#'+CHR(69)
ELITE := CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(84)
VERTIC := CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(83)
ITALIC := CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(83)
NORMAL := CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(66)
PC850 := CHR(27)+CHR(40)+CHR(115)+'#06#'+CHR(72)
// Tamanho dos Caracteres CPP - Caracteres por Polegadas
Tam04 := CHR(27)+CHR(40)+CHR(115)+'04'+CHR(86)
Tam10 := CHR(27)+CHR(40)+CHR(115)+'10'+CHR(86)
// Tamanho dos Pontos - Altura do Caractere
Normal10 := Tam04+CHR(27)+CHR(40)+CHR(115)+'10'+CHR(72)
Normal11 := Tam04+CHR(27)+CHR(40)+CHR(115)+'11'+CHR(72)
Reduzido := Tam04+CHR(27)+CHR(40)+CHR(115)+'15'+CHR(72)
Defaut := CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(66)+VERTIC
Cor_Des := CHR(27)+CHR(42)+CHR(114)+CHR(49)+CHR(85)
Cor := CHR(27)+CHR(42)+CHR(114)+CHR(45)+CHR(51)+CHR(85)
Azul := CHR(27)+CHR(42)+CHR(118)+'1'+CHR(83)
Magenta := CHR(27)+CHR(42)+CHR(118)+'2'+CHR(83)
Cyan := CHR(27)+CHR(42)+CHR(118)+'3'+CHR(83)
Amarelo := CHR(27)+CHR(42)+CHR(118)+'4'+CHR(83)
Verde := CHR(27)+CHR(42)+CHR(118)+'5'+CHR(83)
Vermelho := CHR(27)+CHR(42)+CHR(118)+'6'+CHR(83)
Preto := CHR(27)+CHR(42)+CHR(118)+'7'+CHR(83)
SET DEVICE TO PRINT
@ 00,00 SAY Defaut+OFICIO+LENGH+LENTXT+PC850+ELITE+TOPO+NORMAL10+''
@ 01,00 SAY Cor+Azul + "Teste de Impressao de Cor - Azul"
@ 02,00 SAY Cor+Magenta + "Teste de Impressao de Cor - Magenta"
@ 03,00 SAY Cor+Cyan + "Teste de Impressao de Cor - Cyan"
@ 04,00 SAY Cor+Amarelo + "Teste de Impressao de Cor - Amarelo"
@ 05,00 SAY Cor+Verde + "Teste de Impressao de Cor - Verde"
@ 06,00 SAY Cor+Vermelho + "Teste de Impressao de Cor - Vermelho"
EJECT
SET DEVICE TO SCREEN
ELSE
CLS
QUIT
ENDIF