กระทู้เก่าบอร์ด อ.Yeadram
1,046 3
URL.หัวข้อ /
URL
set Report SIZE on MDE
ปกติ Report ตอนทดลองทำใน MDB ก็ทำ ตั้งซ้าย ขวา ขนาดกระดาษ ชนิด Printerจนได้ขนาดที่พอใจ หลังจากนั้น ทำเป็น MDE ไปใช้อีกเครื่อง ผลคือ Printer อาจจะคนละตัว กั้นซ้าย กั้นขวา อาจจะไม่พอดี แต่ปรับได้ในช่วง Previews ประเด็นคือเมื่อปิด Program แล้วเปิดมาใหม่ ก็ต้องทำใหม่ มันไม่จำค่าเดิมไว้ ทำอย่างไรให้มันจำค่าเดิมในช่วง Previews ไว้ครับ ไม่งั้นต้องทำทุกรอบ เหนือยครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R21356
.Orientation = acPRORLandscape
ผมจะให้เลือกว่าจะ acPRORLandscape หรือ acPRORPortrait
โดยรับค่าจาก Form แต่มันไม่ใช่ String ผมจะรู้ได้งัยครับว่าผมเป็น Datatype อะไร
ผมจะให้เลือกว่าจะ acPRORLandscape หรือ acPRORPortrait
โดยรับค่าจาก Form แต่มันไม่ใช่ String ผมจะรู้ได้งัยครับว่าผมเป็น Datatype อะไร
3 @R21357
acPRORLandscape = 2
acPRORPortrait = 1
แต่ใส่คำนั่นไปเลยก็ได้ครับ เพราะเป็นค่าคงที่ที่กำหนดโดยไลบรารี่ของตัว Access เองอยู่แล้ว มันจะทราบครับ
acPRORPortrait = 1
แต่ใส่คำนั่นไปเลยก็ได้ครับ เพราะเป็นค่าคงที่ที่กำหนดโดยไลบรารี่ของตัว Access เองอยู่แล้ว มันจะทราบครับ
Time: 0.3093s
ค่าในหน่วย twip มีค่าการเทียบเท่าคือ 1440 twip=1 นิ้ว หรือ 567 twip=1 ซม.
Private Sub xxxxxx()
Const cRepNM = "ชื่อรายงาน"
Dim oPrinter As Printer
' กำหนดคุณสมบัติของเครื่องพิมพ์
Set oPrinter = Application.Printers(Application.Printer.DeviceName)
With oPrinter
.TopMargin = ค่าในหน่วย twip
.BottomMargin = ค่าในหน่วย twip
.RightMargin = ค่าในหน่วย twip
.LeftMargin = ค่าในหน่วย twip
End With
With DoCmd
.OpenReport cRepNM, acViewPreview
Reports(cRepNM).Printer = oPrinter ' เลือกเครื่องพิมพ์ที่ถูกแก้ไขคุณสมบัติให้มาใช้กับรายงาน
.PrintOut ' สั่งพิมพ์
.Close acReport, cRepNM
End With
End Sub