Print บิลทั้งหมดแต่เกิดข้อผิดพลาด

[nongmayzaaa]

รบกวนอาจารย์เพื่อนสมาชิก
ช่วยดูโค๊ด ที่ดิฉัน ทำให้มาให้หน่อยค่ะ

ความต้องการคือ
ต้องการปริ้นบิลที่มีในชีต บันทึกรายการซื้อขาย ตามเลขที่บิลในช่อง A8:A2000

พอกดรันแล้วเกิดเป็นบัค ขึ้นค่ะ

104675349_[attachment=1]104476437_265887077852175_5129502601957606481_n.png

4327725897252469_224922886446123285_n.png[/attachment]
ตัวอย่างโค๊ด

Code: Select all

Sub export_Bill()

    Worksheets("Bill").Activate
    
    Dim path As String
    Dim i As Integer
    Dim Filename As String
    
    path = Range("Location").Value & "\"
    
    'C:\Users\Admin\OneDrive\งานบ้านปูม้า\บัญชี2563\บิลซื้อขายประจำเดือน
        For i = Range("Start").Value To Range("End").Value
        
            Range("AY6").Value = i
            
            Filename = path & Range("Ay6").Value & ".pdf"
            
            Worksheets("Bill").ExportAsFixedFormat xlTypePDF, Filename
            
        Next i
        
    MsgBox " Done "
    
End Sub

รบกวนช่วยดูโค๊ดให้หน่อยค่ะ พร้อมแนบไฟล์ที่เกิดปัญหามาด้วยค่ะ

[snasui]

Range Name ที่ชื่อว่า Location มีปัญหา แก้ไขค่านี้เสียก่อนครับ

[nongmayzaaa]

ขอบคุณอาจารย์ค่ะ ตอนนี้ ได้เป็นที่เรียบร้อยแล้วค่ะ แต่ติดตรง อยากกำหนดพื้นที่ที่จะพิมพ์Bill เลยรบกวนอาจารย์ช่วยให้อาจารย์ชี้ให้หน่อยได้ไหมค่ะ ว่าจะต้องเริ่มจากตรงไหน

ขอบคุณค่ะ

[nongmayzaaa]

อาจารย์ค่ะ ตอนนี้ได้แล้วค่ะ ขอบคุณมากค่ะ สำหรับความรู้ ที่ได้จากเพจนี้ค่ะ

ขอบคุณค่ะ