สร้างปุ่ม Export PDF แบบเลือกที่อยู่

[Eik Q Sang]

ผมสร้างปุ่ม ไว้ที่ฟอร์ม ต้องการให้ เมื่อกดปุ่มแล้ว Export มาเป็น PDF โดยสามารถเลือกที่อยู่ที่จะ Save และเปลี่ยนชื่อไฟล์ที่จะ Save ได้ครับ

Report ผมชื่อ rptSugarOrder

ผมลองเขียนโค้ดด้านล่างนี้ แต่พอกดปุ่ม ระบบจะให้เลือกที่อยู่ที่ต้องการ Save พอผมลองกด Cancel มัน Error นะครับ ต้องแก้ไขโค้ดอย่างไรบ้างครับ

Private Sub Command13_Click()
DoCmd.OutputTo acOutputReport, "rptSugarOrder", _
acFormatPDF, ""
End Sub


ขอบคุณมากครับผม

[nonc31]

Private Sub Command13_Click()
On Error Resume Next
DoCmd.OutputTo acOutputReport, "rptSugarOrder", _
acFormatPDF, ""
End Sub

[Eik Q Sang]

ขอบคุณมากครับผม