​ ​ Q: vba로 프린터 목록을 선택하고, 그 프린터이름을 가져올 수 있나요? ​ A : xlDialogPrinterSetup 이라는 기능으로 프린트 선택창을 띄울 수 있습니다. ① 프린터 선택 창을 띄운다. ② 프린터를 선택한다. ③ 선택한 프린터의 이름을 가지고 출력 등 활용을 한다. Sub teset9() '// 프린트 선택 창 띄움 Application.Dialogs(xlDialogPrinterSetup).Show '// 선택 한 활성화 된 프린터의 이름 출력 Cells(1, 1) = Application.ActivePrinter End Sub 참고자료 https://docs.microsoft.com/en-us/office/vba/api/excel.application.dialogs

지식iN에 아래와 같은 질문이 올라와 있어서 답변을 하였습니다. 요청하는 내용은 대략적으로 PDF 파일명 일부를 검색해서 파일을 열고 싶다 였고 반드시 하위에 모든 경로들을 반복 해야 한다고 하였습니다. ​ 그리하여 하위 폴더들을 반복하기 위해 재귀함수(Recursive) 방식으로 하위 폴더를 반복하여 파일을 열어주는 방식으로 했습니다. 이 질문의 같은 경우에는 파일은 중복되지 않는다는 것에 중점이 되어있어서 생각보다 간편히 처리할 수 있었습니다. 조건 *C2셀에 오픈 하려는 pdf파일명의 일부만 입력합니다. 따라서 C2셀의 이름이 포함된 파일을 검색해서 오픈합니다. C2셀의 숫자는 고유숫자입니다. 중복된 숫자를 가진 파일은 존재하지 않습니다. *파일이 저장된 경로: C:\Users\abcde\A *A폴..

질문 내용 컴퓨터 3대가 있고 2대에서 VBA 를 통해서 일반프린터가 아닌 라벨프린터를 선택해 출력을 하려합니다 ​ 1번컴 : Ne06:에 있는 \\공컴\라벨프린터 2번컴 : Ne05:에 있는 \\공컴\라벨프린터 3번컴 : 일반프린터, 라벨프린터가 설치된 컴퓨터 ​ 문제는 1번컴과 2번컴에서 Ne번호가 다르다는 것입니다. 해당 컴퓨터에서 설치된 프린터 목록을 다 알아낸다음 Instr 함수를 통해 "라벨프린터"가 들어가있으면 해당 프린터를 pName 변수에 string으로 저장할 수 있을것같은데, 해당 컴에 설치된 프린터 목록을 배열에 저장하는 법을 모르겠습니다. ​ ​ 답변 내용 아래 처럼 간단하게 해당 컴퓨터의 설치 된 모든 프린터 목록들을 가져와서 말씀하신대로 Instr로 포함 된 글자를 통해 걸러도..

Sub Test() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) For Each ms In m.Sheets If ms.Name = "청라" Then Set ms = ms Dim i As Integer: Dim j As Integer Dim START_ROW As Integer: Dim START_COL As Integer Dim outv As Variant '// (1 To 7) : Row : tctype ReDim outv(1 To 7, 1 To 1) START_ROW = 13 START_COL = 4 Dim r As Integer: r = 1 '// 우측으로 이름 반복 For i = 4 To ms.Cells(ST..

사용할 때 Call 병합해제_후_내용채우기(4, 4, 783) 함수 Function 병합해제_후_내용채우기(ByRef row As Integer, ByRef col As Integer, ByRef LAST_ROW As Integer) '// row = 시작 점 '// col '//---------------------------------------- '// 넘버 : #2 '// 날짜 : 2018-01-15 '// 내용 : 셀 병합해제 한다음 해제한 부분의 내용을 채우기 '//---------------------------------------- Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) '// 워크북 지정 Se..

1. 상단 맞춤 Range(“A1:B1”).VerticalAlignment = xlTop 2. 가운데 맞춤 Range(“A1:B1”).VerticalAlignment = xlCenter 3. 하단 맞춤 Range(“A1:B1”). VerticalAlignment = xlBottom 1. 좌측 정렬 Range(“A1:B1”).HorizontalAlignment = xlLeft 2. 가운데 정렬 Range(“A1:B1”).HorizontalAlignment = xlCenter 3. 우측 정렬 Range(“A1:B1”).HorizontalAlignment = xlRight