เรียนผู้รู้ทุกท่าน
     เนื่องจากผมมีไฟล์ใบสั่งซื้อ ที่ต้อง upload เป็น pdf ส่งขึ้น web ซึ่งผมได้ทำ report ไว้แล้ว และใช้ตัว CutePdf ในการส่งออกเป็น pdf แต่มีความต้องการว่าอยากให้ โปรแกรมส่งไฟล์ออกอัตโนมัติ และ save เป็นชื่อเลขที่ใบสั่งซื้อโดยไม่ต้องถามและไม่ต้องใส่ชื่อไฟล์ใหม่ ผมได้ลองค้นกระทู้เก่า ๆ ดู คือทางอาจารย์ได้แนะนำการใช้ sendkeys ส่งชื่อไฟล์และ path ไป แต่ผมลองเอามาปรับแล้ว
โดยสร้างฟอร์มชื่อ MIDDLE_PO และมี Text0 เพื่อรับเลขที่ PO สำหรับ Report ก็ชื่อ MIDDLE_PO
ปรากฏว่า โค๊ดที่เขียน โปรแกรมยังถามหาชื่อไฟล์อยู่ครับ แต่พอทำหลาย ๆ ครั้ง (ประมาณ 4-5 ครั้ง) มันก็ save อัตโนมัติให้ แล้วก็บางครั้งมันให้ปุ่ม Numlock ใช้งานไม่ได้ แล้วบางครั้งก็ขึ้นมาถามให้ save หลายครั้ง ไม่แน่ใจว่าเกิดอะไรขึ้นครับ โดยผมเขียนไว้อย่างนี้ครับ

' ระบุชื่อรายงาน
Dim rpName As String
rpName = Forms!MIDDLE_PO!Text0

'สั่งprint รายงาน
DoCmd.OpenReport "MIDDLE_PO", acViewNormal, , , acHidden

' ระบุชื่อไฟล์และพาธสำหรับ pdf ปลายทาง
Dim PdfFileName As String
PdfFileName = "c:\PO\" & rpName

SendKeys PdfFileName
SendKeys "{ENTER}"

DoCmd.Close acReport, rpName, acSaveNo