Barcodes auf Ettiketten ausdrucken - aber wie?

[delphipitti]

Hallo,

Ich nutze die BC-Combo von Andreas Schmidt (http://mitglied.lycos.de/AJSchmidt/index.html).

Klappt auch alles wunderbar.

Jetzt möchte ich aber Barcodes ausdrucken. Als Drucker nehme ich einen normalen Laser und
Endlosetiketten mit den Maßen 10 x 3,5 cm.

Jetzt probiere ich so zu drucken:

Delphi-Quellcode:

Printer.BeginDoc;
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC); // 1/10 mm
with Printer.Canvas do
begin
draw(180,-180,image1.Picture.Graphic);
end; 
Printer.EndDoc;

Nun, er druckt es zwar, aber auf dem Kopf - zwar verständlich, aber wenn ich die -180 in 180 setze,
dann ist das Blatt leer.

Das nächste Problem ist, das ja die Originalseite ein Format von A4 hat - wie bring ich dem Drucker
das Etikettenformat bei? (Ohne Printer-Setup)

Es soll ohne großen (Report)-Aufwand einfach und schnell ein Etikett gedruckt werden. Doch leider
steh ich da vollkommen auf dem Schlauch

Ich habe die verschiedensten Posts gelesen und bekomme es einfach nicht hin. Wie schon gesagt, will
ich es ohne Reports machen - der Aufwand lohnt sich nicht!

Ich bin für jeden Tip dankbar ...

[Ferber]

Hi !
Welchen Drucker verwendest Du ?
Benötigst Du ausser EAN13 auch anderes Barcodeformat ?
Wären A4-Etikettenformulare auch eine Möglichkeit ?

[delphipitti]

Hallo,

Ich nutze einen OKI-Laser. Als Barcode kommt 128a zum Einsatz.

Eine Verwendung von A4-Etiketten wäre möglich, nur das dort jedes Mal die gesamte Seite
bedruckt werden müsste

[Ferber]

Und der OKI-Laser lässt sich umstellen von A4 auf endlos ?

Die Komponente von Andreas Schmidt kann zwar viele Barcodes, aber als Delphikomponente ist sie ziemlich fragwürdig.

Hab mir ne gute Kompo gebaut, die von TGraphicControl abgeleitet ist, die kann jedoch nur EAN13.
Wollte diese sowieso um zumindest 128a erweitern und werden das zum Anlass nehmen es jetzt zu tun.
Melde mich am Abend wieder.

Meine Etiketten drucke ich mit Excelformularen (einfach anzupassen).
Die Barcodes stellt meine BarcodeEngine (eine COM-ServerAnwendung) via Clipboard zur Verfügung.

Falls Du Interesse hast, stelle ich Dir das zur Verfügung (samt Source und Excel Klassenmodul)

mfg Otto

[delphipitti]

Hallo,

eigentlich bin ich mit der Kompo ganz zufrieden. Ein paar Anpassungen und schon klappts.
Und allenfalls besser als eine teure überladene Kompo.

Zurück zum Thema:

Der OKI lässt sich nicht umstellen, aber ich kann ja die Etiketten auf ne bestimmte Länge
trennen und als Einzelblatt einlegen (einziehen).

Deine Kompo klingt ja nicht schlecht - doch auf eine Fremdanbindung (Excel) wollte ich
eigentlich verzichten ...

Nichts desto trotz kann ich Sie ja mal probieren

[shmia]

Bei Version 1.27 (und auch früheren Versionen) ist doch ein Demo-Programm dabei.
Es zeigt, wie man einem Barcode drucken kann. Im Menu File -> Print
Hier der Code-Ausschnitt:

Delphi-Quellcode:

procedure TForm1.print_demo(bc:TAsBarcode);
var
   tmpbarcode : TAsBarcode;
begin
   { create a temp barcode object, because we want to change some
     properties
     }
   tmpbarcode := TAsBarcode.Create(nil);
   { copy the object }
   tmpbarcode.Assign(bc);
   try
      with printer do
      begin
         BeginDoc;
         Canvas.TextOut(10, 10, 'Barcode Printing Demo '+DateTimeToStr(Now));

         { Height of barcode: 40mm }
         tmpbarcode.Height := ConvertMmToPixelsY(40.0);
         tmpbarcode.Height := ConvertInchToPixelsY(1.5);

         { Modulwidth: 0.5mm }
         tmpbarcode.Modul  := ConvertMmToPixelsX(0.5);

         tmpbarcode.Top    := ConvertMmToPixelsY(100.0);
         tmpbarcode.Left   := ConvertMmToPixelsX(35.0);
         tmpbarcode.DrawBarcode(Canvas);
         EndDoc;
      end;
   finally
      tmpbarcode.Free;
   end;
end;

[delphipitti]

Hallo,

erstmal vielen Dank.

@shmia

Das Demo habe ich schon probiert. Funktioniert ja auch - ABER:

Wenn ich den BC um 90 Grad drehe und die Beschriftung anlasse, dann erscheint diese nicht 90 Grad gedreht,
sondern bleibt so. Wie bekomme ich das jetzt hin??

Ich benötige dringend die Beschriftung - was tun??