Bilder drucken - Classenproblem

[marabu]

So könnte es funktionieren:

Delphi-Quellcode:

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);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bm.Assign(JPEGImage);
    PrintBitmap(bmp, 'Test');
  finally
    bmp.Free;
  end;
end;

Grüße vom marabu