แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - mookda16

หน้า: [1]
1
ปัญหาคือ เมื่อเราสั่งพิมพ์รายงานเสร็จแล้ว ไม่ว่าจะกี่หน้าในการพิมพ์ 1 ครั้งก็ตาม หรือไม่ว่าจะมีขนาดเล็กกว่ากระดาษจริงแค่ไหนก็ตาม ระบบ(ผมเข้าใจว่าเป็นระบบ Printer Manager ของตัววินโดว์เองเลย)จะสั่งให้ feed กระดาษใบสุดท้ายทิ้งไปอยู่ดี แต่ถ้าสามารถพิมพ์หลายๆหน้าในการสั่งพิมพ์ 1 ครั้ง อย่างนี้อาจพอมีโอกาสทำได้ แต่ก็น่าจะต้องแก้ตัวรายงาน และต้องให้สามารถเลือกได้ว่าจะพิมพ์เอกสารเลขที่อะไรได้บ้าง
โพสต์นี้ได้รับคำขอบคุณจาก: mookda16

2
> ออกแบบรายงาน(Report)บนขนาดกระดาษ A6
> ออกแบบรายงาน(Report)บนขนาดกระดาษ A4 แต่ให้มีเนื้อหาจริงๆแค่ครึ่งของกระดาษ A4 แนวตั้ง (ถ้ามีการทำหัวท้ายด้วยที่จบครับ :ouch:)
> รายงานเดิมสั่งปริ้นเป็น PDF > เปิดไฟล์ PDF สั่งปริ้นบนขนาดกระดาษ A6 (โปรแกรมจะทำเหมือนย่อรูปให้เอง :cool:)


คิดง่ายๆแนวคนไม่เก่งอ่านะ
โพสต์นี้ได้รับคำขอบคุณจาก: mookda16

3
ขอบคุณมากค่ะ สำหรับวิธีที่แนะนำมา ลองทำอยู่นานมาก 555+

แต่ก็สามารถงมๆ ไปได้แล้วค่ะ

ปัญหาใหม่คือ พอสั่ง print เส้นที่ออกมา บางมาก ค่ะ อยากให้มีความหนาประมาณ 1พ. ต้องกำหนดได้ที่ไหนค่ะ

ขอบคุณอีกครั้งค่ะ

จากคำสั่งเดิมแบบนี้
โค๊ด: [Select]
Private Sub Report_Page()
Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.Line (0.1, 7.4)-(0.1, 19.6)     'ลากเส้นจากตำแหน่งพิกัด 0.1 cm, 7.4 cm ไปที่พิกัด 0.1 cm, 19.6 cm
Me.Line (1.2, 7.4)-(1.2, 19.6)
Me.Line (3.1, 7.4)-(3.1, 19.6)
Me.Line (10.5, 7.4)-(10.5, 19.6)
Me.Line (12.2, 7.4)-(12.2, 19.6)
Me.Line (14.2, 7.4)-(14.2, 19.6)
Me.Line (16.2, 7.4)-(16.2, 19.6)
Me.Line (18.67, 7.4)-(18.67, 19.6)
Me.Line (0.1, 7.4)-(18.67, 7.4)
Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0.1, 19.6)-(18.67, 19.6)

End Sub
ใส่เพิ่มเป็นแบบนี้
โค๊ด: [Select]
Private Sub Report_Page()
Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.DrawStyle = vbSolid
Me.DrawWidth = 5
Me.Line (0.1, 7.4)-(0.1, 19.6)     'ลากเส้นจากตำแหน่งพิกัด 0.1 cm, 7.4 cm ไปที่พิกัด 0.1 cm, 19.6 cm
Me.Line (1.2, 7.4)-(1.2, 19.6)
Me.Line (3.1, 7.4)-(3.1, 19.6)
Me.Line (10.5, 7.4)-(10.5, 19.6)
Me.Line (12.2, 7.4)-(12.2, 19.6)
Me.Line (14.2, 7.4)-(14.2, 19.6)
Me.Line (16.2, 7.4)-(16.2, 19.6)
Me.Line (18.67, 7.4)-(18.67, 19.6)
Me.Line (0.1, 7.4)-(18.67, 7.4)
Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0.1, 19.6)-(18.67, 19.6)
Me.DrawWidth = 1
End Sub

น่าจะประมาณนี้คับ
โพสต์นี้ได้รับคำขอบคุณจาก: mookda16

หน้า: [1]