กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
396 6
URL.หัวข้อ /
URL
กำหนด Page Setup Properties ของรายงาน
ผมสร้างรายงาน โดยใช้ Code (เนื่องจากในการออกรายงานแต่ละครั้ง จำนวน ฟิลล์ไม่แน่นอน)
ปัญหาของผมคือ รายงานที่ได้หลัง Run Code มักเป็นแบบ Protrait ซึ่งผมต้องการให็เป็น
แบบ Lanscape (ถ้านับความยาวแต่ละ Field รวมกันแล้ว เกินแบบ Protrait)
จึงใคร่ขอเรียนถามว่าเราจะสามารถเขียน Code ให้กำหนด Page Setup Properties ของ
รายงานได้หรือไม่ ? เช่น Left/Right Margin ,Layout, Paper, ฯลฯ
ปัญหาของผมคือ รายงานที่ได้หลัง 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
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 ค่า กลับ ตามเดิม
dim Tmp1 as byte
Tmp1 = Printer.Orientation
'เลือกเอาว่าจะ print แบบไหน
Printer.Orientation = 1 '(Portrait)
Printer.Orientation = 2 '(Landscape)
Printer.Orientation = Tmp1 'set ค่า กลับ ตามเดิม
Time: 0.1211s
