Excel Forum

Code: Select all

Option Explicit
Sub PrintOutput()
Dim i As Integer
Dim a As Integer
Dim v As Integer
On Error Resume Next
v = InputBox( _
        Title:="ระบุฉบับที่เริ่ม", _
        prompt:="กรอกหมายเลขฉบับเริ่มพิมพ์")
a = InputBox( _
        Title:="ระบุฉบับสิ้นสุด", _
        prompt:="กรอกหมายเลขฉบับสุดท้ายที่ต้องการพิมพ์")
If Err = 13 Then
    MsgBox "โปรดกรอกข้อมูลทั้งฉบับที่เริ่มและฉบับที่สิ้นสุด"
    Exit Sub
End If
For i = v To a
    Range("I3") = i
    Range("I3").NumberFormat = "t000"
    Range("B2:J12").PrintOut
Next i
End Sub

Code: Select all

Sub PRIINTNUMBERELECTI()
Dim i As Integer
Dim a As Integer
Range("B4,E4,H4,K4").NumberFormat = "0000"
On Error Resume Next
a = InputBox( _
        Title:="ระบุำจำนวนฉบับ", _
        prompt:="Pls select number of copy such as 1,5,9,13,18")
If Err = 13 Then
    MsgBox "Please enter you number of copy"
    Exit Sub
End If
For i = 1 To a * 4 Step 4
    Range("B4") = i
    Range("E4") = i + 1
    Range("H4") = i + 2
    Range("K4") = i + 3
    Range("A2:L15").PrintOut
Next i
End Sub

Code: Select all

'Other code
For i = v To a
     Range("H1") = "CAM" & Application.Text(i, "000")
     Range("A1:I19").PrintOut
Next i
'Ohter code