Page 1 of 1
สั่งprint ต่อเนื่อง
Posted: Wed Jun 26, 2013 11:37 pm
by Hermez
ผมอยากให้มันสามารถ สั่งprint ต่อเนื่อง ในsheet "Pay_slip"
ให้ตัวเลขมันรันไปเรื่อยๆ ในช่อง F4 และ F31
โดยอิงจากตัวเลขจาก sheet "pivot" ตั้งแต่A4:A15
ขอบคุณครับ
Re: สั่งprint ต่อเนื่อง
Posted: Thu Jun 27, 2013 6:40 am
by snasui
การทำเช่นนั้นต้องอาศัย VBA สั่งให้ทำงานซึ่งต้องเขียนมาก่อนตามกฎข้อ 5 ด้่านบน ติดตรงไหนสามารถถามมาได้เรื่อย ๆ ครับ
Re: สั่งprint ต่อเนื่อง
Posted: Thu Jun 27, 2013 11:39 am
by 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
Re: สั่งprint ต่อเนื่อง
Posted: Thu Jun 27, 2013 11:43 am
by snasui
แนบไฟล์ทีได้เพิ่ม Code ไว้เรียบร้อยแล้วมาด้วยและช่วยแจ้งด้วยว่าติดที่บรรทัดใดครับ
TEST.xlsx