กระทู้เก่าบอร์ด อ.Yeadram
924 2
URL.หัวข้อ /
URL
ออก2รายงานแต่ให้เรียงหน้าไขว้กัน
รบกวนอาจารย์ทุกท่านครับ
ผมกำลังจะออกรายงานที่มีฟิลด์จำนวน 40 กว่าฟิลด์ ซึ่งคาดการณ์ว่าจะต้องใช้กระดาษขนาด Legal แนวนอน 2 แผ่นต่อกัน จึงได้มีความคิดที่จะสร้าง รายงาน 2 รายงาน เพื่อเอามาต่อกันประมาณนี้
รายงานที่ 1 ใช้ ฟิลด์ที่ 1-25
รายงานที่ 2 ใช้ ฟิลด์ที่ 26-45
ซึ่งถ้าตีเป็นแผ่นเพื่อปริ๊นก็จะได้ประมาณตัวอย่างคือ
รายงานที่ 1 | รายงานที่ 2
|
แผ่นที่ 1 | แผ่นที่ 2
aaaa aaaa | aaaa aaaa
bbbb bbbb | bbbb bbbb
|
แผ่นที่ 3 | แผ่นที่ 4
ต่อจากแผ่นที่1 | ต่อจากแผ่นที่ 2
|
แผ่นที่ 5 | แผ่นที่ 6
ต่อจากแผ่นที่3 | ต่อจากแผ่นที่ 4
ปัญหาคือผมจะต้อง แสดงลำดับหน้าให้เขารู้และนำไปต่อกันคือ
แผ่นที่ 1 แผ่นที่ 2
Page 1 of 6 Page 2 of 6
แผ่นที่ 3 แผ่นที่ 4
Page 3 of 6 Page 4 of 6 เป็นต้น
ซึ่งมันจะต้องเรียงเลขไขว้รายงานไปมาเรื่อยๆผมจะต้องทำยังไง รบกวนทุกท่านช่วยหน่อยนะครับ หรือถ้ามีวิธีอื่นที่ดีกว่าแต่ให้ผลแบบนี้เหมือนกันก็รบกวนด้วยครับ
ผมกำลังจะออกรายงานที่มีฟิลด์จำนวน 40 กว่าฟิลด์ ซึ่งคาดการณ์ว่าจะต้องใช้กระดาษขนาด Legal แนวนอน 2 แผ่นต่อกัน จึงได้มีความคิดที่จะสร้าง รายงาน 2 รายงาน เพื่อเอามาต่อกันประมาณนี้
รายงานที่ 1 ใช้ ฟิลด์ที่ 1-25
รายงานที่ 2 ใช้ ฟิลด์ที่ 26-45
ซึ่งถ้าตีเป็นแผ่นเพื่อปริ๊นก็จะได้ประมาณตัวอย่างคือ
รายงานที่ 1 | รายงานที่ 2
|
แผ่นที่ 1 | แผ่นที่ 2
aaaa aaaa | aaaa aaaa
bbbb bbbb | bbbb bbbb
|
แผ่นที่ 3 | แผ่นที่ 4
ต่อจากแผ่นที่1 | ต่อจากแผ่นที่ 2
|
แผ่นที่ 5 | แผ่นที่ 6
ต่อจากแผ่นที่3 | ต่อจากแผ่นที่ 4
ปัญหาคือผมจะต้อง แสดงลำดับหน้าให้เขารู้และนำไปต่อกันคือ
แผ่นที่ 1 แผ่นที่ 2
Page 1 of 6 Page 2 of 6
แผ่นที่ 3 แผ่นที่ 4
Page 3 of 6 Page 4 of 6 เป็นต้น
ซึ่งมันจะต้องเรียงเลขไขว้รายงานไปมาเรื่อยๆผมจะต้องทำยังไง รบกวนทุกท่านช่วยหน่อยนะครับ หรือถ้ามีวิธีอื่นที่ดีกว่าแต่ให้ผลแบบนี้เหมือนกันก็รบกวนด้วยครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R18900
ขอบคุณมากนะครับ ที่แนะทาง ลองมั่วเองได้แล้วครับ
ที่รายงาน 1 ใช้ = "Page " & ([Page]*2)-1 & " Of " & [Pages]*2
ที่รายงาน 2 ใช้ = "Page " & [Page]+[Page] & " Of " & [Pages]*2
หลอกเรียงหน้า เพราะยังไงก็ต้องพิมพ์ออกพร้อมกันอยู่แล้วครับ ^^
ที่รายงาน 1 ใช้ = "Page " & ([Page]*2)-1 & " Of " & [Pages]*2
ที่รายงาน 2 ใช้ = "Page " & [Page]+[Page] & " Of " & [Pages]*2
หลอกเรียงหน้า เพราะยังไงก็ต้องพิมพ์ออกพร้อมกันอยู่แล้วครับ ^^
Time: 0.1918s
Event > On Print
เฉพาะ หน้าคู่
'----------------Start Code----------------
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me.Page Mod 2 = 1 Then
...
End If
End Sub
'-----------------End Code-----------------
เฉพาะ หน้าคี่
'----------------Start Code----------------
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me.Page Mod 2 = 0 Then
...
End If
End Sub