-
- 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;
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;