สั่งปริ้นให้อยู่ในหน้าเดียว

[mr.zatan]

ผมอยากให้ 1 แผ่นปริ้นได้ 6 อัน

ตอนนี้เป็นแบบนี้


ที่อยากให้ปริ้นได้ 6 อันแบบนี้


Code ที่ผมใช้ตอนนี้ โดยการ Print จาก validation list

Code: Select all

Sub Print_List()
  Dim strValidationRange As String
    Dim rngValidation As Range
    Dim rngDepartment As Range
     
     ' Turn off screen updating
    Application.ScreenUpdating = False
     
     ' Identify the source list of the data validation
    strValidationRange = Range("i4").Validation.Formula1
    Set rngValidation = Range(strValidationRange)
     
     ' Set the value in the selection cell to each selection in turn
     ' and print the results.
    For Each rngDepartment In rngValidation.Cells
        Range("i4").Value = rngDepartment.Value
        ActiveSheet.Printout
    Next
     
    Application.ScreenUpdating = True
End Sub

Excel สามารถทำได้ไหมครับ..

[mr.zatan]

รูปข้างบนไม่ขึ้น อัพอีกรอบ..

[snasui]

การแนบภาพให้ปฏิบัติตามกฎการใช้บอร์ดข้อ 4 ด้านบนครับ