ต้องการปรินส์ตามลำดับที่สั่งครับ ด้วย vba

[Xcelvba]

Code: Select all

Sub print11111()
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

ต้องการผลลลัพธ์ ออกแบบนี้มา 3 ใบโดยพิมพ์มาจาก ลำดับที่ cell P9 -P10 ครับ

[snasui]

แนบไฟล์ที่มี Code มาด้วยครับ

ไฟล์ที่จะแนบ Code ได้อย่างน้อยจะต้องมีนามสกุลเป็น .xlsm, .xlsb ไม่ใช่ .xlsx ครับ

[Xcelvba]

แนบไฟล์ที่มี Code มาด้วยครับ

ไฟล์ที่จะแนบ Code ได้อย่างน้อยจะต้องมีนามสกุลเป็น .xlsm, .xlsb ไม่ใช่ .xlsx ครับ

ขอโทษครับ อ. แนบไฟล์ผิดครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Dim i As Integer, j As Integer
With Worksheets("Sheet1")
    For i = .Range("p9").Value To .Range("p10").Value
'            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        .PageSetup.PrintArea = .Range("g4").Offset(j, 0).Resize(7, 5).Address
        .PrintOut
        j = j + 8
    Next i
End With
'Other code

[Xcelvba]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Dim i As Integer, j As Integer
With Worksheets("Sheet1")
    For i = .Range("p9").Value To .Range("p10").Value
'            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        .PageSetup.PrintArea = .Range("g4").Offset(j, 0).Resize(7, 5).Address
        .PrintOut
        j = j + 8
    Next i
End With
'Other code

ขอบคุณครับ อ. สอบถามเพิ่มเติมครับ

Code: Select all

 .PageSetup.PrintArea = .Range("g4").Offset(j, 0).Resize(7, 5).Address

        j = j + 8

.Range("g4").Offset(j, 0).Resize(7, 5).Address ความหมายคืออะไรครับ
j = j + 8 มีไว้ทำไมครับ

[snasui]

.Range("g4").Offset(j, 0).Resize(7, 5).Address

หมายถึงให้แสดงตำแหน่งของ g4 หลังจากย้ายไปด้านล่าง j บรรทัด ไปด้านขวา 0 คอลัมน์และขยายพื้นที่เป็น 7 บรรทัด 5 คอลัมน์ครับ

j = j + 8

หมายถึงให้ปรับค่า j โดยเพิ่มไปทีละ 8 เพื่อจะนำค่า j ไปใช้ตามบรรทัดบนครับ

[Xcelvba]

.Range("g4").Offset(j, 0).Resize(7, 5).Address

หมายถึงให้แสดงตำแหน่งของ g4 หลังจากย้ายไปด้านล่าง j บรรทัด ไปด้านขวา 0 คอลัมน์และขยายพื้นที่เป็น 7 บรรทัด 5 คอลัมน์ครับ

j = j + 8

หมายถึงให้ปรับค่า j โดยเพิ่มไปทีละ 8 เพื่อจะนำค่า j ไปใช้ตามบรรทัดบนครับ

ขอบคุณครับ อ.