ถาม มีวิธีสั่งprintข้อมูลExcelลงกระดาษต่อเนื่องครับ

[sdmania]

ที่บริษัทผม ต้องออกใบเสร็จด้วยกระดาษต่อเนื่อง ไซส์ กว้าง7.5นิ้วxสูง5.5นิ้ว
--1 ต้องprint กระดาษต่อเนื่อง เป็นฟอร์มเปล่า(ตารางข้อมูลเปล่าๆ คล้ายๆบิลเงินสดเปล่าๆครับ)มา
--2 ขั้นตอนนี้จะพิมพ์เลขใบเสร็จลงในกระดาษต่อเนื่องที่มีฟอร์มเปล่าแล้ว
ในไฟล์ตัวอย่าง sheet-run เป็นตัวกำหนดหมายเลขใบเสร็จครับ เลขรันต่อเนื่องได้เลย
ในsheet- p run ผมต้องกะกระดาษให้พอดีกับเลขที่จะprintน่ะครับ


จะมาขอวิธี printเลขใบเสร็จ ให้มันอยู่แค่หน้าเดียวแต่หมายเลขรันต่อไปเรื่อยๆได้ไหมครับ ไม่ต้องยาวเป็นร้อยหน้าอย่างในsheet-p run ได้ไหมครับ

[snasui]

การทำเช่นนั้นคงต้องใช้ Macro เข้ามาช่วย ลองใช้ Code ตามด้านล่างและดูไฟล์แนบประกอบครับ

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("Run")
    Set rMin = .Range("F1")
    Set rMax = .Range("F101")
End With
Set rRun = Worksheets("P RUN").Range("H1")
Worksheets("P RUN").PageSetup.PrintArea = "$A$1:$H$33"
For i = rMin To rMax Step 3
    rRun = i
    Worksheets("P RUN").PrintOut
Next i
End Sub