Bild drucken?

[ssach]

hy,

ich bringe es nicht zu stande eine imagekomponente an den drucker zu sdender dass der ihn druckt!
kann mir bitte jemand helfen?
danke
cu

[mika]

Hallo,

probiers doch mal mit dem Canvas des Printers.

Delphi-Quellcode:

  uses printers;

  begin
    printer.begindoc;
    printer.canvas.draw(1, 1, Imagekomponente.Picture.Graphic );
    printer.enddoc;
  end;

vielleicht kannst du ja was mit anfangen.

[ssach]

danke, das fuzt schon zimlich gut,
aer koennte mir jemand sagen wie ich das ganze mit einem printdiaog ausfuhren kan?
dnake
cu

[Daniel B]

Morgääähhn...

Zitat von ssach:

aber koennte mir jemand sagen wie ich das ganze mit einem printdiaog ausfuhren kan?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  tf: TextFile; //tf = Variable zum Datei Schreiben
begin
  if PrintDialog.Execute then
  begin
    AssignFile(tf, 'MeineDatei.endung');
    Rewrite(tf);
    WriteLn(tf, 'Hello World!');
  end;
  CloseFile(tf);
end;

Grüsse, Daniel

[erniepb]

Hallöle ..

Ich hab mal ne frage zu dem gegebenen

Code:

uses printers;
begin
   printer.begindoc;
   printer.canvas.draw(1, 1, Imagekomponente.Picture.Graphic );
   printer.enddoc;
end;

Ich benutz auch den Befehl: draw um n "Bild" auf das Printer.Canvas zu malen .. hab aber auch CopyRect benutzt .. allerdings gibt es bei beiden Methoden manchmal (also auf unterschiedlichen Computersystemen) das Problem das mir der Drucker n weißes Blatt ausspuckt ..

Ich glaube .. da das bisher meist auf Systemen mit nem Netzwerkdrucker nicht funktioniert hat .. das es daran liegen könnte .. jedenfalls ist es unabhängig vom Betriebsystem (soweit ich das bisher testen konnte)..

Würd mich unheimlich freuen wenn da jemand ne kluge idee hat..
Danke schon mal

[Matczek]

Hallo,
es ist zwar ein alter Thread aber ich habe da ein etwas anders gelagertes Problem.

Ich muss sowohl Text aus auch ein Diagramm (TChart) ausdrucken. Dabei wird der Text gedruckt aber das Bild nicht. Wobei an anderes Bild ohne Probleme gedruckt wird.

Delphi-Quellcode:

setMapMode(Printer.Canvas.Handle, MM_ISOTROPIC);
SetWindowExtEx(Printer.Canvas.Handle, 1, 1, nil);
SetViewportExtEx(Printer.Canvas.Handle, 2, 2, nil);
//Bild mit LoadFrom File laden
Printer.Canvas.Draw(randlinks, randoben, bild.Graphic);

Woran kann das liegen?

mfg Matthias

[SirThornberry]

wenn es mit einem anderen bild klappt liegt es am format des bildes. Eine Möglichkeit wie es auf jeden fall klappt ist das man mit Pixels das Bild per schleife auf die Druckercanvas bringt, allerdings ist das auch extrem langsam.

[Matczek]

Das ist glaube ich ein bisschen zu viel des Guten...

Gibt es eine gute KOmponente die das Drucker kapselt?

[Eisenherz]

Das mit dem Drucken von Bildern in Delphi ist doch immer wieder das Gleiche.

Hier gibt es eine kleine Diskussion über das Thema. Dort findet ihr auch einen Link, der sich mit dem Thema sehr ausführlich beschäftigt.