나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 참서리 (k5953)

추천:  2
파일:     ListBox내용 일괄 PDF로 저장.xlsm (181.8KB) 조회:  1468
제목:   [RE]리스트박스 내용 PDF 출력 한꺼번에
　 　 　
　
Private Sub btn_all_pdf_Click()

    Dim i As Long
    '2d Array
   Dim vX As Variant: vX = Me.ListBox1.List
   Dim v As Variant
   Dim rngX As Range, shtX As Worksheet
   Set shtX = Worksheets("검진통보서")
   Dim sFile As String
   
   Application.ScreenUpdating = False
   
   For i = 0 To UBound(vX, 1)
   
        v = vX(i, 0)
        
        If v <> "" Then
        
            ' Listbox값을 A1에 대입
            [A1].Value = v
            '인쇄 범위
            Set rngX = shtX.Range("B1", shtX.Range("I35"))
            ' 파일명
            sFile = shtX.[L7].Value & "\" & shtX.[L6].Value & ".pdf"
            '기존 파일 지우기
            If Dir(sFile) <> "" Then Kill sFile
            ' pdf 생성
            rngX.ExportAsFixedFormat xlTypePDF, sFile
            
        Else
       ' Stop
             Exit For
        End If
   Next i
  
    Application.ScreenUpdating = False
    
End Sub 		　
[불량 게시물 신고]  
참서리다음 영상에 자세히 설명되어 있습니다.
https://youtu.be/tW7IH808kII		05-23 (23:39)
ⓧ삭제 ■신고
김현수정말 감사드립니다. 
너튜브까지 올려 주셔서 설명까지~~
거듭 감사드립니다. 꾸벅~~		05-24 (09:06)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-05-23(23:39)
최종수정일 : 2019-05-23(23:39)
　


 ◎ 관련글
  제 목   작성자   날짜
리스트박스 내용 PDF 출력 한꺼번에 김현수 2019-05-23
◎ [RE]리스트박스 내용 PDF 출력 한꺼번에 참서리 2019-05-23