+- 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: QR-Code (/showthread.php?tid=33447)
Seiten:
1
2
QR-Code - Nachtviole - 18.07.2012
Hallo Hartmut!
Schön, daß Dir Zint nützt. In CorelDraw X3 gab es noch die Möglichkeit über „Bearbeiten / Barcode einfügen“ Strichcodes zu erzeugen. Allerdings war dies dann ein separates Objekt und ev. nur indirekt zum schneiden geeignet. Außerdem beherrscht Zint ja viel mehr Formate.
In der Zeit bevor das Internet Mode wurde benötigten wir mal 50 fortlaufende EANs, die mußten wir damals extra von einem Belichterstudio als EPS erzeugen lassen. Auf den Apfelrechnern welche wir hatten gab es in Corel 6 zwar schon einen entsprechenden Menupunkt welcher allerdings immer gegraut war und ein externes Mac-Programm dafür hatten wir nicht. Zuhause auf dem PC hatte ich zwar ein passendes Programm welches EANs erzeugen konnte, aber nur als Bitmap in zu niedriger Auflösung für den Zweck …
Viele Grüße von der Nachtviole!
P.S.: Hoffentlich kannst Du bald die Regenwolke aus Deinen Avatar-Bild entfernen
![[Bild: s070.gif]](http://www.cosgan.de/images/smilie/froehlich/s070.gif)
QR-Code - norre - 18.07.2012
Hallo, ja der Tipp war richtig gut, ich hatte schon mit dem geliebäugelt http://www.softbotz.com/QRCode/ , aber wenn es natürlich auch kostenlos geht:-;
Bis jetzt hatte ich für größere Sachen den Code einfach vektorisiert, das geht mit Umriß wirklich gut.
QR-Code - Hartmut - 18.07.2012
Hallo Nachtviole,
war heute geneigt die Wolke zu verschieben, wir hatten bis getz einen Tach Sonne, bo äh. War sogar mit meiner Tochter und meiner Enkelin ne Runde spazieren. Meine Tochter hatte es mir angedroht, wenn Charlotte auf der Welt is kommse ant Laufen. Die hat dat wahr gemacht. Da aber schon für morgen wieder Regen angedroht ist, da bleibt die Wolke, da bin ich eisern.
Das mit dem Barcode in X3 war wie ich meine, immer nur ein Bitmap was da raus kam. Ich hatte es mal versucht aber der hellfarbige Untergrund kam auf dem Monitor nicht zum Vorscheinen. Während das in Corel 8 mit dem Barcodegenerator funzte. Aba nu jed et ja widda.
Hallo norre,
das mit dem Nachdigitalisieren war mir zu heiß. Nachher Stimmen die Striche nicht und dann kommt da auf ner Messe eventuell "Blödmann" raus, ne danke.
QR-Code - norre - 18.07.2012
Hartmut schrieb:Hallo norre,
das mit dem Nachdigitalisieren war mir zu heiß. Nachher Stimmen die Striche nicht und dann kommt da auf ner Messe eventuell "Blödmann" raus, ne danke.
Hatte ich mir zuerst auch gedacht, aber nach ein bisserl rumprobieren und aufeinanderlegen sah man keinen Unterschied zwischen Pixel und Vektor. Aber das ist ja Schnee (Hi,wetter am Wochenende) von gestern, heute gibts ja gleich Vektoren.
Grüßle Norre,
der in Bayern seit zwei Tagen in der Sonne schmort.
QR-Code - Ettenna - 19.07.2012
RaceRay schrieb:Hi Annette,
schön dass es funktioniert hat. Ich habe die Seite gerade um die Möglichkeit ergänzt den erstellten Code direkt auf ein Shirt drucken zu lassen
Ausserdem hab ich die mögliche Auflösung um das vierzigfache erhöht. Jetzt kannst Du wirklich hochauflösende Codes generieren.
Schönen Wochenstart wünsch ich
LG René
Hallo René,
hab's heute nochmal versucht, tolle Sache, aber schade, dass das Programm keine Umlaute kann.
QR-Code - koter - 29.07.2012
Zint war ein guter Tip!
Mit der Zint Komanndozeile und ein paar Zeilen VBA-Code kann man sogar schnell QRCodes einfügen, ohne Zint manuell zu starten.
Bei mir (winXP/CorelDrawX4) funktioniert es so:
Code:
Sub zintQR()
Dim Text As String
Dim ZintPfad As String
Dim ECCLevel As String * 1
Dim Skalierung As String
Dim Befehl As String
Dim ExitCode As Long
ZintPfad = "C:\Programme\Zint\" 'der Pfad zu zind.exe
ECCLevel = 2 '1 = Level L, 2 = Level M, 3 = Level Q, 4 = Level H
Skalierung = "4.5"
If ActiveDocument.Selection.Shapes.Count = 0 Then
MsgBox "nichts ausgewählt!", vbExclamation
Exit Sub
End If
If ActiveDocument.Selection.Shapes(1).Type = cdrTextShape Then
Text = ActiveDocument.Selection.Shapes(1).Text.Story 'Text des selektierten Objekts
Text = Trim(Text)
If Text <> "" Then
Text = Replace(Text, Chr(34), "\" & Chr(34)) 'Zollzeichen maskieren
Text = Chr(34) & Text & Chr(34)
Text = Replace(Text, Chr(13), "\n") ' Zeilenumbrüche ersetzen
Text = Replace(Text, Chr(11), "\n") ' Zeilenumbrüche ersetzen
Befehl = ZintPfad & "zint -o " & Chr(34) & ZintPfad _
& "temp.eps" & Chr(34) & " --binary -b 58 --secure=" & ECCLevel _
& " --scale=" & Skalierung _
& " -d " & Text
Debug.Print Befehl
warte Befehl 'Ausführen und warten bis Zint fertig ist
If DateiVorhanden(ZintPfad & "temp.eps") Then
epsImport ZintPfad & "temp.eps" 'Importieren
Kill ZintPfad & "temp.eps" 'temporäre Datei löschen
Else
MsgBox "Codierungsfehler", vbExclamation
Exit Sub
End If
Else
MsgBox "Keinen Text gefunden", vbExclamation
End If
Else
MsgBox "Keinen Text gefunden", vbExclamation
End If
End Sub
Sub warte(ByVal strPath As String)
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run strPath, 7, 1
Set WshShell = Nothing
End Sub
Function DateiVorhanden(Datei As String) As Boolean
Dim FS As Object
Set FS = CreateObject("Scripting.FileSystemObject")
DateiVorhanden = FS.FileExists(Datei)
Set FS = Nothing
End Function
Sub epsImport(Datei As String)
Dim PosX As Double, PosY As Double
Dim x As Double, y1 As Double, y2 As Double
PosX = ActiveDocument.Selection.Shapes(1).PositionX
PosY = ActiveDocument.Selection.Shapes(1).PositionY
ActiveShape.GetSize x, y1
Dim impopt As StructImportOptions
Set impopt = CreateStructImportOptions
impopt.MaintainLayers = True
Dim impflt As ImportFilter
Set impflt = ActiveLayer.ImportEx(Datei, cdrPSInterpreted, impopt)
impflt.Finish
ActiveShape.GetSize x, y2
ActiveShape.Move PosX, PosY - y1 - y2 - 0.1
End SubGrafiktext auswählen und das Macro starten.
nochmals Danke für den Tip!