.NET(3)
-
[VB .NET] TSC BARCODE PRINT / QR CODE
'프린트 오픈 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()
2020.05.28 -
VB.NET EXCEL LAST COLUMN, VB 엑셀 마지막 컬럼 구하기
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..
2016.09.09 -
VB.NET EXCEL Read, Write / VB.NET 엑셀 읽고, 쓰기
참조 - 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) '..
2016.07.20