SynEditPrint druckt komisch

[Mazel]

Hi,

ich habe versucht aus einem SynEdit zu drucken. Dabei fiel mir aber auf, dass das, was er druckt nicht richtig ist. Er lässt manchmal zwischen den Buchstaben Lücken und manchmal sind die Buchstaben übereinander gedruckt.

Ich habe mal ein Bild angefügt, damit ihr seht, wie ich das meine.

Gibt es dafür eine Lösung?

Gruß
Mazel

[bigg]

moin,

Poste mal die Datei als Anhang, dann kann ich sie mit einem virtuellen Drucker simuliert drucken und das Problem eventuell beheben. Danke.

[Mazel]

Hi,

ja welche Datei soll ich dir geben? Die EXE aus der ich drucke? Kann ich nicht reinstellen weil es sich dabei um einen fast fertigen HTML Editor handelt. Aber vieleicht per Mail oder über ICQ.

Hier mal noch der Code wie ich drucke:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 If PrintDialog1.Execute then
  begin
   SynPrint.Lines:=Field.Lines;
   SynPrint.Highlight:=True;
   SynPrint.Highlighter:=SynHTML;
   SynPrint.Colors:=True;
   SynPrint.Print;
  end;
end;

Ich habe schon viele Drucke mit FreePDF XP gemacht aber eben immer das selbe.

Gruß
Mazel

[Flom]

hat denn irgendwer eine lösung dafür?
Habe das selbe Problem wenn ich sage er soll zB die Schriftart Verdana benutzen!
Edit: habe jetzt wieder das Problem wenn ich die Code Nummern mit Hinzufüge... .

[hincapie]

Vielleicht fehlt die Zuweisung des SynEdits?
So zum Beispiel:

Delphi-Quellcode:

  if PrintDialog1.Execute then
  begin
    SynEditPrint1.SynEdit := SynEdit1;
    SynEditPrint1.Print;
  end;

So funktioniert's bei mir reibungslos.

[Flom]

ahhh danke Funktioniert... hätt ich auch selber drauf kommen können aber wie heißt es so schön...
man sieht den wald vor lauter bäumen nicht mehr

[Mazel]

Hallo,

ich habe leider gerade kein SynEdit auf meinem Rechner. Ich habe nach langen suchen dies gefunden:
SynPrint.Lines := SynEdit1.Lines; Das sollte doch auch so gehen?

Wenn aber das von hincapie funktioniert, dann kann ich ja meinen HTML/PHP Editor weiter machen

Gruß
Mazel