PDA

View Full Version : Code สั่งให้จัด Page setup และ Print Preview



Nongmod
19 Jun 2007, 16:49
ผมRecord Macro เพื่อสั่งให้จัด Page setup และ Print Previewแล้วแก้ไข Code ปรากฎว่าเมื่อสั่ง Run Macro รันได้ช้ามากๆเลยครับ ไม่ทราบว่าเกิดจากอะไรครับ
Code ตามนี้ครับ
Private Sub PrintSetup()
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

.LeftMargin = Application.InchesToPoints(0.21)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)


.Orientation = xlLandscape
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

sudawant
20 Jun 2007, 12:45
ย่อ VBE Window ให้เหลือ 1 /3 ของจอ
Step Running โดยกด F8 สังเกตผลที่เกิดขึ้นใน XLS Windows ค่ะ

ถ้าจะดีมาก กรุณาระบุว่าคุณกำหนดเงื่อนไขอะไรบ้างของการ Page Setup จะได้แนะนำให้ถูกต้อง

ตอนนี้แก้ได้เท่าที่คิดว่าน่าจะเป็น



Private Sub PrintSetup()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.21)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
End With
End Sub