VB.NET에서 내 PC에 설치되어있는 프린트 드라이브 목록 가져오는 방법입니다. 다들 아시겠지만 참고하세요!! Private Sub Print_list() Dim i as Integer Dim Printers As String For i = 0 To Printing.PrinterSettings.InstalledPrinters.Count - 1 Printers = Printing.PrinterSettings.InstalledPrinters.Item(i) prt_list.AddItem(Printers, Printers) Next End Sub 기본적으로 프린트 하는것은 복잡하지만, .NET에서는 컨트롤로 지원을 해줍니다. PrintDialog 클래스로 프린트시 필요한 설정들을 제공받는 클래스 입니다. 프로..

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..