QRコードを印刷するのに便利なフリーソフト
DotNetBarcodeクラスライブラリをVB.NETで使用した。その際、DotNetBarcodeクラスライブラリが生成するSystem.Drawing.Graphicsを印刷する方法が分からず悩んだのでここで紹介。
Private Sub PrintDocument1_PrintPage(
ByVal sender
As Object,
ByVal e
As System.Drawing.Printing.PrintPageEventArgs)
Handles PrintDocument1.PrintPage
' QRコードの幅
Dim width
As Integer = 100
' QRコードの高さ
Dim height
As Integer = width
' QRコードを印刷する座標X
Dim positionX
As Integer = 0
' QRコードを印刷する座標Y
Dim positionY
As Integer = 0
' QRコードとして書き込む文字列
Dim qRString
As String = "QR CODE"
' 100x100サイズのImageオブジェクトを生成する
Dim qRCodeBitMap
As Bitmap =
New Bitmap(width, height)
' ImageオブジェクトのGraphicsオブジェクトを作成する
Dim qRCodeGraphics
As Graphics = Graphics.FromImage(qRCodeBitMap)
' DotNetBarcodeオブジェクトを生成する
Dim bc1
As System.DotNetBarcode =
New System.DotNetBarcode
' QRコードに変更する
bc1.Type = DotNetBarcode.Types.QRCode
' CheckDigit文字を表示する
bc1.PrintCheckDigitChar =
True
' GraphicsオブジェクトにQRコードを書き込む
bc1.WriteBar(qRString, 0, 0, width, height, qRCodeGraphics)
' Imageオブジェクトを印刷する
e.Graphics.DrawImage(qRCodeBitMap, positionX, positionY)
' Graphicsオブジェクトを解放する
qRCodeGraphics.Dispose()
End Sub
