กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
270 1
URL.หัวข้อ /
URL
Alternating Page Headers?
ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=AxxessXP&Number=156948&page=0&view=collapsed&sb=5&o=7&fpart=&vc=1&PHPSESSID=
ต้องการให้ Page Header ของ Report ในหน้าคู่ และหน้าคี่ต่างกัน
ลองใช้ OnFormat ของ PageHeader ดูครับ
Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
If Me.Page Mod 2 = 0 Then
Me.txtAlternateTitle = "My Even Page: " & Me.Page
Me.txtAlternateTitle.TextAlign = 1 'Left alignment
Else
Me.txtAlternateTitle = "My Odd Page: " & Me.Page
Me.txtAlternateTitle.TextAlign = 3 ' Right alignment
End If
End Sub
จากโค้ดข้างบน ผมได้ใส่ Text Box ชื่อ txtAlternateTitle ลงไป โดยให้เป็น Unbound
แล้วใส่โค้ดข้างบนลงไป ถ้าเป็นหน้าคู่ จะมีข้อความว่า
My Even Page: 2 (4, 6, 8,...)
และจัดชิดช้าย
ถ้าเป็นหน้าคี่ จะมีข้อความว่า
My Odd Page: 1 (3, 5, 7,...)
และจัดชิดขวา
ต้องการให้ Page Header ของ Report ในหน้าคู่ และหน้าคี่ต่างกัน
ลองใช้ OnFormat ของ PageHeader ดูครับ
Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
If Me.Page Mod 2 = 0 Then
Me.txtAlternateTitle = "My Even Page: " & Me.Page
Me.txtAlternateTitle.TextAlign = 1 'Left alignment
Else
Me.txtAlternateTitle = "My Odd Page: " & Me.Page
Me.txtAlternateTitle.TextAlign = 3 ' Right alignment
End If
End Sub
จากโค้ดข้างบน ผมได้ใส่ Text Box ชื่อ txtAlternateTitle ลงไป โดยให้เป็น Unbound
แล้วใส่โค้ดข้างบนลงไป ถ้าเป็นหน้าคู่ จะมีข้อความว่า
My Even Page: 2 (4, 6, 8,...)
และจัดชิดช้าย
ถ้าเป็นหน้าคี่ จะมีข้อความว่า
My Odd Page: 1 (3, 5, 7,...)
และจัดชิดขวา
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R06672
Time: 0.1169s