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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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;

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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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.

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 Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.@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


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  EFinans -> E-Arşiv WSDL alma malitutuncu 0 103 20-09-2019, Saat: 10:41
Son Yorum: malitutuncu
  timage üzerinde mouse ile çizim duraumsa 0 87 02-09-2019, Saat: 16:16
Son Yorum: duraumsa
  Quick reportta hem satır, hem sütünu db.den alma boreas 6 389 12-06-2019, Saat: 08:48
Son Yorum: boreas
  HDMI'den görüntü ve ses alma Yeliz 5 607 13-02-2019, Saat: 21:56
Son Yorum: ahmetb
  iç içe döngüyle excelden veri tabanına kayıt alma sorunu?[SORUN ÇÖZÜLDÜ] baloglurecep 4 692 20-01-2019, Saat: 13:24
Son Yorum: baloglurecep



Konuyu Okuyanlar: 1 Ziyaretçi