Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
TImage yazıcıdan çıktır alma hk.
#1
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.

 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;
Cevapla
#2
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#3
@Cyber ; verdiğiniz linke baktınız mı hiç acaba?
Çünkü soruda sorulanla bire bir aynı.
There's no place like 127.0.0.1
WWW
Cevapla
#4
(24-10-2016, Saat: 17:20)emrekilinc1984 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba 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.

 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;

Try Finally kısmını kaldırıp yazdırmayı denedinizmi ? Normalde yazdırması lazım bu kodun, boş verme sebebi TRect içersine hiçbişi almıyor olmasıdır büyük ihtimalle.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#5
teşekkürler arkadaşlar çözdüm ama şimdide büyük resmi yazdırmıyor yarısınız çıkartıyor sığmıyor sanırım bunu nasıl çözebilirim.
Cevapla
#6
Kağıdın dik yatay ayarlarından olabilir mi?
Ağlarsa kablosuz ağlar, gerisi yerel ağlar...
Cevapla
#7
fxreport kullansan olmaz mı ?
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#8
frxreport ile 50-60 sayfaya kadar herbiri 300-400 kb resimden katalog yapmıştım runtime da dosyayolundan veya bir memtable a resimleri yükleyip frxreporta gösterebilirsiniz strech özeliğinden yararlanarakda sığdırma işlemi yapabilirsiniz.

“Do. Or do not. There is no try.”
Cevapla
#9
(24-10-2016, Saat: 21:56)emrekilinc1984 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olteşekkürler arkadaşlar çözdüm ama şimdide büyük resmi yazdırmıyor yarısınız çıkartıyor sığmıyor sanırım bunu nasıl çözebilirim.

Merhaba,
Sorununuzun çözüldüğüne sevindim. Fakat nasıl çözüldüğünü ve düzelttiğiniz kısımları bizimle paylaşsaydınız daha iyi olacaktı. 
Eminim farkında olarak veya olmayarak bu sorununuzdan şöyle bir şey öğrenmişsinizdir:
Bilgiye ulaşmak ve tek başına birşeyleri öğrenmek ve kavramak çok zor. 
Bu anlamda sizin gibi bu sorunu yaşayacak olan üyelerimize bir faydanız olması açısından bu ve buna benzer sorunların çözümünü de paylaşmanızı rica ediyorum.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#10
(24-10-2016, Saat: 17:49)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol@Cyber ; verdiğiniz linke baktınız mı hiç acaba?
Çünkü soruda sorulanla bire bir aynı.

Merhaba,
Hocam Tabikide kodları kontrol ettim. Ezbere, sırf cevap vermek için linki paylaşmadım. Henüz yolun başında olduğum için konulara cevap verirken bilgim dahilinde veriyorum.Bu yüzden benimle ilgili yanlış fikirlere kapılmanızı istemiyorum. Amacım doğru bildiklerimi paylaşıp, yanlışlarımı düzeltmek.

İyi çalışmalar.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Video TImage ve Sql narkotik 2 154 06-01-2018, Saat: 00:00
Son Yorum: narkotik
  Ip cameradan goruntulerini alma klavye 8 220 21-12-2017, Saat: 08:05
Son Yorum: Fesih ARSLAN
  Media player hızlı ileri alma Lord_Ares 2 183 29-11-2017, Saat: 01:26
Son Yorum: Lord_Ares
  Varbinary(MAX) Tipindeki Resim Dosyalarını Timage Kolay Gösterim pro_imaj 4 375 19-10-2017, Saat: 15:02
Son Yorum: pro_imaj
  Programda kullanılan bilesenlerin listesini alma klavye 2 197 14-09-2017, Saat: 15:17
Son Yorum: klavye



Konuyu Okuyanlar: 1 Ziyaretçi