[VBA] 프린트 영역설정

  보통 프린트 영역을 설정할때는 영역뒤에 PrintPreview를 붙히거나 아님 바로 인쇄하는 PrintOut을 사용한다.

이럴게 할 경우 프린트 대화창을 이용못한다는 단점이 생겨버린다. 

이번 코드는 프린트 영역을 설정한 후 SendKeys를 사용하여 프린트 대화창까지 불러오는 코드를 만들어 보았다.

크게 어렵지 않으니 한번 보고 기억해 두길 바란다.

 

Option Explicit

Sub 프린트영역()

    ActiveSheet.PageSetup.PrintArea = [a3].CurrentRegion.Address
   '= [a3]영역과 연속한 영역을 프린트 영역으로 설정해라
   '= [a3].CurrentRegion.Address - Address을 안쓰면 오류 발생

    SendKeys "%f"   '= alt + f
    SendKeys "pv"   '= p + v

End Sub

프린트 영역 설정하기.xlsm

0.05MB