자동 인쇄 매크로

@LINTANN 님 이렇게 한번 해보세요^^

Sub 바코드인쇄()

Dim ws As Worksheet
Dim rngC As Range

Application.ScreenUpdating = False

Set ws = Worksheets("바코드생성")

With ws '//"바코드생성"시트
For Each rngC In .Range("C7", .Cells(.Rows.Count, "C").End(xlUp)) '//바코드 번호 : 각 셀을 순환

ws.Range("E3").Formula = "=Barcode(""" & rngC.Value & """)" '//바코드 생성"

ActiveSheet.Range("E3").PrintPreview '/ 각 시트 인쇄 미리보기
' ActiveSheet.PrintOut '// 각 시트를 출력
Next rngC

End With

Application.ScreenUpdating = True

End Sub