Results 1 to 2 of 2

Thread: Printen Bitmap

  1. #1

    Printen Bitmap

    Hallo,

    Met onderstaande code print ik een aantal Bitmap's (uit BmpArr[I]) naar een pdf-bestand.
    Ik zie als ik dat bestand opent alleen de laatste bitmap. Hoe los ik het op om alle bitmap's op verschillende bladzijde in het pdf-bestand te zien?

    H.G. Frans

    Code:
    procedure TForm1.LzW10Button10Click(Sender: TObject);
    // Printen
    Var
      R : TRect;
      I : Integer;
    begin
       //Printer.Orientation := poLandscape;
    
      printer.begindoc;
      R:=printer.canvas.cliprect;
      For I :=0 to Nummer do
         printer.canvas.stretchdraw(R,BmpArr[I]);
      printer.enddoc;
    
    end;

  2. #2
    Code:
    For I :=0 to Nummer do
         printer.canvas.stretchdraw(R,BmpArr[I]);
    veranderen in:
    Code:
    For I :=0 to Nummer do
    begin
         printer.canvas.stretchdraw(R,BmpArr[I]);
         printer.NewPage;
    end;
    (uit mijn hoofd en in een ander programma getest).

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •