[땡큐엑셀vba & 엑셀매크로] 회원전체 pdf파일로 저장하기

회원 시트

 

출력 시트

 

수식적용

수식적용

 

 

 

결과 - pdf파일

 

 

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=279378268&page=1#answer1

'엑셀매크로 입니다.
'"회원" 워크시트에 있는 회원코드별로 매칭되는 데이터를 끌어와서
'반복인쇄하는것은 성공하였습니다.!!!
'여기서 Range("b7:g13").Select 반복인쇄 대신,
'전체 PDF 파일로 변환하는 매크로를 원합니다. (샘플첨부파일)
'(회원 지역별로 서울, 부산, 대구 등등 으로 분할 저장할수 있으면 더욱 좋습니다.)
'엑신님들의 답변 부탁드립니다. ^^/




'사전에 출력될 범위를 인쇄영역으로 설정하세요.

'
'source by 땡큐엑셀vba & 엑셀매크로
'
Sub 회원전체pdf로저장()

    Set sht = ActiveSheet
    Set shta = Sheets("회원")
    
    '경고창 무시하기
    Application.DisplayAlerts = False
    
    '루프
    For i = 3 To 16
        '출력시트 A3셀에 회원코드를 넣어주면 나머지에는 수식이 걸려있어서 자동으로 변경됨
        sht.Range("A3") = shta.Range("A" & i)
        
        Call saveAsPdf(Range("A3"))
        'Selection.PrintOut Copies:=1, Collate:=True
    Next i

    '경고창 활성화
    Application.DisplayAlerts = True
    
    
    
    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub



Sub saveAsPdf(strOpt1 As String)

    '경로는 변경하여 사용하세요
    경로 = "C:\temp\"
    '회원코드가 파일명이 됩니다.
    파일명 = strOpt1
    '그리고 확장자 pdf를 붙인다.
    전체경로 = 경로 & 파일명 & ".pdf"
    
    'pdf로 변환하여 해당경로에 저장한다.
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=전체경로, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
        

End Sub

 

회원전체 pdf파일로저장-ExportAsFixedFormat-땡큐엑셀vba.xlsm

0.02MB