Impressão em RDPrint, Como fazer??

[sr.silva 1]

Olá!Estou tendo problemas em criar um relatório via RDPrint.Será que poderiam me ajudar a criar pelo menos uma tela simples?Na verdade pesquisei várias vezes, pela net, e não estou conseguindo sequer começar.Grato.

[Hugo Slepicka 0]

Opa, beleza Bruno???

 

Uso muito o RDPrint...

 

Me diga com mais detalhes o que deseja e ai começamos a trabalhar em cima dessa sua necessidade...

 

Beleza?

 

 

Falou aew! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[sr.silva 1]

Fala Slepicka !!

 

Quanto a dúvida anterior, já consegui resolver.

Agora é o seguinte, criei um relatório onde existem várias colunas de valores variados.

 

Só que na hora, de imprimir na tela, os valores saem "tortos" em virtudes das casas decimais.

 

Poderia me ajudar a criar uma função, para formatar corretamente essas colunas??

 

Até!

[Hugo Slepicka 0]

Opa, legal...

 

Vou te dar um exemplo, tá???

 

 

Isso acontecia muito comigo...

 

Para Valores use o seguinte:

 

Nesse exemplo eu imprimo uma linha com a quantidade, valor Unitário e Valor Total.. Todos Formatados...

//Qtde	  RdPrint1.ImpVal(Linha,01,'##0.00',(TblMovDetQTDE.Value),[]);	  //Val Unit Formatado..	  RdPrint1.ImpVal(Linha,33,'##0.00',(TblMovDetVALOR.value),[]);	  //Val Total Parcial Formatado..	  RdPrint1.ImpVal(Linha,40,'##0.00',(TblMovDetVALOR.value*TblMovDetQTDE.Value),[]);

Veja se isso resolve e avisa agente aqui...

 

Bele^?

[sr.silva 1]

Funcionou perfeitamente!!Até a próxima..

[Hugo Slepicka 0]

Legal velhinho...

 

Precisando é só falar... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[sr.silva 1]

Seguinte Slepicka !!

 

Como faço pra alterar o tamanho da fonte no meu relatório?

Estou precisando, pois o que estou fazendo está um pouco "grande".

 

Grato.

[Hugo Slepicka 0]

FonteTamanhoPadrao

 

property FonteTamanhoPadrao : TSize

 

TSize = (S05cpp,S10cpp,S12cpp,S17cpp,S20cpp);

 

S05cpp = 5 cpp (Expandido)

S10cpp = 10 cpp (Normal)

S12cpp = 12 cpp (Comprimido)

S17cpp = 17 cpp (Condensado)

S20cpp = 20 cpp (Comprimido + Condensado)

 

Descrição: Tamanho da fonte padrão para o relatório. Ajuste o valor para o tamanho de Fonte que será mais utilizado em todo o relatório, otimizando o envio de caracteres de controle para a impressora.

 

 

 

 

 

Exemplos em "Run Time":

 

// Fonte Default

case radiogroup1.itemindex of

0 : rdprint1.FonteTamanhoPadrao := s05cpp;

1 : rdprint1.FonteTamanhoPadrao := s10cpp;

2 : rdprint1.FonteTamanhoPadrao := s12cpp;

3 : rdprint1.FonteTamanhoPadrao := s17cpp;

4 : rdprint1.FonteTamanhoPadrao := s20cpp;

end;

 

 

 

 

 

 

 

Nota:

 

Essa mudança também pode ser feita usando o comando ImpF, onde os tamanhos são:

 

Expandido = Fonte Expandida em 5 cpp

Normal = Fonte Normal em 10 cpp

comp12 = Fonte Comprimida em 12 cpp

comp17 = Fonte Condensada em 17 cpp

comp20 = Fonte Comprimida + Condensado (20 cpp)

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[sr.silva 1]

Funcionar, funcionou!!

Só que a fonte diminui apenas para o corpo do relatório.

 

O cabeçalho, continuou com o mesmo tamanho de fonte!!

 

Até!!

[Hugo Slepicka 0]

Poderia postar um Print do Referido Relatório e o trecho do código onde o gera?

 

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[sr.silva 1]

Segue...

 

Impressão Corpo do Relatório

qryReport.First;	while not qryReport.Eof do	begin	  with rdprintReport do	  begin		Inc(intLinha);		Imp(intLinha,  3 , qryReport.FieldByName('CODFUNCIONARIO').AsString	   );		Imp(intLinha, 10 , qryReport.FieldByName('NOME').AsString				 );		Imp(intLinha, 40 , FormatFloat('#,##0.00', qrySalarioBASEFOLHA.AsFloat )  );		Imp(intLinha, 60 , FormatFloat('#,##0.00', qrySalarioIMPOSTO.AsFloat   )  );		{ VERIFICA LINHAS IMPRESSAS, PARA NOVA PÁGINA }		if intLinha > 62 then		  Novapagina;	  end;	  qryReport.Next;	end;

Impressão Cabeçalho - Esse código está no Evento - OnNewPage do RdPrint

strEndereco := 'Endereco.: ' + Empresas.Endereco + ', ' + Empresas.Numero + ' ' + Empresas.Complemento;  strEndereco := strEndereco + ' Bairro.: ' + Empresas.Bairro + ', ' + Empresas.Cep + ', ' + Empresas.Cidade + ', ' + Empresas.Uf;  strRazao := funcCenter('RELATÓRIO XYZ', 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);

Segue Link do Relatório...

[Hugo Slepicka 0]

1 - em que parte do Code você muda a formatação?2 - qual o problema que está acontecendo?3 - oque deseja fazer com esse relatório?

[sr.silva 1]

Respostas:

 

1 - em que parte do Code você muda a formatação?

R - Na verdade em mudo no próprio componente.

 

 

2 - qual o problema que está acontecendo?

R - A fonte altera somente no "corpo" do relatório. No cabeçalho ela não altera. E como pode ver esse relatório tem 11 colunas, o que deixa um pouco grande na hora da impressão.

 

 

3 - oque deseja fazer com esse relatório?

R - Acertar a formatação ( tamanho da fonte ) para a impressão sair corretamente.

 

 

Até!!

[Hugo Slepicka 0]

Qual fonte você deseja utilizar no Corpo?E qual no Cabeçalho??é a mesma em Ambos?

[sr.silva 1]

Qual fonte você deseja utilizar no Corpo?

- S10cpp

 

 

E qual no Cabeçalho??

- S10cpp

[Hugo Slepicka 0]

Na função aew do Cabeçalho coloque:rdprintReport.FonteTamanhoPadrao := s10cpp;

[sr.silva 1]

Infelizmente :(, ainda não funcionou...

[Hugo Slepicka 0]

Nossa...esse ta de rosca...Seguinte...ele muda a fonte para S10cpp apenas no Corpo, certo???está no Evento OnNewPage o FonteTamanhoPadrão né???

[sr.silva 1]

Sim.

[Hugo Slepicka 0]

Por favor, post como está o code nesse trecho do cabeçalho.. no OnNewPage...