1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure PrintBitmap(aGraphic: TGraphic, Title: string);
begin
  Printer.Title:=Title;
  Printer.BeginDoc;
  Printer.Canvas.Draw(0,0,aGraphic);
  Printer.EndDoc;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
PrintBitmap(TJPEGImage,'Test');
end;					

1:

procedure PrintBitmap(aGraphic: TGraphic ; Title: string);  //Semikolon statt komma					

1:

PrintBitmap(JPEGImage,'Test'); //das T muß weg					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure PrintJpeg(aJpeg: TJpegimage; Title: string);  
Var bmp:Tbitmap;
begin  
  bmp:=tbitmap.create;
  try
    bmp.assign(ajpeg);
    Printer.Title:=Title;  
    Printer.BeginDoc;      
    Printer.Canvas.Draw(0,0,bmp);  
    Printer.EndDoc;  
  finally
    bmp.free;
  end;
end;