Newsgroup: it.comp.appl.access
Titolo: Come stampare QR code su report ?

Come fare per stampare un QR code su un report classico Access?
 
 

 
 
 
io lo faccio con un workaround
in pratica sfrutto una api di google per generarlo online e scarico 
l'immagine per poi caricarla nel report. ovviamente il tutto è 
trasparente all'utente
 
unico contro, deve esserci una connessione internet.
altra soluzione degli ocx a pagamento che sinceramente non ho provato
 
BFS
 
---
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com
 
 

 BFS
 
Interessante
Non conoscevo questo servizio offerto da Google
Ora cerco


dichiara:
 
Private Declare Function URLDownloadToFile Lib "urlmon" _
     Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
     ByVal szURL As String, ByVal szFileName As String, _
     ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
nella pressione del bottone carico lil qrcode in un controllo immagine 
chiamato qr
 
Dim returnvalue As Variant
returnvalue = URLDownloadToFile(0, _
 
"
http://chart.apis.google.com/chart?chs=200x200&cht=qr&chl=scrivi
 qui 
quello che vuoi", _
             "C:\tmp.png", 0, 0)
 
Me.qr.Picture = "C:\tmp.png"
 
per i parametri completi della generazione vedi google
 
ciao


prova questo
 
 
'**************************************
' Name: QR Codes with QRCodeLib.dll
' Description:Simple way to create QR Codes using QRCodeLib.dll. you can download the file at 
http://www.sait.com.mx/download/qrcodelib.dll
. This code was posted by Juan Gilberto (thanks to him) and I want to share it here. Enjoy!
' By: Iwe
'
'This code is copyrighted and has' limited warranties.Please see 
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=75606&lngWId=1'for
 details.'**************************************
 
Enum TQRCodeEncoding
ceALPHA
ceBYTE
ceNUMERIC
ceKANJI
ceAUTO
End Enum
Enum TQRCodeECLevel
LEVEL_L
LEVEL_M
LEVEL_Q
LEVEL_H
End Enum
 
Private Declare Sub FullQRCode Lib "QRCodeLib.dll" _
(ByVal autoConfigurate As Boolean, _
 ByVal AutoFit As Boolean, _
 ByVal backColor As Long, _
 ByVal barColor As Long, _
 ByVal Texto As String, _
 ByVal correctionLevel As TQRCodeECLevel, _
 ByVal encoding As TQRCodeEncoding, _
 ByVal marginpixels As Integer, _
 ByVal moduleWidth As Integer, _
 ByVal Height As Integer, _
 ByVal Width As Integer, _
 ByVal FileName As String)
 
Private Declare Sub FastQRCode Lib "QRCodeLib.dll" _
(ByVal Texto As String, _
 ByVal FileName As String)
 
Private Declare Function QRCodeLibVer Lib "QRCodeLib.dll" () As String
Private Sub Command1_Click()
Dim sFile As String
sFile = "C:\Tmp\QRCode.bmp"
FastQRCode Text1.Text, sFile
Set Picture1.Picture = LoadPicture(sFile)
End Sub

 Come fare per stampare un QR code su un report classico Access?
 
https://drive.google.com/open?id=155GUblrT0_GGCjm1sQR1A95Aop2aMSvl
 
 
Dimmi se ti può essere utile.
aluti


Ciao, ringrazio per l'interessamento, ma mi interessano i QR
Nel tuo file ci sono due font altro tipo di bar code

Leggo anche questi:
 
http://www.barcode-soft.com/qrcodeaccess.aspx
 
 
https://www.morovia.com/manuals/qrcode-font-encoder/ch06.php
 
 
 
@Alex


E' molto interessante, non conoscevo la possibilita' di farsi produrre 
il barcode da esterno
Lo provo subito
Anche se credo usero' poi il sistema con la libreria QRCodeLib.dll che 
consente di lavorare senza 'pescare' niente dal di fuori della rete locale


Funziona alla grande
Molte grazie
 


Si, grazie
Solo che e' tutta roba 'a pago'
Mentre gli esempi di Bfs con gugol, e shado con le QRCodeLib.dll, 
consentono di ottenere comunque il risultato richiesto, aggratisse

Come non concordare... ;-)
 
@Alex