TImage yazıcıdan çıktır alma hk.

[emrekilinc1984]

Merhaba arkadaşlar ben projemde kullandığım image nesnesinin içindeki resmi aşağıdaki kodla yazıcıdan çıkartmak istiyorum ama yazıcı boş sayfa çıkartıyor yardımcı olursanız çok sevinirim.

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 »

[xozcanx]

Kod: Tümünü seç

uses
  Printers; 

http://www.delphitricks.com/source-code ... image.html

[emrekilinc1984]

hocam merhaba kodları ordan aldım ve uses da printers var onu eklememiş olsam uygulamada kod sayfasında hata verirdi ben yazdır dedikten sonra yazıyıca gidiyor fakat boş sayfa çıkıyor....

[xozcanx]

hocam test edildi hiçbir sıkıntı yok sürüm farkı desem kendim Delphi10 ile test ettim sorun gözükmüyor.

[emrekilinc1984]

Oldu hocam tesekkurler fakat simdide soyle bir problem var resmi yarim yazdiriyo cok buyuk resim.oldugu icin bunu nasil cozerim ?