Duvida QuickRep QRImage

[ricado ferreira]

Olá amigos do forum .

Estou com uma dúvida simples porém já perdi muito tempo tentando descobrir sozinho.

eu tenho um projeto do curso para entregar e preciso realizar impressão em papel timbrado.

eu tenho a imagem pronta no corel e exportada pra bmp e jpeg.no tamanho A4

Contudo mesmo a imagem estando em dimensões de A4 ao colocar no quickrep ela aparece reduzida e inferior ao tamanho da impressao

e cortada para as dimensões da QRBand ,

gostaria de saber Como coloca-la ao fundo do papel e para imprimir, e também como seria utilizando a Image (normal, da ABA Additional).

desde já agradeço pela atenção.

Ricardo Ferreira

[ricado ferreira]

Olá Gostaria de Alguma resposta ou postagem informando o link onde encontraria tais respostas...

pois o ultim o post do moderador a respeito desse assunto o link está inativo.

[Jhonas]

Contudo mesmo a imagem estando em dimensões de A4 ao colocar no quickrep ela aparece reduzida e inferior ao tamanho da impressao

e cortada para as dimensões da QRBand ,

gostaria de saber Como coloca-la ao fundo do papel e para imprimir, e também como seria utilizando a Image (normal, da ABA Additional).

Use o componente QRImage da paleta QReport ... entretanto a imagem ficará limitada ao tamanho do QRBand ...

se quiser que a imgem pegue todo o tamanho do papel, voce terá que usar outro componente

de qualquer forma veja estes links

http://www.scribd.com/doc/6783413/Marca-d-Agua

http://docentes.anchieta.br/~rodrigok/2008..._Parte01_V2.pdf

http://www.ctu.ufjf.br/~alberto/APOSTILAS/...nho%20Livre.doc

http://www.mail-archive.com/delphi-br@yaho...r/msg14527.html

abraço

[ricado ferreira]

Olá jhonas obrigado pela Resposta porém após pesquisar nos links não consegui resolver minhas duvidas...

outro componete? qual seria este ... pois o image da aba additional não funciona...

Seria o caso de Cria meu proprio visualisador de impressão????

mesmo assim não creio q seria possivel colcar a imagem no fundo.

desde já obrigado

[Jhonas]

Faça um teste no seu QR

deixe a propriedade Stretch do QRImage como true e modifique o tamanho do QRImage dentro do QR

procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
  X, Y: Integer;
begin
  QRimage1.Brush.Style := bsClear;
  for y := 0 to QRimage1.Height - 1 do
    for x := 0 to QRimage1.Width - 1 do
    begin
      if (x mod 2)=(y mod 2) then
        QRimage1.Canvas.Pixels[x, y] := clWhite;
    end;
end;

abraço

[ricado ferreira]

Muito obrigado está funcionando agora .....

contudo os dados qrlabel e qrdbtext estão ficando atras da imagem já tentei de varias formas

muito obrigado novamente...

estou meio sem tempo de tentar outras formas agora por isso amanha irei tentar e caso não consiga solucionar, perguntarei no forúm denovo

Dúvida Respondida e Solucionada com Sucesso( como está nas regras do forúm)

obrigado novamente.

[Jhonas]

Muito obrigado está funcionando agora .....

contudo os dados qrlabel e qrdbtext estão ficando atras da imagem já tentei de varias formas

Tente com o botão direito do mouse sobre o componente e selecione ( Bring to Front ) e deixe a propriedade Transparent como true

abraço