Canvas Drucken

[LoL]

moin

Ich schreibe gerade ein Programm das Matheaufgaben mit den Grundrechenarten ausspucken soll. Aufgabeerstellung klappt 1A. nun will ich die Aufgabe 4 Spaltig drucken. Zu diesem Zweck will ich mit Canvas auf den "Drucker malen". Hab zu Testzwecken das mal auf mein Form gemalt sonst wären ja 1000 Seiten draufgegangen . Auf meiner Form funktioniert das Einwandfrei und schaut optimal aus. Wenn ich aber nun genau das gleiche auf den Drucker male druckt der irgendwie nur sch**** aus.(Links oben auf dem Blatt ein paar Zahlen übereinander geschrieben). Woran kann das liegen?
hab das mal zur übersichtlichkeit etwas vereinfacht: Die ganzen Aufgaben stehen in der Listbos "l".

Delphi-Quellcode:

cnt := 0;
While ( i < 800 ) Do
  Begin
    if cnt <= l.Count - 1 then//Wenn der Counter nicht die ListbosItems übersteigt
      begin
        Canvas.TextOut(0,i,l.Items.Strings[cnt]);//Bzw. Printer.Canvas
        Inc(cnt);
        Inc(i, 15);//Nur zum Ausrichten
      end
    else
      break;
  End;

[Steve]

Hi,

Du rechnest pro Zeile nur 15 Pixel, das is bei nem Drucker...."recht wenig"
Schau Dir mal TCanvas.TextHeight etc. an


Gruß
Stephan

[LoL]

"Wieviel Pixel passen denn auf den Drucker"?

[Steve]

Hi,

das ist von Drucker zu Drucker unterschiedlich... Die Antwort bekommst Du über GetDeviceCaps (siehe auch GetDeviceCaps)


Gruß
Stephan

[RedDust]

Hi,

ich hab' mich vor langer Zeit auch mal mit diesem Problem befasst. Das Problem was ich bei der Printer.Canvas "version" gefunden habe ist, du "schneiderst" den Druckauftrag nur für deinen Drucker zu. Wenn du das Blatt z.B. auf einem anderen Drucker ausdrucken willst kann es sein das der komplette Text verschoben ist. Ich würde dir in dem Fall die QuickReport Komponente empfehlen.

//EDIT//

Ups, da war wohl jemand schneller

[Steve]

Hi,

²RedDust: da hast Du schon recht, dass das passieren kann, darum sollte man hier auch niemals konstante Werte (wie hier z.B. die 15) benutzen, sondern die Werte für Positionen etc. berechnen bzw. abfragen!

Gruß
Stephan