If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "0" For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '//페이지당 연속출력할 횟수 For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '//모든 개체들에 대해서 인쇄를 설정한다. obj = Me.AllLabels(i).ctl If obj.Visible AndAlso obj.MyText <> "" Then '//화면에 보이는것만 한다. For rcnt As Short = 0 To obj.Repeat '//반복기능추가한다 NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text If NewFontSize < 0 Then NewFontSize = 0 Brush = New SolidBrush(obj.MyForeColor) '//전경색으로 브러쉬를 만든다. MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) If obj.장평 = 100 AndAlso obj.장높이 = 100 Then '//장평미사용 문자열 처리 If rcnt > 0 Then Ga.DrawString(obj.최종문자, MyFont, Brushes.LightGray, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) Else Ga.DrawString(obj.최종문자, MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi), (obj.Top + Me.tb_secY.Text * pi)) End If Else '//장평사용 이미지 처리 Dim NewX, Newy As Integer Dim SrcDpix, SrcDPiY As Single 'MsgBox(Tobj.장높이) SrcDpix = obj.CreateGraphics.DpiX SrcDPiY = obj.CreateGraphics.DpiY NewX = obj.GetSize(MyFont).Width * (obj.장평 / 100) * (Ga.DpiX / SrcDpix) Newy = obj.GetSize(MyFont).Height * (obj.장높이 / 100) * (Ga.DpiY / SrcDPiY) Dim BMP As New Bitmap(NewX, Newy, Ga) Dim G As Graphics = Graphics.FromImage(BMP) G.ResetTransform() G.ScaleTransform((obj.장평 / 100), (obj.장높이 / 100)) If rcnt > 0 Then G.DrawString(obj.최종문자, MyFont, Brushes.LightGray, 0, 0) G.Dispose() Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (v장평 / 100)), GetSize.Height) Else G.DrawString(obj.최종문자, MyFont, Brush, 0, 0) G.Dispose() Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (v장평 / 100)), GetSize.Height) End If End If Next End If Next Next ---가공출력물 변경 For i As Integer = 0 To S관리구.GetUpperBound(0) '//모든문자를 할당한다. S관리구(i) = New MyControlOLEDBv2.MyLabel S관리구(i).설명 = "관리구" & i + 1 S관리구(i).Name = "H" & i + 1 S관리구(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S관리구(i) Me.cmb_controls.Items.Add(S관리구(i).설명) CtlCnt += 1 Next For i As Integer = 0 To SDL명.GetUpperBound(0) '//모든문자를 할당한다. SDL명(i) = New MyControlOLEDBv2.MyLabel SDL명(i).설명 = "DL명" & i + 1 SDL명(i).Name = "K" & i + 1 SDL명(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = SDL명(i) Me.cmb_controls.Items.Add(SDL명(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S전산번호.GetUpperBound(0) '//모든문자를 할당한다. S전산번호(i) = New MyControlOLEDBv2.MyLabel S전산번호(i).설명 = "전산번호" & i + 1 S전산번호(i).Name = "S" & i + 1 S전산번호(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S전산번호(i) Me.cmb_controls.Items.Add(S전산번호(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S선로명.GetUpperBound(0) '//모든문자를 할당한다. S선로명(i) = New MyControlOLEDBv2.MyLabel S선로명(i).설명 = "선로명" & i + 1 S선로명(i).Name = "L" & i + 1 S선로명(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S선로명(i) Me.cmb_controls.Items.Add(S선로명(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S전주번호.GetUpperBound(0) '//모든문자를 할당한다. S전주번호(i) = New MyControlOLEDBv2.MyLabel S전주번호(i).설명 = "전주번호" & i + 1 S전주번호(i).Name = "X" & i + 1 S전주번호(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S전주번호(i) Me.cmb_controls.Items.Add(S전주번호(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S시공년월.GetUpperBound(0) '//모든문자를 할당한다. S시공년월(i) = New MyControlOLEDBv2.MyLabel S시공년월(i).설명 = "시공년월" & i + 1 S시공년월(i).Name = "Y" & i + 1 S시공년월(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S시공년월(i) Me.cmb_controls.Items.Add(S시공년월(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S관리구전주번호.GetUpperBound(0) '//모든문자를 할당한다. S관리구전주번호(i) = New MyControlOLEDBv2.MyLabel S관리구전주번호(i).설명 = "관리구,전산번호" & i + 1 S관리구전주번호(i).Name = "G" & i + 1 S관리구전주번호(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S관리구전주번호(i) Me.cmb_controls.Items.Add(S관리구전주번호(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S장척.GetUpperBound(0) '//모든문자를 할당한다. S장척(i) = New MyControlOLEDBv2.MyLabel S장척(i).설명 = "장척" & i + 1 S장척(i).Name = "J" & i + 1 S장척(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S장척(i) Me.cmb_controls.Items.Add(S장척(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S시공자.GetUpperBound(0) '//모든문자를 할당한다. S시공자(i) = New MyControlOLEDBv2.MyLabel S시공자(i).설명 = "시공자" & i + 1 S시공자(i).Name = "C" & i + 1 S시공자(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S시공자(i) Me.cmb_controls.Items.Add(S시공자(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S접지.GetUpperBound(0) '//모든문자를 할당한다. S접지(i) = New MyControlOLEDBv2.MyLabel S접지(i).설명 = "접지" & i + 1 S접지(i).Name = "Z" & i + 1 S접지(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S접지(i) Me.cmb_controls.Items.Add(S접지(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S감독자.GetUpperBound(0) '//모든문자를 할당한다. S감독자(i) = New MyControlOLEDBv2.MyLabel S감독자(i).설명 = "감독자" & i + 1 S감독자(i).Name = "M" & i + 1 S감독자(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S감독자(i) Me.cmb_controls.Items.Add(S감독자(i).설명) CtlCnt += 1 Next For i As Integer = 0 To S일련번호.GetUpperBound(0) '//모든문자를 할당한다. S일련번호(i) = New MyControlOLEDBv2.MyLabel S일련번호(i).설명 = "일련번호" & i + 1 S일련번호(i).Name = "N" & i + 1 S일련번호(i).Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S일련번호(i) Me.cmb_controls.Items.Add(S일련번호(i).설명) CtlCnt += 1 Next =======테스트 S사용자1 = New MyControlOLEDBv2.MyLabel S사용자1.설명 = "사용자문자1" S사용자1.MyText = "" S사용자1.Name = "U" S사용자1.Visible = False ReDim Preserve AllLabels(CtlCnt) Me.AllLabels(CtlCnt).ctl = S사용자1 Me.cmb_controls.Items.Add(S사용자1.설명) CtlCnt += 1