zusammenfalten · markieren

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);
begin
PrintBitmap(TJPEGImage,'Test');
end;

Warum geht das nicht? Was mache ich falsch?

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

So könnte es funktionieren:

zusammenfalten · markieren

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