Voici une fonction pour imprimer un Bitmap





Procedure ImprimeBitmap(Bitmap :TBitmap; Orientation :TPrinterOrientation; IndexDeLimprimante, NombreDeCopie :integer);
  begin         {Les orientations sont : poPortrait, poLandScape}
   if NombreDeCopie < 0 then NombreDeCopie := 1;
   
   Printer.Copies := NombreDeCopie;
   Printer.PrinterIndex := IndexDeLimprimante; // la premiere imprimante est l'index 0
   Printer.Orientation := Orientation;
   Printer.BeginDoc();
   Printer.Canvas.Draw(0,0, Bitmap);  // on dessine le canevas du Bitmap dans celui de Printer
   Printer.EndDoc();
 end;