Guten Morgen
DP`ler,
nachdem ich hier fast verzweifel, hoffe ich auf euer Wissen, denn ich versuche krampfhaft folgendes zu realisieren.
Ich möchte einige Felder einer DBase- Datenbank drucken. Der Druck an sich funzt auch schon.
Ich gehe einfach so lange die Datenbank durch und drucke die Felder A, B, C, D bis EOF = true und passe für jeden Durchlauf die Koordinaten meines DinA4- Blattes an.
Leider muss ich auch den Inhalt eines Memo- Feldes drucken. Bis lang sieht mein Druck so aus, dass ca. die ersten 150 Zeichen meines Memos gedruckt werden und der Rest, der nicht mehr in die Zeile passt, abgeschnitten wird. Und das ist der Knackpunkt. Denn:
Wie kann ich das <Blob Memo> so auf´s Papier bringen, dass bei soundsovielen Zeichen ein Zeilenumbruch stattfindet und der Rest meines Memos in der nächsten Zeile gedruckt wird?
Der Code sieht bis lang (etwas abgekürzt) so aus:
Delphi-Quellcode:
// zuvor richte ich die Anordnung auf dem Papier ein
while Table1.EOF=false do
begin
Printer.Canvas.Font.Height:=40;
Printer.Canvas.TextOut(x, y, '<Blob Memo>');
Printer.Canvas.Font.Height:=48;
Printer.Canvas.TextOut(x+i, y-j, Table1.fieldByName('<Blob Memo>').asString);
Table2.Next;
end;
// nach dem Schleifendurchlauf beende ich den Druck
Ich hoffe auf eure Hilfe.
Gruß Kuttis[
dp]
[edit=sakura] [delphi]-Tags eingefügt. Mfg, sakura[/edit]