[Drucken] Textlänge in Millimeter ermitteln

[DeddyH]

Ich habe es jetzt nicht ausprobiert, aber 3 Dinge:

Delphi-Quellcode:

  // Textausrichtung
  setTextAlign(Printer.Canvas.Handle, TA_LEFT + TA_TOP); //bitte or statt +

  // Auflösung des Druckers ermitteln
  lpx := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);

  // evtl. y berichtigen, da auf dem Drucker gedruckt wird muss
  // y negativ sein
  y := -abs(y); //ist kürzer ;)

Und wozu brauchst Du ACanvas?