VBA EXCEL 날짜를 기준으로 인쇄 범위 설정

Question

기본적으로 매일 업데이트되며 매일 자동으로 인쇄되도록 설정할 수있는 워크 시트가 있습니다. 매주 금요일에 마지막 7 일분의 데이터 (7 일 = 마지막 행 7)를 인쇄합니다.

.vbs 매크로를 실행하는 작업 스케줄러 덕분에 자동으로 Excel 워크 시트를 열고 인쇄 한 다음 닫을 수있었습니다.

전체 워크 시트가 아닌 현재 주 데이터 만 인쇄하는 마지막 단계를이 자동화에 추가하는 방법은 무엇입니까?

그래서 내가 지정할 수있는 열 범위가 필요하고 행 범위에 대해 Excel의 오늘 기능과 함께 사용하는 것이 아마도 무엇입니까? 심지어 가능하다면.

Answer 1

항상 지난 7 행의 경우, 항상

Dim XLApp 
Dim XLWkb 
Set XLApp = CreateObject("Excel.Application") 
xlapp.visible = true 
xlapp.workbooks.open "C:\Users\User\Desktop\luboil.xlsx" 
    Dim LastRow As Long 
    Dim LastCol As Long 
     LastRow = xlapp.activeworkbook.worksheets("sheet2").Range("A" & .Rows.Count).End(xlUp).Row 
     LastCol = xlapp.activeworkbook.worksheets("sheet2").Cells(LastRow, Columns.Count).End(xlToLeft).Column 
     xlapp.activeworkbook.worksheets("sheet2").PageSetup.PrintArea = xlapp.activeworkbook.worksheets("sheet2").Range(Cells(LastRow - 7, 1), Cells(LastRow, LastCol)).Address 
xlapp.activeworkbook.worksheets("sheet2").printout 
     xlapp.activeworkbook.worksheets("sheet2").PageSetup.PrintArea = "" 
xlapp.activeworkbook.close 
xlapp.quit