---

Hej
Har du en ide eller bedre et eksempel på en procedur
der kan udskriv Image1 ?


procedure TForm1.PrintDialog1Close(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
Image1.Canvas. " Print " (PrintDialog1.FileName);
end;
end;

MVH
Monie

---

"Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
news:3d5112bf$0$78175$edfadb0f@dspool01.news.tele.dk...
> Hej
> Har du en ide eller bedre et eksempel på en procedur
> der kan udskriv Image1 ?

Det globale object TPrinter har et canvas man kan skrive på, akkurat som man
kan skrive på andre canvas'er. Det er i princippet printerens papir man
tegner på...Se dette eksempel hugget fra hjælpen, der skriver et billede
ud...

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile('MyBitmap.bmp');
with Printer do
begin
BeginDoc;
Canvas.Draw((PageWidth - Bmp.Width) div 2,
(PageHeight - Bmp.Height) div 2,
Bmp);
EndDoc;
end;
finally
Bmp.Free;
end;
end;

Istedet for et TBitmap bruger du et TImage.

Se i øvrigt denne side, der i detaljer behandler nogle aspekter omkring
udprintning i Delphi.
http://homepages.borland.com/efg2lab/OtherProjects/PrinterDemo2.htm og
http://homepages.borland.com/efg2lab/Library/Delphi/Printing/

---

Tak David A. D. Konrad

Det var lige noget der kunne bruges.

MVH
Monie

"David A. D. Konrad" <david_konrad@hotmail.com> skrev i en meddelelse
news:air5du$klr$1@sunsite.dk...
> "Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
> news:3d5112bf$0$78175$edfadb0f@dspool01.news.tele.dk...
> > Hej
> > Har du en ide eller bedre et eksempel på en procedur
> > der kan udskriv Image1 ?
>
> Det globale object TPrinter har et canvas man kan skrive på, akkurat som
man
> kan skrive på andre canvas'er. Det er i princippet printerens papir man
> tegner på...Se dette eksempel hugget fra hjælpen, der skriver et billede
> ud...
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Bmp: TBitmap;
> begin
> Bmp := TBitmap.Create;
> try
> Bmp.LoadFromFile('MyBitmap.bmp');
> with Printer do
> begin
> BeginDoc;
> Canvas.Draw((PageWidth - Bmp.Width) div 2,
> (PageHeight - Bmp.Height) div 2,
> Bmp);
> EndDoc;
> end;
> finally
> Bmp.Free;
> end;
> end;
>
> Istedet for et TBitmap bruger du et TImage.
>
> Se i øvrigt denne side, der i detaljer behandler nogle aspekter omkring
> udprintning i Delphi.
> http://homepages.borland.com/efg2lab/OtherProjects/PrinterDemo2.htm og
> http://homepages.borland.com/efg2lab/Library/Delphi/Printing/
>
>
>