Print บิลทั้งหมดแต่เกิดข้อผิดพลาด
Posted: Mon Jun 22, 2020 1:32 pm
รบกวนอาจารย์เพื่อนสมาชิก
ช่วยดูโค๊ด ที่ดิฉัน ทำให้มาให้หน่อยค่ะ
ความต้องการคือ
ต้องการปริ้นบิลที่มีในชีต บันทึกรายการซื้อขาย ตามเลขที่บิลในช่อง A8:A2000
พอกดรันแล้วเกิดเป็นบัค ขึ้นค่ะ 4327725897252469_224922886446123285_n.png[/attachment]
ตัวอย่างโค๊ด
รบกวนช่วยดูโค๊ดให้หน่อยค่ะ พร้อมแนบไฟล์ที่เกิดปัญหามาด้วยค่ะ
ช่วยดูโค๊ด ที่ดิฉัน ทำให้มาให้หน่อยค่ะ
ความต้องการคือ
ต้องการปริ้นบิลที่มีในชีต บันทึกรายการซื้อขาย ตามเลขที่บิลในช่อง A8:A2000
พอกดรันแล้วเกิดเป็นบัค ขึ้นค่ะ 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
รบกวนช่วยดูโค๊ดให้หน่อยค่ะ พร้อมแนบไฟล์ที่เกิดปัญหามาด้วยค่ะ