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

작성자:  

 소소한행복 (sgyksh)

추천:  2
파일:     급여명세서(임금대장).xlsx (88.8KB) 조회:  1452
제목:   임금명세서 pdf 저장 문의
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>

도움을 요청합니다

아래 내용으로 임금대장에 기재된 근로자별로 급여명세서를 출력하여 사용하고 있는데...

Sub 출력()

Dim intvalue As Integer
Dim i As Integer

intvalue = Worksheets("임금대장").Range("a65536").End(xlUp).Value

For i = 1 To intvalue
   Range("a1") = i
   ActiveSheet.PrintOut
Next i
End Sub

급여명세서를 근로자별로 pdf 저장(파일이 있는 같은 폴도에)하는 방법을 부탁드립니다. 		　
[불량 게시물 신고]  
잡초급여명세서시트에서 실행하여 보세요.
Sub 출력()

Dim intvalue As Integer
 Dim i As Integer

 intvalue = Worksheets("임금대장").Range("a65536").End(xlUp).Value

 For i = 1 To intvalue
    Range("a1") = i
    pdf저장하기 ActiveSheet, ActiveSheet.[d8]
'    ActiveSheet.PrintPreview
 Next i
 End Sub
Sub pdf저장하기(ByVal sht As Worksheet, ByVal strFileName As String)
       sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & strFileName & ".pdf"
End Sub		12-30 (19:30)
ⓧ삭제 ■신고
소소한행복감사합니다^^*
덕분에 아주 유용하게 사용할 수 있을 것 같습니다~

새해 복 많이 받으세요^^*		01-03 (12:35)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2021-12-30(17:51)
최종수정일 : 2021-12-30(17:51)