1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

    Printer.BeginDoc;
    Printer.Canvas.Font.Style := [];
    Printer.Canvas.Font.Name := 'Courier New';
    Printer.Canvas.Font.Size := 12;
    Long := Printer.Canvas.Font.PixelsPerInch;
    Frac := Long / 600 + 0.0000001;


    Bmp := TBitMap.Create;
    Bmp.LoadFromFile('PP.BMP');

    Koordinat[1] := Trunc(5900*Frac);
    Koordinat[2] := Trunc(670*Frac);
    Koordinat[3] := Trunc((Bmp.Width + (5900 * Frac)));
    Koordinat[4] := Trunc((Bmp.Height + (670 * Frac)));

    MyRect := Rect(Koordinat[1], Koordinat[2],
                   Koordinat[3], Koordinat[4]);
    Printer.Canvas.StretchDraw(MyRect,
                   Bmp);