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 ...