Impressão em RDPrint, Como fazer??

[sr.silva 1]

Segue..

 

procedure TfrmRelacaoMovimentacaoParcial.rdprintreportNewPage(Sender: TObject;  Pagina: Integer);var  strEndereco, strCNPJ,  strRazao : string;begin  rdprintReport.FonteTamanhoPadrao := s10cpp;   strEndereco := 'Endereco.: ' + Empresas.Endereco + ', ' + Empresas.Numero + ' ' + Empresas.Complemento;  strEndereco := strEndereco + ' Bairro.: ' + Empresas.Bairro + ', ' + Empresas.Cep + ', ' + Empresas.Cidade + ', ' + Empresas.Uf;  strRazao := funcCenter('RELATÓRIO MOVIMENTAÇÃO PARCIAL', 130);    rdprintReport.Imp (01, 001, '|' + funcReplicate('-', 130) + '|');  rdprintReport.Imp (02, 001, '|');  rdprintReport.Imp (02, 002, strRazao);  rdprintReport.Imp (02, 111, 'Emissão..: ' + DateToStr(Date) + '|');  rdprintReport.Imp (03, 001, '|');  rdprintReport.Imp (03, 002, UpperCase(funcCenter( Empresas.Codigo + ' - ' + Empresas.RazaoSocial, 130)));  rdprintReport.Imp (03, 111, 'Página..: ' + StrZero(IntToStr(rdprintReport.UltimaPagina), 5) + Espaco(6) + '|' );  rdprintReport.Imp (04, 001, '|' + funcReplicate('-', 130) + '|');  strCNPJ := Empresas.Cnpj;  Insert('.', strCNPJ, 03);  Insert('.', strCNPJ, 07);  Insert('.', strCNPJ, 11);  Insert('-', strCNPJ, 16);  strCNPJ := 'C.N.P.J.: ' + strCNPJ + Espaco(20) + 'Inscrição..: ' + Empresas.Inscricao;  rdprintReport.Imp(05, 01, '|' + RightAling(defTamanho(strCNPJ, 130), 'Período.: ' + mskPeriodo.Text ) + '|');  rdprintReport.Imp(06, 01, '|' + Espaco(130) + '|');  intLinha := 7;  If Length(strEndereco) <= 130 Then  rdprintReport.Imp(07, 01, '|' + DefTamanho(strEndereco, 130) + '|')  Else  Begin	rdprintReport.Imp(intLinha, 01, '|' + DefTamanho(Copy(strEndereco, 001, 130), 130) + '|');	Inc(intLinha);	rdprintReport.Imp(intLinha, 01, '|' + DefTamanho(Copy(strEndereco, 115, 130), 130) + '|');  End;  Inc(intLinha);  If Pos('demonstração', Fmenu.NomeD.Caption) > 0 Then  rdprintReport.Imp(intLinha, 01, '|' + DefTamanho('Sistema Demonstracao, Software não licenciado para distribuição. Regularize seu sistema. ', 130) + '|')  Else  rdprintReport.Imp(intLinha, 01, '|' + DefTamanho('Processado Por.: ' + Fmenu.NomeD.Caption, 130) + '|');  Inc(intLinha);  rdprintReport.Imp(intLinha, 01, '+' + funcReplicate('-', 130) + '+');  Inc(intLinha);end;

[Hugo Slepicka 0]

No componente está definido como o tamanho da fonte?

[sr.silva 1]

S10cpp...