diff --git a/CEpole.vbproj b/CEpole.vbproj
index 13d170d..bc284bb 100644
--- a/CEpole.vbproj
+++ b/CEpole.vbproj
@@ -67,10 +67,6 @@
-
- False
- ..\ThoughtWorks.QRCode\QRCodeLib\ThoughtWorks.QRCode.dll
-
@@ -237,13 +233,17 @@
+
+ {FC8D5F6B-9892-48A4-BD90-4FA6F427567C}
+ ArinClassV2
+
{3611D55B-71E3-4D92-9EFC-43F7D8BB8525}
ArinNewFp5Net4
-
- {FC8D5F6B-9892-48A4-BD90-4FA6F427567C}
- ArinClassV2
+
+ {e98126b2-af17-4783-96b9-856d6744dca3}
+ QRCodeLib
diff --git a/Defalut_PrintForm.vb b/Defalut_PrintForm.vb
index 92dec22..567f75a 100644
--- a/Defalut_PrintForm.vb
+++ b/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