'프린트 오픈 Call openport("TSC 4420") '라벨가로길이, 라벨세로길이, 속도, 어둡기, 0-갭/1-마크, 라벨간격, 상단여백 Call setup(X, Y, "1", sDarkNess, "0", "3", "0") '버퍼클리어 Call clearbuffer() Dim sQRBar As String sQRBar = "TEST DATA OUTPUT" Call sendcommand("QRCODE 420,80,H,2,A,0,M2,S7," + """" + sQRBar + """") '인쇄레이블수, 인쇄매수 Call printlabel("1", "1") Call closeport()

Dim xls As New Excel.Application Dim xWorkbook As Excel.Workbook Dim xWorksheet As Excel.Worksheet Dim xRange As Excel.Range Dim xlotno As String Dim lColumn As Long = 0 xWorkbook = xls.Workbooks.Open("E:\1234512345.xls") 'File Location xWorksheet = xWorkbook.Sheets(1) With xWorksheet If xls.WorksheetFunction.CountA(.Columns) 0 Then lColumn = .Columns.Find(What:="*", _ After:=.Range("A1"), _ Loo..

Dim xls As New Excel.Application Dim xWorkbook As Excel.Workbook Dim xWorksheet As Excel.Worksheet Dim xRange As Excel.Range Dim xlotno As String Dim lRow As Long = 0 xWorkbook = xls.Workbooks.Open("E:\1234512345.xls") 'File Location xWorksheet = xWorkbook.Sheets(1) With xWorksheet If xls.WorksheetFunction.CountA(.Cells) 0 Then lRow = .Cells.Find(What:="*", _ After:=.Range("A1"), _ LookAt:=Excel..

참조 - COM - Microsoft Excel 14.0 object Library 사용하면 됩니다!! 없으면 하위버젼도 상관없어요!! Private Sub excel() Dim xls As New Excel.Application Dim xworkbook As Excel.Workbook Dim xworksheet As Excel.Worksheet Dim xRange As Excel.Range Dim xlotno As String xworkbook = xls.Workbooks.Open("E:\12345.xls") xworksheet = xworkbook.Sheets(1) xRange = xworksheet.Range("A1") xlotno = xRange.Value 'Read MsgBox(xlotno) '..

※ 문자열 함수(Visual Basic) .NET Framework 메서드 설명 Asc , AscW 문자에 해당하는 문자 코드를 나타내는 Integer 값을 반환합니다. Chr , ChrW 지정한 문자 코드와 연관된 문자를 반환합니다. Filter 지정된 필터링 기준에 따라 String 배열의 하위 집합을 포함하는 0부터 시작하는 배열을 반환합니다. Format 형식 String 식에 포함된 명령에 따라 형식 지정된 문자열을 반환합니다. FormatCurrency 시스템 제어판에 정의된 통화 기호를 사용하여 통화 값으로 서식이 지정된 식을 반환합니다. FormatDateTime 날짜/시간 값을 나타내는 문자열 식을 반환합니다. FormatNumber 숫자로 서식이 지정된 식을 반환합니다. FormatPe..