TImage: Bild mit TPrintDialog ausdrucken

[Helmi]

Hallo,

ich möchte mit einem TPrintDialog ein Bild eines TImage ausdrucken.

Da ich ja zuerst die DP-Suche mit einem Problem beschäftige, hab ich einen altenThread dazu gefunden.

Ich habe das wie folgt auf meine Bedürfnisse umgebaut:

Code:

private
  Bild_Dateiname: TFileName;

{ ... }

procedure TForm1.Menu_oeffnenClick(Sender: TObject);
begin
  //Bild öffnen
  If OpenPictureDialog.Execute then
    begin
      //ausgewählter Dateiname in Variable speichern
      Bild_Dateiname := OpenPictureDialog.FileName;

      //ausgewähltes Bild in das Image laden
      Image.Picture.LoadFromFile(Bild_Dateiname);
    end;
end;

procedure TForm1.Menu_DruckenClick(Sender: TObject);
var
  tf: TextFile;
begin
  if PrintDialog.Execute then
  begin
    AssignFile(tf, Bild_Dateiname);
    Rewrite(tf);
    WriteLn(tf, Bild_Dateiname);
  end;
  CloseFile(tf);
end;

Leider druckt der das Bild nicht.

Weiss jemand wie ich das umschreiben muss, damit der das Bild des Images druckt?

[Luckie]

Umschreiben ist gut. Du musst eine komplette Druckroutine schreiben. Sprich du musst das Image auf dem Canvas des Druckers ausgeben. Stichworte wäre eventuell BeginDoc und EndDoc. Der Druckdialog druck nichts aus, sondern dient nur dazu den Drucker auszuwählen und dortige Einstellungen zurückzugeben.

[Helmi]

Hallo,

ich hab mich mal etwas schlau gemacht und hab das so gelöst:

Code:

procedure TForm1.Menu_DruckenClick(Sender: TObject);
var
  ScaleX,
  ScaleY: Integer;
  R: TRect;

begin
  //PrintDialog annzeigen
  If PrintDialog.Execute then
    begin
      with Printer do
        begin
          //Anzahl der Kopien
          Copies    := PrintDialog.Copies;

          BeginDoc;

          try
            ScaleX  := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
            ScaleY  := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;

            R       := Rect(0, 0, Image.Picture.Width * ScaleX,
                            Image.Picture.Height * ScaleY);

            Canvas.StretchDraw(R, Image.Picture.Graphic);
          finally
            EndDoc;
          end;
        end;
    end;
end;

[SiL_]

Hallo

Ich habe das problem bei den Delphi code bei

Delphi-Quellcode:

with Printer do

er kennt den "befehl" 'Printer' nicht

MfG SiL_

[bitsetter]

Hi,

Delphi-Quellcode:

uses printers;

hilft.