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
Ajuda - Folha ejetando
Moderador: Moderadores
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
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)
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)

