Sub 실행() If ActiveSheet.Name = "자재목록" Then Call 자재목록to자재수급인쇄 MsgBox "자재수급인쇄 시트 작성을 완료하였습니다" ElseIf ActiveSheet.Name = "품목" Then Call 품목to인쇄 End If End Sub Sub 자재목록to자재수급인쇄() On Error Resume Next Set r = Sheets("자재목록").Range("e3", Sheets("자재목록").Cells(Rows.Count, "e").End(3)).SpecialCells(2) On Error GoTo 0 If r Is Nothing Then Exit Sub Sheets("자재수급인쇄").Range("a6:j" & Sheets("자재수급인쇄").Cells(Rows.Count, "a").End(3).Row).ClearContents Application.ScreenUpdating = 0 For Each c In r c.Offset(0, -4).Resize(1, 4).Copy Sheets("자재수급인쇄").Range("a6").Offset(i, 0) Sheets("자재수급인쇄").Range("a6").Offset(i, 4) = c.Offset(0, 0) i = i + 1 Next Application.ScreenUpdating = 1 End Sub Sub 품목to인쇄() On Error Resume Next Set r = Sheets("품목").Range("f3", Sheets("품목").Cells(Rows.Count, "f").End(3)).SpecialCells(2) On Error GoTo 0 If r Is Nothing Then Exit Sub Sheets("전표인쇄").Range("a12:ag" & Sheets("전표인쇄").Cells(Rows.Count, "d").End(3)(2).Row).ClearContents Application.ScreenUpdating = 0 For Each c In r With Sheets("전표인쇄").Cells(Rows.Count, "d").End(3)(2) Sheets("전표인쇄").Cells(.Row, "b") = Sheets("품목").Cells(c.Row, "b") Sheets("전표인쇄").Cells(.Row, "d") = Sheets("품목").Cells(c.Row, "c") Sheets("전표인쇄").Cells(.Row, "H") = Sheets("품목").Cells(c.Row, "d") Sheets("전표인쇄").Cells(.Row, "k") = Sheets("품목").Cells(c.Row, "f") Sheets("전표인쇄").Cells(.Row, "s") = Sheets("품목").Cells(c.Row, "g") Sheets("전표인쇄").Cells(.Row, "aa").FormulaR1C1 = "=RC[-11]*RC[-4]" Sheets("전표인쇄").Cells(.Row, "ae").FormulaR1C1 = "=RC[-5]*0.1" End With Next Application.PrintCommunication = False With Sheets("전표인쇄").PageSetup .PrintTitleRows = "$2:$11" .PrintTitleColumns = "" End With Sheets("전표인쇄").PageSetup.PrintArea = "$B$2:$AG$" & Sheets("전표인쇄").Cells(Rows.Count, "d").End(3).Row Application.PrintCommunication = True Application.ScreenUpdating = 1 End Sub