:?: Boa tarde a todos!!!
Passei um tempo sem acessar o forum de toledo, + estou de volta, e adorei esse novo forum, tive que mudar o Apelido de PJ para PJTB espero
aqui encontrar os brother que me ajudarao muito...
Gostaria de saber como imprimir em modo paisagem no clipper...
Imprimir no Clipper em modo paisagem
Moderador: Moderadores
Imprimir em modo Paisagem em Clipper
Se for nas DeskJets tenho os comando,,,
Hipótese é uma coisa que não é, mas a gente faz de conta que é, só pra ver como seria.
Impressao nas Hps
Caros colegas,
Seguem os códigos das impressoras HP DeskJet e LaserJet
Foram retirados de um arquivo PDF que recebi do Suporte Técnico da HP, quando precisei criar um relatório na LaserJet com Papel A3 em formato paisagem, (vixi ,,, até isso ja fiz em clipper5 he,he,he,h)
Garanto que a maior parte dos cpógiso eu ja testei no clipper, como migrei todos os meus sistemas pra outra plataforma, estou fazendo testes com os novos sistemas,,,
espero que ajudem vcs..
TIPOS DE LETRAS
ELITE:=CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(84)
TIMES:=CHR(27)+CHR(40)+CHR(115)+CHR(52)+CHR(49)+CHR(48)+CHR(49)+CHR(84)
LETTER:=CHR(27)+CHR(40)+CHR(115)+CHR(54)+CHR(84)
UNIVERS:=CHR(27)+CHR(40)+CHR(115)+CHR(53)+CHR(50)+CHR(84)
QUALIDADE DE IMPRESSAO
CARTA:=CHR(27)+CHR(40)+CHR(115)+CHR(50)+CHR(81)
RASCUNHO:=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81)
ESTILOS DE LETRAS
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)
BOLD:=CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(66) // NEGRITO
EXTRA:=CHR(27)+CHR(40)+CHR(115)+CHR(55)+CHR(66)
PC850:=CHR(27)+CHR(40)+CHR(115)+"#06#"+CHR(72) // CONJ. DE CARACTERES
reset := chr(027) + chr(069)
paisagem:= chr(027) + chr(038) + chr(108) + chr(049) + chr(079)
chrset := chr(027) + chr(040) + chr(049) + chr(050) + chr(085)
spacing := chr(027) + chr(040) + chr(115) + chr(049) + chr(080)
pitch := chr(027) + chr(040) + chr(115) + chr(049) + chr(050) + chr(072)
size := chr(027) + chr(040) + chr(115) + chr(050) + chr(052) + chr(086)
cgtimes := chr(027) + chr(040) + chr(115) + chr(052) + chr(049) + chr(048)
page := chr(027) + chr(038) + chr(108) + chr(050) + chr(054) + chr(065)
negritoi:= CHR(027) + CHR(040) + CHR(115) + CHR(051) + CHR(066)
negritof:= CHR(027) + CHR(040) + CHR(115) + CHR(048) + CHR(066)
pitch := chr(027) + chr(040) + chr(115) + chr(049) + chr(050) + chr(072)
TRoman := chr(027) + chr(040) + chr(115) + chr(053) + chr(084)
traco := repl( chr( 196 ),129 )
Reseta a impressora
hp_reset = chr(27)+chr(69)
Formato do papel A4
hp_pp_A4 = chr(27)+chr(38)+chr(108)+chr(50)+chr(54)+chr(65)
Formato do papel Default
hp_pp_DF = chr(27)+chr(38)+chr(108)+chr(48)+chr(65)
Formato de pagina retrato
hp_pg_ret = chr(27)+chr(38)+chr(108)+chr(49)+chr(79)
hp_pg_nor = chr(27)+chr(38)+chr(108)+chr(48)+chr(79)
Voces podem chegar a qualquer tamanho de caracter trocando o numero de controle
Exemplos..
hp_ct_05 = chr(27)+"(s05H" // Tamanho do caracter 10 cpp = default
hp_ct_10 = chr(27)+"(s10H" // Tamanho do caracter 10 cpp = default
hp_ct_15 = chr(27)+"(s15H" // Tamanho do caracter 15 cpp
hp_ct_20 = chr(27)+"(s20H" // Tamanho do caracter 20 cpp
hp_ct_30 = chr(27)+"(s30H" // Tamanho do caracter 30 cpp
Formato de pagina normal
hp_ct_bol = chr(27)+chr(40)+chr(115)+chr(51)+chr(66)
Escreve em extra bold
hp_ct_ebo = chr(27)+chr(40)+chr(115)+chr(51)+chr(66)
Retira bold e volta ao normal
hp_ct_nor = chr(27)+chr(40)+chr(115)+chr(48)+chr(66)
Formato de impressao modo economico
hp_econom = CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81)
Formato de impressao modo carta normal
hp_normal = CHR(27)+CHR(40)+CHR(115)+CHR(50)+CHR(81)
Habilita impressao em cores
hp_cor_on = chr(27)+chr(42)+chr(114)+chr(45)+chr(51)+chr(85)
Desabilita impressao em cores
hp_cor_of = chr(27)+chr(42)+chr(114)+chr(49)+chr(85)
Eu não me lembro das cores
Hp_cor1 = hp_cor_on+chr(27)+chr(42)+chr(118)+"1"+chr(83)
Hp_cor2 = hp_cor_on+chr(27)+chr(42)+chr(118)+"2"+chr(83)
Hp_cor3 = hp_cor_on+chr(27)+chr(42)+chr(118)+"3"+chr(83)
Hp_cor4 = hp_cor_on+chr(27)+chr(42)+chr(118)+"4"+chr(83)
Hp_cor5 = hp_cor_on+chr(27)+chr(42)+chr(118)+"5"+chr(83)
Hp_cor6 = hp_cor_on+chr(27)+chr(42)+chr(118)+"6"+chr(83)
hp_cor7 = hp_cor_on+chr(27)+chr(42)+chr(118)+"7"+chr(83)
hp_cor11 = hp_cor_on+chr(27)+chr(42)+chr(118)+"11"+chr(83)
Seguem os códigos das impressoras HP DeskJet e LaserJet
Foram retirados de um arquivo PDF que recebi do Suporte Técnico da HP, quando precisei criar um relatório na LaserJet com Papel A3 em formato paisagem, (vixi ,,, até isso ja fiz em clipper5 he,he,he,h)
Garanto que a maior parte dos cpógiso eu ja testei no clipper, como migrei todos os meus sistemas pra outra plataforma, estou fazendo testes com os novos sistemas,,,
espero que ajudem vcs..
TIPOS DE LETRAS
ELITE:=CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(84)
TIMES:=CHR(27)+CHR(40)+CHR(115)+CHR(52)+CHR(49)+CHR(48)+CHR(49)+CHR(84)
LETTER:=CHR(27)+CHR(40)+CHR(115)+CHR(54)+CHR(84)
UNIVERS:=CHR(27)+CHR(40)+CHR(115)+CHR(53)+CHR(50)+CHR(84)
QUALIDADE DE IMPRESSAO
CARTA:=CHR(27)+CHR(40)+CHR(115)+CHR(50)+CHR(81)
RASCUNHO:=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81)
ESTILOS DE LETRAS
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)
BOLD:=CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(66) // NEGRITO
EXTRA:=CHR(27)+CHR(40)+CHR(115)+CHR(55)+CHR(66)
PC850:=CHR(27)+CHR(40)+CHR(115)+"#06#"+CHR(72) // CONJ. DE CARACTERES
reset := chr(027) + chr(069)
paisagem:= chr(027) + chr(038) + chr(108) + chr(049) + chr(079)
chrset := chr(027) + chr(040) + chr(049) + chr(050) + chr(085)
spacing := chr(027) + chr(040) + chr(115) + chr(049) + chr(080)
pitch := chr(027) + chr(040) + chr(115) + chr(049) + chr(050) + chr(072)
size := chr(027) + chr(040) + chr(115) + chr(050) + chr(052) + chr(086)
cgtimes := chr(027) + chr(040) + chr(115) + chr(052) + chr(049) + chr(048)
page := chr(027) + chr(038) + chr(108) + chr(050) + chr(054) + chr(065)
negritoi:= CHR(027) + CHR(040) + CHR(115) + CHR(051) + CHR(066)
negritof:= CHR(027) + CHR(040) + CHR(115) + CHR(048) + CHR(066)
pitch := chr(027) + chr(040) + chr(115) + chr(049) + chr(050) + chr(072)
TRoman := chr(027) + chr(040) + chr(115) + chr(053) + chr(084)
traco := repl( chr( 196 ),129 )
Reseta a impressora
hp_reset = chr(27)+chr(69)
Formato do papel A4
hp_pp_A4 = chr(27)+chr(38)+chr(108)+chr(50)+chr(54)+chr(65)
Formato do papel Default
hp_pp_DF = chr(27)+chr(38)+chr(108)+chr(48)+chr(65)
Formato de pagina retrato
hp_pg_ret = chr(27)+chr(38)+chr(108)+chr(49)+chr(79)
hp_pg_nor = chr(27)+chr(38)+chr(108)+chr(48)+chr(79)
Voces podem chegar a qualquer tamanho de caracter trocando o numero de controle
Exemplos..
hp_ct_05 = chr(27)+"(s05H" // Tamanho do caracter 10 cpp = default
hp_ct_10 = chr(27)+"(s10H" // Tamanho do caracter 10 cpp = default
hp_ct_15 = chr(27)+"(s15H" // Tamanho do caracter 15 cpp
hp_ct_20 = chr(27)+"(s20H" // Tamanho do caracter 20 cpp
hp_ct_30 = chr(27)+"(s30H" // Tamanho do caracter 30 cpp
Formato de pagina normal
hp_ct_bol = chr(27)+chr(40)+chr(115)+chr(51)+chr(66)
Escreve em extra bold
hp_ct_ebo = chr(27)+chr(40)+chr(115)+chr(51)+chr(66)
Retira bold e volta ao normal
hp_ct_nor = chr(27)+chr(40)+chr(115)+chr(48)+chr(66)
Formato de impressao modo economico
hp_econom = CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81)
Formato de impressao modo carta normal
hp_normal = CHR(27)+CHR(40)+CHR(115)+CHR(50)+CHR(81)
Habilita impressao em cores
hp_cor_on = chr(27)+chr(42)+chr(114)+chr(45)+chr(51)+chr(85)
Desabilita impressao em cores
hp_cor_of = chr(27)+chr(42)+chr(114)+chr(49)+chr(85)
Eu não me lembro das cores
Hp_cor1 = hp_cor_on+chr(27)+chr(42)+chr(118)+"1"+chr(83)
Hp_cor2 = hp_cor_on+chr(27)+chr(42)+chr(118)+"2"+chr(83)
Hp_cor3 = hp_cor_on+chr(27)+chr(42)+chr(118)+"3"+chr(83)
Hp_cor4 = hp_cor_on+chr(27)+chr(42)+chr(118)+"4"+chr(83)
Hp_cor5 = hp_cor_on+chr(27)+chr(42)+chr(118)+"5"+chr(83)
Hp_cor6 = hp_cor_on+chr(27)+chr(42)+chr(118)+"6"+chr(83)
hp_cor7 = hp_cor_on+chr(27)+chr(42)+chr(118)+"7"+chr(83)
hp_cor11 = hp_cor_on+chr(27)+chr(42)+chr(118)+"11"+chr(83)
Hipótese é uma coisa que não é, mas a gente faz de conta que é, só pra ver como seria.
Valeu!!!!!!!
Boa tarde galera!!!!
Valeu, tirou todas as minhas duvidas, e concluir meus serviços, espero que esta pesquisa ajude varias pessoas.
Fui!!!!
Pj

Valeu, tirou todas as minhas duvidas, e concluir meus serviços, espero que esta pesquisa ajude varias pessoas.
Fui!!!!
Pj

