Ajuda - Folha ejetando

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

negrao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 06 Jul 2004 08:38

Ajuda - Folha ejetando

Mensagem por negrao »

Pessoal , estou configurando para imprimir uma promissoria na HP mas sempre que mando imprimir pula uma folha antes e so depois imprimi.
Abaixo estao as linhas de como estou mandando

Agradeco qualquer ajuda

*-------------------------------*
* IMPRIME A NOTA PROMISSORIA *
*-------------------------------*
cANO := ANO(nVenc) //--ANO POR EXTENSO
cMES := MES(nVenc) //--MES POR EXTENSO
cDIA := DIA2(nVenc) //--DIA POR EXTENSO nao abreviado
aExten:= Extenso(nTotal,83,1) //--valor por extenso

SET DEVICE TO PRINTER

setprc(prow(),0)
//> chr(27)+"E" reset
//> chr(27)+"(s10H" modo padrao
//> chr(27)+"(s12H" letra 12 cpp
//> chr(27)+"&l1O" modo paisagem

@ prow() ,01 say chr(27)+"E "+chr(27)+"(s10H "
+chr(27)+"(s12H "+chr(27)+"&l1O"

@ prow() ,113 SAY SUBS(DTOC(nVenc),1,2)
@ prow()+2,01 say ' '
@ prow() ,60 SAY STRZERO(ped->nrped,5)
@ prow()+1,01 say ' '
@ prow()+1,51 SAY alltrim(cDIA)
@ prow()+1,52 SAY SUBS(CANO[1],22,10)+SPACE(27)+"ei"
@ prow()+1,01 say ' '
@ prow()+1,48 SAY SUBS(PAREMP->RAZEPAR,1,30)
@ prow()+1,01 say ' '
@ prow()+1,70 SAY subs(aExten[1],1,40)
@ prow()+1,01 say ' '
@ prow()+1,47 SAY subs(aExten[1],41,83)
@ prow()+1,01 say ' '
@ prow()+1,49 SAY Paremp->CIDAPAR
//==> modo padrao
@ prow()+1,01 SAY chr(27)+'(s10H'
@ prow() ,51 SAY CNOME
@ prow()+1,52 SAY CCPF
//==> modo 17.5 cpp
@ prow() ,01 SAY chr(27)+'(s17.5H'
@ prow()+1,95 SAY CENDE
//==> Formato de pagina normal
@ prow()+1,01 say chr(27)+'(s10H'+' '+chr(27)+'&l0O'
EJECT
SET PRINTER TO &PORTA
SET PRINTER TO
Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

Prezado Negrão

Não sei se tem a ver, mas eu acho que não é necessário aquele EJECT no final.

Outra coisa, se você já usa o EJECT não precisa do SETPRC() já que o eject zera tudo.

Tente dasabilitar ambos e tente.

Até logo.

Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Responder