Etikettendruck horizontal und vertikal

[needatip]

Hallo,
ich möchte auf einem Etiketten(Grafik)Drucker ein Adressetikett ausdrucken.
Auf der linken Seite drucke ich die Adresse mit untem stehendem Code.
Wie kann ich nun am rechten Etikettenrand zusätzlich einen kurzen einzeiligen Text vertikal positionieren und ausdrucken.
Hab bisher folgenden Code stehen.

Delphi-Quellcode:

 procedure TAdrDruck.Button1Click(Sender: TObject);

const texthoehe = 40;
      linkerRand= 60;

var     w,v   : TSize;
        OUTDC : HDC;
        zeile : integer;
        txt   : string;
begin
  Printer.BeginDoc;
  outDC := Printer.Canvas.Handle;
  SetMapMode(OutDc,mm_lometric);
  GetWindowExtEx(OutDC,w);
  GetViewPortExtEx(OutDC,v);
  SetMapMode(OutDC,MM_ANISOTROPIC);
  SetWindowExtEx(OutDC,w.cx,w.cy,nil);
  SetViewPortExtEx(OutDc,v.cx,-v.cy,nil);
  Printer.Canvas.Font.Name := 'Arial';
  Printer.Canvas.Font.Height := texthoehe;
  zeile := 0;
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit1.Text);
  inc(zeile);
  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit2.Text);
  Printer.Canvas.Font.Style := [];
  inc(zeile);
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit5.Text);
  inc(zeile);
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit6.Text);
  inc(zeile);
  inc(zeile);
  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.TextOut(linkerRand,zeile*(texthoehe+1),Edit7.Text+' '+ComboBox1.Text);
  Printer.Canvas.Font.Style := [];
  Printer.EndDoc;
end;

Wer kann mir hier weiterhelfen ?

[omata]

Moin,

auf einem Canvas kann man mit einem Trick auch vertikalen Text einfügen. Auf dem Bildschirm klappt soetwas ohne Probleme, beim ausdrucken kann das eventuell auch klappen (habe ich jetzt nicht getestet). Ich habe nicht auf einem echten Drucker gedruckt, sondern über einen PS-Druckertreiber eine PDF-Datei erstellt und dort ist dann der Text bei solchen Tricks leider nicht vertikal.

Deshalb schlage ich hier mal vor du solltest auf Quickreport umsteigen. Dort ist die Druckgeschichte etwas einfacher und du hast sogar eine Vorschaumöglichkeit. Ich habe mal eine Komponente für QR gefunden, die einen Text in einem beliebigen Winkel darstellen kann.

Ich habe mal ein kleines Beispiel angehängt, hoffe es hilft dir.

Du musst zuerst dir Komponente hinzufügen, dann das Beispiel öffnen.

MfG
Thorsten

[needatip]

Möchte keine QuickReport oder Rave Komponenten verwenden, sondern direkt auf den Canvas ausgeben.
Kann mir dazu jemand helfen ?

[Michi27]

@ Omata,



Danke für diesen Tip, der hat mir persönlich sehr geholfen danach habe ich schon lange gesucht.

Bis dann

Michael

[omata]

Hallo Michael,

danke für diese positive Rückmeldung.
Es freut mich, dass dir der Tipp geholfen hat.

MfG
Thorsten