สั่งprint ต่อเนื่อง

[Hermez]

ผมอยากให้มันสามารถ สั่งprint ต่อเนื่อง ในsheet "Pay_slip"
ให้ตัวเลขมันรันไปเรื่อยๆ ในช่อง F4 และ F31
โดยอิงจากตัวเลขจาก sheet "pivot" ตั้งแต่A4:A15

ขอบคุณครับ

TEST.xlsx

(30.65 KiB) Downloaded 16 times

[snasui]

การทำเช่นนั้นต้องอาศัย VBA สั่งให้ทำงานซึ่งต้องเขียนมาก่อนตามกฎข้อ 5 ด้่านบน ติดตรงไหนสามารถถามมาได้เรื่อย ๆ ครับ

[Hermez]

เท่าที่ลองดูทำได้ประมาณไปต่อไม่ได้แล้วอ่ะครับ
รบกวนชี้แนะด้วยครับ

Code: Select all

Option Explicit

Sub RunNoAndPrint()
Dim i As Long
Dim rMin As Range
Dim rMax As Range
Dim rRun As Range
With Worksheets("pivot")
    Set rMin = .Range("A4")
    Set rMax = .Range("A15")
End With
Set rRun = Worksheets("Pay_slip").Range("F4")
Worksheets("Pay_slip").PageSetup.PrintArea = "$A$1:$F$50"
For i = rMin To rMax Step 3
    rRun = i
    Worksheets("Pay_slip").PrintOut
Next i
End Sub

[snasui]

แนบไฟล์ทีได้เพิ่ม Code ไว้เรียบร้อยแล้วมาด้วยและช่วยแจ้งด้วยว่าติดที่บรรทัดใดครับ