+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: EAN 13 Code und Zeilenabstände (/showthread.php?tid=38674)
RE: EAN 13 Code und Zeilenabstände - peterjaeckel - 24.04.2025
Ich habe natürlich weiter selbst versucht eine Lösung für einen "100% CMYK Schwarz aus Corel Draw 2024 direkt" Barcode zu finden.
DAS BETRIFFT NUR BARCODES! NICHT QR-CODES (Die sind CD 24 intern erzeugt 100% CMYK Schwarz)!
Mein Aktueller Stand, erarbeitet mit KI (von daher nur begrenzt belastbar):
ES GEHT NUR EIN EXTERN ERZEUGTER BARCODE!
### Warum externe Erzeugung?
- Corel‑Barcode‑OLE gibt intern RGB‑Schwarz aus; die CMYK‑Engine konvertiert in „Rich Black“ (C≈86 M≈85 Y≈79 K100).
- Das Objekt ist „Versiegelt“ – weder Gruppierung noch Symbol‑Break funktionieren. [Eine Schreibgeschütze OLE-Box]
- Corel hat für CD 2025 eine Fehlerbehebung angekündigt; bis dahin bleibt nur „Barcode außerhalb erzeugen“.
Gibt es ein Build von Corel das diesen Fehler nicht hat?
###Leider nein – bei Corel Draw 2024 betrifft der „Rich‑Black‑Barcode“‑Fehler alle veröffentlichten Builds (bis einschl. Build 24.2.x, Stand April 2025). Corel hat das Problem intern bestätigt und bislang keinen Patch herausgebracht. Ein Downgrade auf Corel Draw 2023 hilft ebenfalls nicht, weil dort derselbe Barcode‑OLE‑Code steckt.
### Was Corel offiziell sagt
* Der Fix soll „voraussichtlich mit Corel Draw Graphics Suite 2025“ ausgeliefert werden.
* Für 2024/2023 wurde kein Hotfix angekündigt.
* Work‑around: Barcode außerhalb erzeugen oder nach PDF‑Export in Acrobat auf 100 K mappen.
### Schnellster Workflow für dich
- Barcode extern generieren
– CMYK 0/0/0/100 setzen → PDF/X‑4 exportieren.
- In Corel importieren → Layout fertigstellen.
- PDF exportieren (keine Farbumwandlung).
- Separationsvorschau einmal prüfen → fertig.
###-Markierte Aussagen stammen von ChatGPT
Hoffe das hilft jemandem weiter.
Vielleicht kennt jemand noch einen Besseren Weg
Peter
RE: EAN 13 Code und Zeilenabstände - Gerrie25 - 24.04.2025
Hallo, du kannst deinen in Corel erzeugten EAN-Code in die Zwischenablage kopieren und unter
BEARBEITEN - INHALTE EINFÜGEN - als Bild (Metadatei) einfügen. Diesen kannst du dann beliebig bearbeiten.
Gruß Gerrie
RE: EAN 13 Code und Zeilenabstände - peterjaeckel - 25.04.2025
Jawollo!
Da ist die Lösung -Mensch schlägt KI!
Vielen Dank Gerrie.
Ich hatte es bereits mit kopieren und einfügen und umspeichern in Vektor-Format versucht, aber die Funktion Inhalte einfügen hatte ich nicht auf dem Schirm.
Der für mich einfachste Work around um einen ganz schwarzen Bar Code in CD 2024 mit dem integrierten Tool zu bekommen sieht dann wie folgt aus:
1. Bar Code erzeugen (OBJEKT - EINFÜGEN - BARCODE)
2. Bar Code Markieren und ausschneiden (STRG+X)
3. Bar Code über BEARBEITEN -> INHALTE EINFÜGEN -> EINFÜGEN BILD (METADATEI) -Er wird auf der Position des alten eingefügt!
4. Grupierung vom Barcode aufheben (STRG+U)
5. In der Ebene alle Balken und Zahlen markieren
6. Die Gewünschte Farbe geben (im Fall 100% schwarz: C:0 M:0Y:0 K:100) -Am besten eine entsprechende Farbe vorher in der Farbpalette anlegen.
Noch mal Danke an alle!
LG
Peter
RE: EAN 13 Code und Zeilenabstände - koter - 26.04.2025
Hallo Peter,
Deine Aufzählung ist ja schon fast ein Makro!
Ab Punkt 2 in VBA übersetzt:
Code:
Sub MetaEAN()
Dim BCode As Shape
Dim Schwarz As New Color
Dim x As Double, y As Double
' Farbe anlegen
Schwarz.CMYKAssign 0, 0, 0, 100
' 2. Barcode ausschneiden
' (vorher die Position merken)
x = ActiveSelectionRange.PositionX
y = ActiveSelectionRange.PositionY
ActiveSelectionRange.Cut
'3. Barcode EINFÜGEN (als Metafile)
ActiveLayer.PasteSpecial "Metafile"
Set BCode = ActiveShape
' auf die Position des alten schieben
BCode.PositionX = x
BCode.PositionY = y
'6. Die Gewünschte Farbe geben (im Fall 100% schwarz: C:0 M:0Y:0 K:100)
BCode.Shapes.AllExcluding(BCode.Shapes.Count).ApplyUniformFill Schwarz
End SubPunkt 4 und 5 habe ich weggelassen. Das Ergebnis ist also eine Gruppe.
Vielleicht nützt es Dir ja.
Gruß
Koter
RE: EAN 13 Code und Zeilenabstände - mvm - 27.04.2025
Was sehr gut funktioniert für außerhalb erzeugte Bitmap-Barcodes, diese nach Import zu vektorisieren. Anschließend die einzelnen Objekte kombinieren und einen beliebigen CMYK-Farbcode zuweisen.
RE: EAN 13 Code und Zeilenabstände - peterjaeckel - 10.05.2025
(26.04.2025, 21:43)koter schrieb: Hallo Peter,
Deine Aufzählung ist ja schon fast ein Makro!
Ab Punkt 2 in VBA übersetzt:
Code:Sub MetaEAN()
Dim BCode As Shape
Dim Schwarz As New Color
Dim x As Double, y As Double
' Farbe anlegen
Schwarz.CMYKAssign 0, 0, 0, 100
' 2. Barcode ausschneiden
' (vorher die Position merken)
x = ActiveSelectionRange.PositionX
y = ActiveSelectionRange.PositionY
ActiveSelectionRange.Cut
'3. Barcode EINFÜGEN (als Metafile)
ActiveLayer.PasteSpecial "Metafile"
Set BCode = ActiveShape
' auf die Position des alten schieben
BCode.PositionX = x
BCode.PositionY = y
'6. Die Gewünschte Farbe geben (im Fall 100% schwarz: C:0 M:0Y:0 K:100)
BCode.Shapes.AllExcluding(BCode.Shapes.Count).ApplyUniformFill Schwarz
End Sub
Punkt 4 und 5 habe ich weggelassen. Das Ergebnis ist also eine Gruppe.
Vielleicht nützt es Dir ja.
Gruß
Koter
Super das probiere ich mal aus wenn ich mehr davon zu erledigen habe.
Aktuell begrenzt es sich auch einzelne Fälle...
Liebe Grüße Peter