Device- Delphi de BMP dosyasını direkt yazdırmak.

Daha önceki yazımızda belirttiğimiz gibi bazen direkt yazdırmak gerekir.(özel bir yazdırma kompenantı kullanılmıyorsa tabi.) Bakınız varsayılan printeri bulma adlı yazımıza.

Bu yazımızda bir BMP dosyasını direkt yazdırmayı anlatacağız.
Formumuza 1 adet image1, 1 adet button ekliyoruz.


uses printers; //ekliyoruz.

button1 click eventına kodumuzu ekliyoruz.
 var
Rec: TRect;
Rate: Double;
 begin Image1.Picture.LoadFromFile('resim.bmp'); //kendi bilgisayarınızdaki bir bmp dosyası Rate:=Image1.Picture.Height/Image1.Picture.Width; //image boyutları aktarılıyor.
Rec:=Rect( 5, 5, Printer.PageWidth-5, Trunc(Printer.PageHeight*Rate- GetDeviceCaps(Printer.Handle,LOGPIXELSX))-5);
 Printer.BeginDoc; //yazdırma başlangıcı Printer.Canvas.StretchDraw(Rec,Image1.Picture.Graphic);
Printer.EndDoc;//yazdırma bitişi

end; 

Başka bir yazımızda görüşmek üzere...