Access VBA Print QR Code

[mateo107]

Hi All,

I'm got a simple Asset Tag tracking Access Database with a simple form the user fills out that includes Make/Model/etc., information. I need to generate QR codes for the Asset Tag information, so I found this code to use google's API to get a QR code to show in a WebBrowser control.

I need to print the QR code, along with the Asset Tag number (above or below the QR code) on a small label that's 1x1 (Page Setup shows this as 30332 1 in x 1 in). What's the best way to accomplish this? Save the img and then create a button that creates a report with the pre-defined info?

Here's what I have now to get my QR code into my form dynamically.

Me.AssetTag.Value = EquipType.Value & "-" & Year(Me.PurchaseDate.Value) & Format(Month(Me.PurchaseDate.Value), "00") & Format(Day(Me.PurchaseDate.Value), "00") & Format(Right(Str(Me.PurchasePrice.Value), Len(Str(Me.PurchasePrice.Value)) - 1), "000000") & "-" & Format(Me.ID.Value, "000000")

'Create QR Code Using Google API

Dim Size As Integer
Dim Text As String
Dim url As String
Size = 150
Text = Me.AssetTag.Value
Text = Replace(Text, " ", "%20")
url = "http://chart.apis.google.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chld=H|0&chl=" & Text
WebBrowser7.Navigate (url)

Currently, I am using this code just to print the webbrowser control, but I have to go into page setup each time and set the page size and margins to 0, which is a pain, for EACH label...

WebBrowser7.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT 'PRINT Dialog Box

[jdc2000]

Possibly useful links:

https://msdn.microsoft.com/en-us/vba...inter-settings

https://www.pcreview.co.uk/threads/s...n-vba.3068386/

[westconn1]

possibly you could manually add a printer, a copy of the existing printer (give it some meaningful name), set all the defaults as required, then your code could print to that printer, probably using setdefaultprinter API then change back after printing