Drucken

[CalganX]

Nochmal zu dem "neue Seite": Die Zeile lautet derzeit:

Code:

  j := [color=#0055FF]420[/color];
  [b]for[/b] i:=[color=#0055FF]0[/color] [b]to[/b] Memo1.Lines.Count -[color=#0055FF]1[/color] [b]do[/b] [b]begin[/b]
    [b]if[/b] i*(Printer.Canvas.TextHeight(Memo1.Lines[ i ])) >= (PageHeight - [color=#0055FF]70[/color]) [b]then[/b] [b]begin[/b]
      Printer.NewPage;
      j := [color=#0055FF]100[/color];
    [b]end[/b];
    Printer.Canvas.TextOut([color=#0055FF]200[/color], -(j + (i*[color=#0055FF]45[/color])), Memo1.Lines[ i ]);
  [b]end[/b];

Trotzdem druckt er die zweite Seite nicht...

Hat jemand Abhilfe?

Chris

[jbg]

Zitat von Chakotay1308:

PS: Muss man vielleicht ersteinmal neustarten, oder was?

Nein. Nimm mal eine andere Schriftart. Z.B. Arial, denn die kann man verkleinern. MS Sans Serif hingegen streikt für kleine Werte.


Neue Seite:
Ich sehe gerade, dass dein Code nicht richtig funktionieren kann, da du die Ausgabeposition von i abhängig machst, und i wird bzw. kann nicht bei einer neuen Seite auf 0 zurückgesetzt werden, womit dein zu druckender Text außerhalb des Drucksbereichs liegt.
Probiere mal dieses

Code:

j := 420; 
[b]for[/b] i := 0 [b]to[/b] Memo1.Lines.Count -1 [b]do begin 
  if[/b] j >= (PageHeight - 70) [b]then begin[/b] 
    Printer.NewPage; 
    j := 100; 
  [b]end[/b]; 
  Printer.Canvas.TextOut(200, -j, Memo1.Lines[i]); 
  Inc(j, 45);
[b]end[/b];

[CalganX]

Hab ja Arial...
Chris

[jbg]

Ich hab gerade noch was hinzugefügt zum obigen Posting.

[CalganX]

OK, jetzt klappt alles...

Chris

[CalganX]

ARGH!!! Ich drucke nichts ahnend was aus (wieder ein anderer Rechner)... Und was sehe ich: Es klappt wieder nicht. Dies mal ist alles viel zu groß...
Nochmal ganz von vorne. Man kann die Text-Reihen ja relativ ausrichten. Ich verstehe aber noch nicht so genau, wie das gehen soll... Vielleicht kann mir das jemand erklären.

Chris

[hm988]

Hallo,

hätte da noch eine Frage,

über die Koordinaten noch ein Bild in das Druckfeld??
am besten müsste es fest mit in der Exe sein

[hm988]

hallo nochmal,

mein letztes problem hab ich doch in letzter minute gelöst
mit verstecktem image objekt.

jetzt hab ich aber noch ein ganz anderes Problem und zwar will ich zu
meinem text .... eine Chart grafik ausdrucken geht auch, aber nur auf zwei seiten wie bekomme ich das ganze auf eine seite.??
für den chart steht der druckauftrag direkt hinter enddoc davor geht nicht könnt ihr mir da weiterhelfen

gruß Steven

[Stanlay Hanks]

ich glaube er will wissen wie.