กำหนด Page Setup Properties ของรายงาน
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 332   6
URL.หัวข้อ / URL
กำหนด Page Setup Properties ของรายงาน

ผมสร้างรายงาน โดยใช้ Code (เนื่องจากในการออกรายงานแต่ละครั้ง จำนวน ฟิลล์ไม่แน่นอน) 
   ปัญหาของผมคือ รายงานที่ได้หลัง Run Code มักเป็นแบบ Protrait ซึ่งผมต้องการให็เป็น 
แบบ Lanscape (ถ้านับความยาวแต่ละ Field รวมกันแล้ว เกินแบบ Protrait) 
   จึงใคร่ขอเรียนถามว่าเราจะสามารถเขียน Code ให้กำหนด Page Setup Properties ของ 
รายงานได้หรือไม่ ?  เช่น Left/Right  Margin ,Layout, Paper, ฯลฯ

6 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01320
ใช้วิธี ไปที่ MENU หลักแล้วกำหนด FILE,PRINT.SETUP แล้วกำหนดกระดาษได้ตามต้องการเลยค่ะ
2 @R01321
แบบนี้ผมทราบครับ แต่ต้องการกำหนดจาก Code เลย คือหลังจากที่มัน Gen Report เสร็จ ก็วัดขนาดว่าควรใช้แบบ Protrait หรือ Lanscape ก็สั่งให้ เปิด Report ที่สร้างขึ้นพร้อม กำหนดค่า Page Setup นะครับ
3 @R01332
ผมขอเสนอแนวคิดแบบลูกทุ่งๆ นะครับ 1.ออกแบบ report ไว้ทั้ง 2 แบบ 2.ออกแบบ Qurey สำหรับ Data Source 3.ที่ even ของปุ่มสั่งพิมพ์ ก็ใช้เงื่อนไขเช็ค field อีกที สำหรับ Code ตามแนวคิดคุณต้องรอ อ.สุภาพ นะครับ
4 @R01341
ตกลงว่า มีวิธีที่จะสั่ง Page Setup Properties โดยใช้ Code ได้หรือไม่? อ.สุภาพ อยู่ใหนครับ
5 @R01344
1. สร้าง Macro ชื่อ PrintMenu กำหนดเงิ่อนไขข้างล่าง
Macro Name Condition Action
AddMenu เลือก Menu Name &Print
MenuMacroName PrintMenu_File

2. สร้าง Macro ชื่อ PrintMenu_File กำหนดเงิ่อนไขข้างล่าง
Macro Name Condition Action
Page Set&up... RunCommand เลือก PageSetup
Print Pre&view RunCommand เลือก PrintPreview
&Print... RunCommand เลือก Print
-
&Close RunCommand เลือก Close

3.ที่รายงานช่อง MenuBar พิมพ์ PrintMenu
ใช้ได้หรือไม่รบกวนช่วย Mail มาบอกด้วยนะครับ
viewcs@loxinfo.co.th *** Edited by Supap Chaiya *** 17/4/2546 20:12:00
6 @R02380
เอา code นี้ไปใช้ครับ
dim Tmp1 as byte
Tmp1 = Printer.Orientation

'เลือกเอาว่าจะ print แบบไหน
Printer.Orientation = 1 '(Portrait)
Printer.Orientation = 2 '(Landscape)

Printer.Orientation = Tmp1 'set ค่า กลับ ตามเดิม
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0727s