Büyük Bir Bitmap' i Print Etmek

[Archimed]

Arkadaşlar..
Büyük bir bitmap'im var ve bunu sayfalara bölerek print etmek istiyorum ama başaramadım..

Bu konuda fikir verebilecek birileri var mı?

[husonet]

Resmi ilk önce parçala sonra yazıcıya gönder.

Kolay Gelsin...

[husonet]

Sana çok ufacık bir kod örneği gönderiyorum fikir üretmesi açısından

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  MyRect, MyOther: TRect;
begin
    try
      MyRect := Rect(10,10,100,100);
      MyOther := Rect(10,111,100, 201);
      Bitmap := TBitmap.Create;
      Bitmap.LoadFromFile('c:\etiket\page1.bmp');
      Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
      Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
      printer.BeginDoc;
      printer.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
      printer.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
      printer.EndDoc;
  finally
      Bitmap.Free;
  End;
end;

Kolay Gelsin...

[Archimed]

teşekkürler...
üzerinde çalışacağım..

[husonet]

Yalnız bir ricam olacak Netice hakkında bilgilendirme yaparsanız olumlu veya olumsuz şekilde ayrıca sonuca ulaştığınız zaman çözüme nasıl ulaştığınız hakkında bilgi verirseniz çok sevinirim.

Kolay Gelsin...