HIIILLLFE

[HellSpawn]

Ich will ein Memofeld ausdrucken mit dem PrintDialog, weiss aber nicht wie!!

Kann mir jemand helfen mit dem Quelltext???

[flomei]

Hallo!

Schön wär es wenn du erstmal deinen Titel änderst und dann mal die Suche bemühst, vielleicht gibt es schon Lösungen zu deinem Problem.

MFG Florian :hi:

[Daniel]

Ich wüsste wie, aber ich sage es nicht, bevor Du Deinem Thread nicht einen aussagekräftigen Titel gegeben hast, der im Groben Dein Problem umschreibt.

[gmarts]

HHHHIIIEEERRRR:
MMMEEEMMMOOO DRRRRUUUCCCKKEENNN


EDIT1: hmmm "die-Daniel-und-Flomei-waren-schneller"-Warnung kam garnicht?! :gruebel:

[Rastaman]

logik und deine suche ergibt keine treffer ^^
naja

Delphi-Quellcode:

uses
  printers;
  
  
procedure TForm1.Button1Click(Sender: TObject);
var
  I            : Integer;
  LineHeight   : Integer;
  LinesPerPage : Integer;
  LineCount    : Integer;
  R            : TRect;
  S            : string;
  printer      : Tprinter;
begin
  printer:= TPrinter.Create;
    if PrintDialog1.Execute then begin
         Printer.Title := 'Notepad - ' + 'THE FILENAME';
         Printer.Canvas.Font := Memo1.Font;
         LineHeight := Abs(
                MulDiv(Printer.Canvas.Font.Size,
                GetDeviceCaps(Printer.Handle, LOGPIXELSY), 72));
         Inc(LineHeight, (LineHeight * 4) div 10);
         LinesPerPage := (Printer.PageHeight div lineHeight) - 4;
         LineCount := 4;

         Printer.BeginDoc;
        R.Top    := LineHeight;
        R.Left   := 30;
        R.Right  := Printer.PageWidth;
        R.Bottom := LineHeight * 2;
        DrawText(Printer.Handle,
      PChar('THE FILENAME'), -1, R, DT_CENTER);

       for I := 0 to Pred(Memo1.Lines.Count) do begin

      Inc(LineCount);
      if LineCount = LinesPerPage then begin

        LineCount := 4;
        Printer.NewPage;
      end;

      S := Memo1.Lines.Strings[I];
      Printer.Canvas.TextOut(0, LineCount * LineHeight, S);
    end;

    Printer.EndDoc;
  end;
  printer.free;
end;

Quelle : Delphi Manager 2.0.0.6

Aber troztdem nächstes mal den Titel besser wählen :wink:

[Kernel32.DLL]

Zitat:

Zitat von Gerrit89

logik und deine suche ergibt keine treffer ^^
naja

Delphi-Quellcode:

uses
  printers;
  
  
procedure TForm1.Button1Click(Sender: TObject);
var
  I            : Integer;
  LineHeight   : Integer;
  LinesPerPage : Integer;
  LineCount    : Integer;
  R            : TRect;
  S            : string;
  printer      : Tprinter;
begin
  printer:= TPrinter.Create;
    if PrintDialog1.Execute then begin
         Printer.Title := 'Notepad - ' + 'THE FILENAME';
         Printer.Canvas.Font := Memo1.Font;
         LineHeight := Abs(
                MulDiv(Printer.Canvas.Font.Size,
                GetDeviceCaps(Printer.Handle, LOGPIXELSY), 72));
         Inc(LineHeight, (LineHeight * 4) div 10);
         LinesPerPage := (Printer.PageHeight div lineHeight) - 4;
         LineCount := 4;

         Printer.BeginDoc;
        R.Top    := LineHeight;
        R.Left   := 30;
        R.Right  := Printer.PageWidth;
        R.Bottom := LineHeight * 2;
        DrawText(Printer.Handle,
      PChar('THE FILENAME'), -1, R, DT_CENTER);

       for I := 0 to Pred(Memo1.Lines.Count) do begin

      Inc(LineCount);
      if LineCount = LinesPerPage then begin

        LineCount := 4;
        Printer.NewPage;
      end;

      S := Memo1.Lines.Strings[I];
      Printer.Canvas.TextOut(0, LineCount * LineHeight, S);
    end;

    Printer.EndDoc;
  end;
  printer.free;
end;

Quelle : Delphi Manager 2.0.0.6

Aber troztdem nächstes mal den Titel besser wählen :wink:

wieso nächstes Mal? Noch is nicht aller Tage abend... :roll: