은 날짜 값을 기준으로 VBA 인쇄 행을 비교합니다.

Question

데이터 날짜를 기반으로 Patrol이라는 시트에서 보고서를 인쇄하려고합니다.

범위 A1은 다른 날짜를 포함하지만, 나는 단지 첫 번째 행과 행의 데이터를 인쇄 할 =에 (날짜 + 1) 즉, 내일 날짜입니다. 각 행에 대해

(다음날 배달 세부 사항을 인쇄하려면) 날짜와 다른 16 개의 셀이 있습니다. 아래 코드는 표 머리글 만 인쇄하고 있습니다.

Private Sub Comprintpatrol_Click() 

    Range("A1").AutoFilter Field:=1, Criteria1:=Format(Date + 1, Range("A2").NumberFormatLocal) 
    ActiveSheet.PrintOut 
    ' or 
    Range("A1").CurrentRegion.PrintOut 
    Range("A1").AutoFilter 
End Sub 

어떤 아이디어입니까?

Answer 1

"범위 A1에 다른 날짜가 포함되어 있습니다."라는 말을들은 것 같습니다. 나는 당신이 "열 A에 다른 날짜를 포함하고있다"고 생각합니다. Range("A:A")

Answer 2

당신도 시도해 볼 수도 있습니다 : "A A"당신은 문자열을 전달하여 범위 함수에서 열 A를 얻을 수

(범위 A1은 하나의 셀은, 왼쪽 시트의 셀입니다) CurrentRegion 대신 UsedRange입니다. 후자는 데이터가 어떻게 설정되는지에 달려 있기 때문에 까다로울 수 있습니다 (특히 빈 셀이있는 경우). 같은

뭔가 :

Private Sub Comprintpatrol_Click() 
    Range("A1").AutoFilter Field:=1, Criteria1:=Format(Date + 1, Range("A2").NumberFormatLocal) 
    ActiveSheet.PrintOut 
    ' or 
    ActiveSheet.UsedRange.PrintOut 
    Range("A1").AutoFilter 
End Sub