PC Toledo

pessoal

deu um curto nas idéias e naum lembro como farei pra imprimir em formularios um pouco menores que o padrao, (maior q o razao e menor que o continuo) o salto de pagina está ficando errado,

seria no inicio da impressao
? chr(27)+chr(67)+chr(33)

ou o q??

agradeço.

o comando esta certo é este mesmo. O chr(33) e usado pra formulario razao entao e so vc aumentar o chr(total de linhas)

Vejam como fiz a impressao...........

Set Printer to Lpt.Txt
Set Device To Print

? chr(27)+chr(67)+chr(51)

Sele Mov_Sai
Set Order to 2
Go Top
DbSeek(nPedido)
nLinha:=0
nSalta:=0
nCodCli:= CODCLI_SAI
cNomCli:= NOMCLI_SAI

While .T. .and. !Eof()
If nLinha==0
Cabecalho2()
Endif
Sele Sai_Pro
Set Order to 1
Go Top
DbSeek(nPedido)

While .T. .and. PEDIDO_MSP == nPedido .and. !Eof()
@ nLinha,00 Say Strzero(CODPRO_MSP,5)
@ nLinha,07 Say Substr(NOMPRO_MSP,1,35)
@ nLinha,68 Say TOTPRO_MSP
If SERVIC_MSP=="S"
If !Empty(HISTOR_MSP)
nLinha++
@ nLinha,00 Say Substr(HISTOR_MSP,1,70)
Endif
Endif

nLinha++
nSalta++
Dbskip()
IF nSalta > 10
//Eject()
nLinha:=0
nSalta:=0
Cabecalho2()
Endif
Enddo
Exit
Enddo

@ 44,15 Say "3.00"
@ 44,25 Say nVlrIss Pict"@e 999,999.99"
@ 47,68 Say nVlNota Pict"@e 999,999.99"

Set Device to Screen
Set Printer to

cSpool:=Alert("Imprimir Nota no Dispositivo !", {" Video " , " Impressora "},"W/B")
If cSpool==1
Lertexto("Lpt"+".txt")
Elseif cSpool==2
Run &cTpSpool
Exit
Endif
Exit
Enddo
RestScreen(00,00,23,79,vTela)

**----------------**
Function Cabecalho2()
**----------------**

@ 07,50 Say chr(15)+Strzero(nNota,6)
@ 07,50 Say Strzero(nNota,6)
@ 10,60 Say dEmissao

cAlias:=Alias()
cRecno:=Recno()
cOrdem:=IndexOrd()

Sele Bd_Cli
Set Order to 1
Go top
Dbseek(nCodCli)

@ 11,10 Say Strzero(nCodCli,6)
@ 11,17 Say SubStr(cNomCli,1,40)
@ 13,10 Say SubStr(ENDERE_CLI,1,25)+Strzero(NUMERO_CLI,4)
@ 13,45 Say SubStr(BAIRRO_CLI,1,15)
@ 14,10 Say SubStr(CIDADE_CLI,1,25)
@ 14,75 Say ESTADO_CLI
@ 16,10 Say nCNPJ
@ 16,60 Say nInscri
nLinha:=19

DbSelectArea(cAlias)
DbSetOrder(cOrdem)
DbGoto(cRecno)
Return

pessoal
das varias formas que tento imprimir, o que percebi é que apen nao consigo definir o tamanho do formulario para 51 linhas onde o padrao é 67, entaum o salto de pagina fica muito fora

e ? chr(27)+chr(67)+chr(51) ----> nao funciona.

Agradeço se puderem me mandar dicas.