2011-01-11 2 views
0

다음은 내가 가지고있는 것입니다.MSACCESS/VBA : 개체의 보고서 페이지가 끝나나요?

4 개의 주요 텍스트 상자가있는 가변 페이지 수의 보고서입니다. 페이지 수는 텍스트 상자의 텍스트 길이에 따라 에 달려 있습니다.

보고서 주위에 테두리를 그리고 텍스트 상자의 테두리를 사용하여 섹션을 구분합니다.

예 :

_____________ 
|1   | 
|    | 
|    | 
|_____________| 
|2   | 
|    | 
|    | 
|_____________| 
|3   | 
|_____________| 

문제가 어떤 경우에는, 1이 너무 긴 것, 그래서 페이지의 하단에 빈 부분이 있습니다. 그게 문제가 아니에요, 문제는이처럼 보이는 :

_____________ 
|1   | 
|    | 
|    | 
|    | 
|    | 
|    | 
|_____________| 
|    | 
|    | 
|_____________| 

나는 그것을 같이 할 때 :

_____________ 
|1   | 
|    | 
|    | 
|    | 
|    | 
|    | 
|    | 
|    | 
|    | 
|_____________| 

은 따라서 나는 page 이벤트에 일부 코드를 추가하기 위해 노력하고있어, 페이지의 마지막 텍스트 상자의 테두리를 숨기려면

문제 일단 보고서를 둘러싼 텍스트 상자를 액세스 장소로 옮기면 더 이상 수정할 수 없다는 것입니다. 아니면 틀린가요?

누구든지이 문제를 해결하는 방법에 대한 아이디어가 있습니까?

답변

0

이 방법을 사용하는 가장 쉬운 방법은 모든 라운드 경계선이 아닌 섹션 맨 위에 줄을 인쇄하는 것입니다.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 

Report.ScaleMode = 3 
lft = Report.ScaleLeft 
top = Me.MyTextbox.Top - 40 
wdt = Report.ScaleWidth 
hgt = 1 

Me.Line (lft, top)-Step(wdt, hgt), vbBlack 
End Sub 
관련 문제