
Copyright by,
Sebastiao Elivaldo Ribeiro
elivaldo@utranet.com.br
--------------------------

TRPrint e' um componente para impressao de relatorios.



Propriedades:


  Font: TFont;

    Fonte a ser utilizada na impressao;


  FromPage: Integer;

    Indica o numero da pagina inicial. Os dados serao enviando para impressoara somente se
    estiverem entre as pagina definas em FromPage e ToPage

  LinesPerInch: Integer;

    Determina quantas linhas por polegada (padrao=6)


  MarginBottom, MarginLeft, MarginRight e MarginTop: string;

    Tamanho das margens em milimetros. Ex.: '25 mm';


  Orientation: TOrientarionPaper;

    Direcao em que sera a impressao. Aceita um dos seguintes valores:

      poProtrait = retrato
      poLandscape = paisagem


  Title: string;

    Titulo que sera enviado para gerenciador de impressao.


  ToPage: Integer;

    Usado em conjunto com FromPage determina o intervalo das paginas que serao impressas




PROPRIEDADES DISPONIVEIS APENAS EM TEMPO DE EXECUCAO


  Page: Integer;

    Numero da pagina atual;


  MaxRows: Integer;

    Numero maximo de linhas possivel na area de impressao (depende da altura do papel,
    da propriedade LinesPerInch e da orientacao definida em Orientation)


  MaxCols: Integer;

    Numero maximo de colunas (depende da lagura do papel e do tamanho da fonte)


  Row: Integer;

    Numero da linha atual onde ocorrera a proxima impressao


  Col: Integer;

    Numero da coluna atual onde ocorrera a proxima impressao




Metodos:


  BeginDoc;

    Inicializa o TRPrint. E' necessario a chamada deste metodo todas as vezes que vai se
    iniciar a impressao de algum relatorio


  EndDoc;

    Finaliza a sessao de impressao do relatorio


  Abort;

    Cancela a sessao de impressao que esta em andamento


  Adjust(NumCols: Integer);

    Ajusta o tamanho da fonte para que caiba na area de impressao o numero de colunas
    definidas no parametro NumCols (Observando a margem esquerda e direita).
    Este metodo e' util para se evitar que o relatorio exceda a area de impressao.

      Ex.: Print1.Adjust(100);  {ajusta para 100 caracteres por linha}
   

  Out(Text: string; Width: Integer; Command: TCommand);

    Este metodo envia o parametro [Text] para a impressao. E' necessario informar [Width] para
    que o TPrint ajuste o local da proxima impressao.
      Ex.: Print1.Out('imprimindo...', 20, []) {isto fara com que seja enviado o texto para
                                                a impressao e seja ajustado o local da proxima
                                                impressao para a 21a coluna.}
    O ultimo parametro e' um array com uma (ou mais) das seguintes opcoes:
      pcLineFeed   - salta para a proxima linha
      pcPageEject  - salta para a proxima pagina
      pcBold       - envia [Text] em negrito
      pcItalic     - envia [Text] em italico
      pcBoldItalic - envia [Text] em negrito e italico
      pcUnderline  - envia [Text] sublinhado
      pcRight      - alinha [Text] a direita
      pcCenter     - centraliza [Text] em [Witdh] colunas
      pcJustify    - justifica [Text] em [Witdh] colunas
      pcFill       - preenche com [Text] a largura de [Width] colunas

    Ex.1: Print1.Out('imprimindo...', 20, [pcBold, pcRight]);  {envia o texto para impressao
                                                                em negrito, alinha a direita de
                                                                20 colunas e posiciona-se na 21a
                                                                coluna para a proxima impressao}
    Ex.2: Print1.Out('Teste de justificacao', 25, [pcJustify]); {envia o texto para impressao
                                                                 justificado no espaco 
                                                                 equivalente a 25 colunas}



  Rect(Left, Top, Right, Bottom, Width: Integer);

    Este metodo desenha um retangulo cujas coordenadas sao Left, Top, Right e Bottom
    com uma linha da largura definida em [Width]. Observe que as coordenadas sao
    especificadas em linhas e colunas e nao em pixels.


  Draw(Column, Line: Integer; Graphic: TGraphic);

    Este metodo imprime a imagem contida em [Graphic] na coluna [Column] e linha [Line]
    

