Office: (Office 2016) QR Code im Formular/Bericht

Guten Abend,

ich benötige bitte Hilfe zum Thema QR-Code im Bericht.
Ich würde gerne aus mehreren Formularfeldern einen QR-Code im Bericht erzeugen.
Dazu gibt es eine Lizenz in der Firma, wo man über VBA diesen Code integrieren kann.
Leider fehlt mir das Wissen.
Dieses Modul steht schon zur Verfügung:

'*****************************************************************
'* Visual Basic Functions for Morovia QRCode Font Encoder DLL, version 5.
'* (c) 2011, 2012 Morovia Corporation. All rights reserved.
'*
'* See user manual for details on each encoder function.
'*
'* You may use Source Code in your application only if you
'* received a valid license from Morovia Corporation.
'*
'* You need a distribution license to distribute font or source code
'* outside your organization.
'*
'* $Id$
'* Version: 5.1
'*****************************************************************

' Note:
' This VBA module calls QRCode Font Encoder DLL internally. Therefore the DLL must
' be located in search path.

#If VBA7 Then
Private Declare PtrSafe Function DllImport_QRCodeEncode _
Lib "MoroviaQRCodeFontEncoder5.dll" _
Alias "QRCodeEncode2W" _
(ByVal DataToEncode As String, _
ByVal versionRequested As Long, _
ByVal ecLevel As Long) As LongPtr
#Else
Private Declare Function DllImport_QRCodeEncode _
Lib "MoroviaQRCodeFontEncoder5.dll" _
Alias "QRCodeEncode2W" _
(ByVal DataToEncode As String, _
ByVal versionRequested As Long, _
ByVal ecLevel As Long) As Long
#End If


#If VBA7 Then
Private Declare PtrSafe Function DllImport_QRCodeResultGetBarcodeString _
Lib "MoroviaQRCodeFontEncoder5.dll" _
Alias "QRCodeResultGetBarcodeString" _
(ByVal handle As LongPtr, _
ByVal buffer As String, _
ByRef maxSize As Long, _
ByVal eol As String _
) As Long
#Else
Private Declare Function DllImport_QRCodeResultGetBarcodeString _
Lib "MoroviaQRCodeFontEncoder5.dll" _
Alias "QRCodeResultGetBarcodeString" _
(ByVal handle As Long, _
ByVal buffer As String, _
ByRef maxSize As Long, _
ByVal eol As String _
) As Long

#End If

#If VBA7 Then
Private Declare PtrSafe Sub DllImport_DestroyQRCodeEncodeResult _
Lib "MoroviaQRCodeFontEncoder5.dll" _
Alias "DestroyQRCodeEncodeResult" _
(ByVal handle As LongPtr)
#Else
Private Declare Sub DllImport_DestroyQRCodeEncodeResult _
Lib "MoroviaQRCodeFontEncoder5.dll" _
Alias "DestroyQRCodeEncodeResult" _
(ByVal handle As Long)
#End If


Public Function QRCodeEncode(ByVal DataToEncode As String, _
Optional ByVal versionID As Long = 0, _
Optional ByVal ecLevel As Long = 0) As String
Dim myOut As String * 8096
Dim lRetVal As Long
Dim maxSize As Long
maxSize = 8096

#If VBA7 Then
Dim handle As LongPtr
#Else
Dim handle As Long
#End If

handle = DllImport_QRCodeEncode(StrConv(DataToEncode, vbUnicode), _
versionID, ecLevel)

If (handle = 0) Then
QRCodeEncode = "ERROR"
Else
lRetVal = DllImport_QRCodeResultGetBarcodeString(handle, myOut, maxSize, Chr(13) + Chr(10))
Call DllImport_DestroyQRCodeEncodeResult(handle)
QRCodeEncode = myOut
End If

End Function


Dazu folgender Aufruf:


Function Prototype Font to Use Comment
QRCodeEncode(DataToEncode As String, _
Optional versionID As Long=0, _
Optional ecLevel As Long=0) As String

barcodestr = QRCodeEncode("this is data")

Kann mir einer behilflich sein?

Gruß

Dirk

 

Hallo nochmal,

ich habe es selbst gelöst. Es war eine Beispieldatenbank in der Dokumentation.

Einfacher als gedacht.

Danke trotzdem

Gruß

Dirk