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