Salto de Página no Inicio da Impressão

[Joel Ramos]

Ola Pessoal,


Estou com um pequeno problema ao iniciar uma impressão de um parecido cupom fiscal, sempre que vai iniciar a impressão é dado sempre um salto de página, tipo um " EJECT ", mais garanto para os amigos que não tem nenhum comondo parecido com o " EJECt " no Prog. para que ocorra isto.

Este fato acontece em um impressora matricial marca Citizen GSX-190, pergunto aos colegas, este problema irá ocorrer em um impressora de 40 Col, com formulario em formato bobina.

Pois este Prog. irá funcionar em uma loja com impressoras de 40 Col.

Por Favor, Ajudem-me

Obrigado,


Abraços


Joel Ramos

[Cleiton Fidelis]

Amigo...

Poste um pedaco da rotina para examinar-mos.

Abracos

Cleiton Fidelis
Divinopolis MG

[kenew]

Realmente vendo a rotina ficaria mais facil, mas para adiantar verifique se vc não esta informando para imprimir na linha 0 (zero) de pois da primeira linha, pois isso faz ejetar uma folha tambem.

Exemplo:

@ Prow()+1, 00 Say { ... }
@ 0, 00 Say { ... } Isso faz saltar para a proxima pagina.

E mais uma coisa, teste em outra impressora para ter certeza q o problema é no sistema.

[Joel Ramos]

Ola Pessoal,


Estou com um pequeno problema ao iniciar uma impressão de um parecido cupom fiscal, sempre que vai iniciar a impressão é dado sempre um salto de página, tipo um " EJECT ", mais garanto para os amigos que não tem nenhum comondo parecido com o " EJECt " no Prog. para que ocorra isto.

Este fato acontece em um impressora matricial marca Citizen GSX-190, pergunto aos colegas, este problema irá ocorrer em um impressora de 40 Col, com formulario em formato bobina.

Pois este Prog. irá funcionar em uma loja com impressoras de 40 Col.

Por Favor, Ajudem-me

Obrigado,


Abraços


Joel Ramos

*----------------------------------------------------------*
FUNCTION IMPRIME
SAVE SCREEN TO TELA0000
SET COLOR TO W+/W,N*/W,,,N*/W
FRAME(14,15,16,67)
@ 15,16 SAY " Posicione o Formulario e Tecle Algo (Esc Retorna) "
IF INKEY(0) = 27
RETURN( .F. )
ENDIF
RESTORE SCREEN FROM TELA0000
DO WHILE .T.
IF !ISPRINTER()
SET COLOR TO R+/W,N*/W,,,N*/W
FRAME(14,25,16,59)
@ 15,26 SAY " A Impressora NÆo Esta Preparada "
INKEY(0)
SET COLOR TO
IF LASTKEY() = 27
RETURN( .F. )
ENDIF
LOOP
ENDIF
RESTORE SCREEN FROM TELA0000
EXIT
ENDDO
DO AGUARDE
SET DEVICE TO PRINT
@ PROW(),PCOL() SAY CHR(27)+"@ "
@ PROW(),PCOL() SAY " "
RETURN( .T. )
*----------------------------------------------------------*

Os linhas abaixo não é do fonte original, mais usa o mesma logica ( + ou - ), a Função acima é a de imprimir.

IF CL>56
IF PG>0
EJECT
ENDIF
CL=10
PG=PG+1
@ 0,0 SAY CHR(15)+" "
@ 0,0 SAY "FINANCEIRO"
@ 0,132 SAY TIME
@ 1,0 SAY CHR(18)+REPLICATE("=",80)
J=LEN(MENS1)*2
@ 2,(79-J)/2 SAY CHR(14)+MENS1+CHR(13)
ENDIF
@ 3,66 SAY "DATA:"
@ 3,72 SAY DATE()
FOR U=1 TO 3
@ 4,0 SAY "PREV. PGTO. - ANALITICO P/VENCIMENTO"
NEXT U
@ 4,66 SAY "PAG.:"
@ 4,77 SAY PG PICT "###"
@ 5,0 SAY REPLICATE("=",80)
@ 07,0 SAY "Periodo: "+DTOC(DATI)+" a "+DTOC(DATF)
@ 08,0 SAY CHR(15)
@ 08,0 SAY " "
@ 09,0 SAY "F o r n e c e d o r Doc/Periodo "+;
"Venc. Prev.Pag Cheque Banco "+;
" Ven.Cheq Valor Total"
@ 10,0 SAY REPLICATE("-",137)
ENDIF

[Joel Ramos]

E ai meus Amigos?? esta ai a minha rotina..

[Paulao]

Tente colocar no inicio de sua rotina logo após o set devi to print a seguinte linha de comando

setprc(00,00)

[Joel Ramos]

Prezado Amigo Paulão,


Agradeço pela sua dica, pois a mesma deu certo, espero poder ajuda-lo em qualquer outra oportunidade.

Aos demais agradeço tambem, pois companheiros de clipper sabem onde trocar as melhores soluções, e aqui no forum do PCTOLEDO a galera é demais.


Abraços a todos.