Kod: Tümünü seç
var
ScaleX, ScaleY: Integer;
RR: TRect;
begin
PrintDialog1.Execute;
with Printer do
begin
BeginDoc;
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(RR, Image1.Picture.Graphic);
finally
EndDoc; //Methode EndDoc beendet den aktuellen Druckauftrag und schließt die
end;
ÖM Ara Düzenle Sil Cevapla Alıntı Rapor Et
Konu içi Arama..
Ara
« Önceki Konu | Sonraki Konu »