1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

var Image1 : TImage;
    bmp    : TBitMap; // Versuch, das JPEG als Bitmap unterzujubeln - auch fehlgeschlagen
begin
   if PrintDialog1.Execute then begin
      Printer.Title := 'Meldeschein';
      Printer.Orientation := poPortrait; // Hochformat
      Printer.BeginDoc;
      Image1 := TImage.Create(nil);

      try
         DruckerInitialisierung;
         if FileExists(Programmpfad+'Formulare\Meldeschein.JPG') then
            Image1.Picture.LoadFromFile(Programmpfad+'Formulare\Meldeschein.JPG')
         else
            MessageDlg('Formular Meldeschein nicht gefunden!',mtError,[mbOK],0);

         with Printer.Canvas do begin

            // Draw(0, 0, Image1.Picture.Graphic); --> geht nicht auf Drucker
            
            bmp := TBitmap.Create;
            bmp.PixelFormat := pf8bit; // keine Auswirkung auf das Ergebnis
            bmp.height := image1.picture.graphic.height;
            bmp.Width :=  image1.picture.graphic.Width;
            bmp.Canvas.Draw(0,0,Image1.Picture.Graphic);
            Draw(0, 0, bmp); // JPG als Bitmap - geht leider auch nicht; 
            
            bmp.Free;

....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

         
        with bmp.canvas do begin        

            ...
            Draw(0,0,Image1.Picture.Graphic);

            Font.Name    := 'Arial';
            Font.Size    := 27;

            Textout(800,284,EditTurniername.Text);
            Textout(700,352,EditAusrichter.Text + ' / ' + EditTurnierort.text);

            ....

         end;

         bmp.SaveToFile(Programmpfad+'druck.bmp');

         if PrintDialog1.Execute then begin
            Printer.Title := 'Meldeschein';
            Printer.Orientation := poPortrait; // Hochformat
            Printer.BeginDoc;
            DruckerInitialisierung;
            Image1.Picture.LoadFromFile(Programmpfad+'druck.bmp');
            Printer.Canvas.Draw(0, 0, Image1.Picture.Bitmap );
            Printer.EndDoc;
         end;