รบกวนอาจารย์ ทุกท่าน ค่ะ สอบถามการ export Report to PDF ตอนนี้ใช้โค้ด นี้ อยู่ค่ะเอามาจากกระทู้ของอาจารย์ท่านนึงDim rpName As String

rpName = "rpMovement"

' สั่งเปิดรายงานเพื่อระบุเครื่องพิมพ์

DoCmd.OpenReport rpName, acViewDesign, , , acHidden



' ค้นหาเครื่องพิมพ์ที่ต้องการ

Dim prtLoop, prtSet As Printer

For Each prtLoop In Application.Printers

If prtLoop.DeviceName Like "*PDF*" Then Set prtSet = prtLoop

Next

' กำหนดเครื่องพิมพ์ที่ได้ให้เป็นเครืองพิมพ์ประจำของรายงานนั้น

Dim myRpt As Report

Set myRpt = Reports(rpName)

myRpt.Printer = prtSet



' สั่งปริ๊นท์รายงาน

DoCmd.OpenReport rpName, acViewNormal



' ระบุชื่อไฟล์และพาธสำหรับ PDF ปลายทาง

Dim PdfFileName As String

PdfFileName = "c:\documents and settings\all users\desktop\" & rpName & Format(Now(), "ddmmyyyyhhmmss")

SendKeys PdfFileName

SendKeys "{ENTER}"



' สั่งปิดรายงานและล้างหน่วยความจำ

Set myRpt = Nothing

Set prtSet = Nothing

DoCmd.Close acReport, rpName, acSaveNo

แต่ทีนี้ มันจะเป็นการเลือกเครื่องปริ้น ที่เป็น ไฟล์ PDF และจะต้องตั้งdefault เป็น ปริ้น PDF และจะติดปัญหาตรง เวลาจะปริ้นงานอื่นจะต้องมาเลือกเครื่องใหม่
อยากทราบวิธีการ export Report to PDF แบบไม่ต้องตั้งค่า default ที่เครื่องปริ้นค่ะ พอมีวิธีมั้ยค่ะ

ขอบคุณ ค่ะ