DEVPOS()
 Move a cabeça de impressao para uma nova posiçao
------------------------------------------------------------------------------

 Sintaxe

     DEVPOS(<nLinha>, <nCol>) --> NIL

 Argumentos

     <nLinha> e <nCol> sao as novas posiçoes de linha e coluna da
     cabeça de impressao.

 Retorno

     DEVPOS() sempre retorna NIL.

 Descriçao

     DEVPOS() é uma funçao de tratamento de ambiente que move a cabeça de
     impressao para a linha e coluna especificadas caso o dispositivo
     corrente seja a impressora (DEVICE TO PRINTER).  DEVPOS() move a cabeça
     de impressao enviando o número de caracteres de alimentaçao de
     linha/formulário a serem avançados para a nova posiçao.

     Se o valor SET MARGIN corrente for maior que zero, ele é adicionado a
     <nCol>.  A cabeça de impressao depois avança para a posiçao de <nLinha>
     e <nCol> especificada, sendo que e PROW() e PCOL() sao atualizados.
     Caso <nLinha> ou <nCol> sejam menores que os valores correntes de
     PROW() e PCOL(), a cabeça de impressao move-se de acordo com as
     seguintes regras especiais:

       Se <nLinha> for menor que PROW(), um EJECT automático
        (CHR(12)) é enviado à impressora seguido do número de caracteres de
        alimentaçao de linha (CHR(10)) necessários para o posicionamento da
        cabeça de impressao em <nLinha> da próxima página.

       Caso <nCol> mais o valor corrente de SET MARGIN seja menor
        que PCOL(), um caractere de carriage return (CHR(13)) e a quantidade
        de caracteres em branco exigidos para posicionar <exp> em <nCol> sao
        enviados à impressora.

     Para contornar estas regras, utilize SETPRC() para configurar PROW() e
     PCOL() para novos valores antes de usar DEVPOS().  Consulte a
     referência a SETPRC() no capítulo Funçoes Padrao deste livro para
     maiores informaçoes.

     Se a impressora estiver redirecionada para um arquivo através do
     comando SET PRINTER, DEVPOS() atualiza o arquivo ao invés da
     impressora.

 Arquivos:  Biblioteca CLIPPER.LIB.
 To download this example - click here.

See Also: DEVOUT() PCOL() PROW() SETPOS() @...SAY SET DEVICE