QR코드 개체 이름ㄹ이 대소문자만 다른 형태로 되어있었음 (이것이 오류였어야 하는데; 기존 동작 방식을 모르겠다. C#이었다면 대소문자 구분으로 진행되었는데. 비베는 이것이 오류로 인지됨..

기존이름에서 1을 붙인걸로 변경했다.

Defalut_PrintForm.vb

@@ -4,12 +4,6 @@ Imports System.IO
 Imports System.Drawing.Printing
 Imports CEpole.C_Epole
 
-Imports ThoughtWorks.QRCode.Codec '//QR코드
-Imports ThoughtWorks.QRCode.Codec.Util
-Imports ThoughtWorks.QRCode.Codec.Data
-
-
-
 Public Class Defalut_PrintForm
 
     Dim 행정도시 As String = ""
@@ -1706,14 +1700,14 @@ Public Class Defalut_PrintForm
                     Dim image As Image
                     Dim data As String = ""
                     ' Dim errorCorrect As String
-                    Dim qrCodeEncoder As New QRCodeEncoder()
+                    Dim qrCodeEncoder1 As New ThoughtWorks.QRCode.Codec.QRCodeEncoder()
                     ' Dim encoding As String
 
 
-                    qrCodeEncoder.QRCodeEncodeMode = CInt(Rect.Encoding)
-                    qrCodeEncoder.QRCodeErrorCorrect = CInt(Rect.CLeve)
-                    qrCodeEncoder.QRCodeVersion = Rect.Version
-                    qrCodeEncoder.QRCodeScale = Rect.Size
+                    qrCodeEncoder1.QRCodeEncodeMode = CInt(Rect.Encoding)
+                    qrCodeEncoder1.QRCodeErrorCorrect = CInt(Rect.CLeve)
+                    qrCodeEncoder1.QRCodeVersion = Rect.Version
+                    qrCodeEncoder1.QRCodeScale = Rect.Size
 
                     'encoding = "3"
                     'If encoding = "3" Then
@@ -1756,9 +1750,9 @@ Public Class Defalut_PrintForm
 
                         'Ga.DrawString(QRCODE, New Font("arial", 30), Brushes.Black, 100, 100)
 
-                        qrCodeEncoder.QRCodeBackgroundColor = Rect.bColor
-                        qrCodeEncoder.QRCodeForegroundColor = Rect.fColor
-                        image = qrCodeEncoder.Encode(PrintQRCODE, Ga.DpiX, Ga.DpiY)
+                        qrCodeEncoder1.QRCodeBackgroundColor = Rect.bColor
+                        qrCodeEncoder1.QRCodeForegroundColor = Rect.fColor
+                        image = qrCodeEncoder1.Encode(PrintQRCODE, Ga.DpiX, Ga.DpiY)
 
 
                         Dim NewSX As Single = Rect.X
@@ -1780,8 +1774,6 @@ Public Class Defalut_PrintForm
                             NewSY += +SetForm.MyProperty_Paper.출력여백Y
                         End If
 
-
-
                         If Rect.Width = 0 OrElse Rect.Height = 0 Then
                             Ga.DrawImage(image, NewSX, NewSY)
                         Else