QR-Code

[Nachtviole]

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

[norre]

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.

[Hartmut]

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.

[norre]

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.

[Ettenna]

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.

[koter]

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 Sub

Grafiktext auswählen und das Macro starten.

nochmals Danke für den Tip!