Amigo,
Já é um bom começo.
=========================================
MF : TMetafile;
BMP : TBitmap;
JPG : TJpegImage;
begin
Try
MF := QRPrinter.GetPage(numPage);
if Assigned(MF) then begin
Bmp := TBitmap.Create;
Bmp.Height := MF.Height;
Bmp.Width := MF.Width;
Bmp.Canvas.Draw(0,0,MF);
JPG := TJpegImage.Create;
sFN := FileName;
JPG.CompressionQuality := 85;
JPG.Assign(Bmp);
JPG.SaveToFile(sFN);
Result.Add(sFN);
end;
finally
FreeAndNil(Bmp);
FreeAndNil(JPG);
end;
End;
===========================================
-----Mensagem original-----
De: Alosi yarru [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 5 de abril de 2005 09:31
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Capturar Imagem de QuickRep
Alguém sabe como se faz para capturar a imagem da impressão do quickrep e
salvar em arquivo de figura.
Já ouvi falar de que é possível salvar como wmf, alguém sabe?
obrigado
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL
PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
