1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

var
  r: TRect;
  s: WideString;
begin
  // # Einstellungen
  Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft XPS Document Writer');
  //Printer.PrinterIndex := 1;
  Printer.Canvas.Font.Name := 'MS Mincho';
  Printer.Canvas.Font.Size := 12;
  Printer.Canvas.Brush.Style := bsClear;

  // # Druckvorgang
  Printer.BeginDoc;
  SetMapMode(Printer.Handle, MM_LOMETRIC);  // <-- Muss anscheinend HINTER BeginDoc
  // Obere Zeile
  Printer.Canvas.Pen.Color := clBlue;
  Printer.Canvas.MoveTo(250, -250);  // alle Y-Werte Negativ, Positive Werte wandern nach links raus...
  Printer.Canvas.LineTo(1850, -250);
  // Mittlere Zeile
  Printer.Canvas.Pen.Color := clSilver;
  Printer.Canvas.MoveTo(250, -300);
  Printer.Canvas.LineTo(1850, -300);
  // Untere Zeile
  Printer.Canvas.Pen.Color := clBlue;
  Printer.Canvas.MoveTo(250, -350);
  Printer.Canvas.LineTo(1850, -350);
  // Text
  Printer.Canvas.Font.Color := clRed;
  s := #$3042;
  r := Rect(250, -250, 400, -400);
  DrawTextW(Printer.Canvas.Handle, PWideChar(s), Length(s), r, 0);
  Printer.EndDoc;