- ใช้ ร่วมกับโปรแกรมPDF Creater ทั้งหลาย ซึ่งมีทั้ง Freeware และเสียตังค์ หรือ Adobe Acrobate Pro

ทำได้ครับผม แต่ว่า งานนี้คงต้องมีค่าขนมบ้าง

มีวิธีที่ด้วย access แบบไม่ต้องเสียเงินไหมครับ

อยากรู้เหมือนกันครับ มีวิธีทำโดย access แบบไม่ต้องเสียเงินไหมครับ

ติดตั้งปริ๋นท์เตอร์จำลองเข้าไปครับ
มีของฟรีเยอะแยะเลย
มันจำลองตัวเองเป็นปริ๋นท์เตอร์ครับ จริงๆ คือมันทำหน้าที่ สร้างไฟล์ pdf นั่นแหละครับ

เวลาใช้งานก็คือ สั่งปริ๋นท์รายงานออกที่เครื่องปริ๋นท์เครื่องนั้นเลย มันก็จะถามว่า save ที่ไหน คุณตั้งชื่อมันบอกที่อยู่ให้มันได้เลย
ไม่จำเป็นต้อง access ด้วย ปริ่นท์เอกสารได้ทุกชนิด หน้าเว็บ เอกสารเวิร์ด เอ็กเซล หรือรูปภาพ ก็ได้ครับ

เคยมีกระทู้เก่าๆ อ.สันติสุข เอามาแนะนำก็มีหลายตัว
ที่ผมใช้อยู่ก็สองปีกว่าๆ มาแล้ว CutePDF หาได้ฟรี ตาม internet ครับ

หากจะต้องการเขียนเป็นโค้ด ก็เขียนเหมือนกัน กับการสั่งปริ๊นท์ออกเครื่องจริงนั่นแหละครับ แม้มันจะเป็นเพียง ปริ๊นท์เตอร์จำลอง หรือปริ๊นท์เตอร์เสมือนก็เหอะ

วิธีสั่งปริ้นแบบเลือกเครื่องปริ้น ที่เป็นตัวสร้าง PDF
จะต้องเขียนโค้ดยังไงครับ รบกวนด้วยครับ

window ผมเปลี่ยนฮาร์ดแวร์ใหม่ๆ หลายตัวเลยเพิ่งลง วินโดวส์ใหม่
ยังไม่ได้ลงชุดโปรแกรมออฟฟิศเลย ถ้าท่านอื่นยังไม่ตอบ เดี๋ยวผมของลงออฟฟิศก่อน แล้วจะลองใช้คำสั่งดู คือคำถามข้อนี้ผมจำคำสั่งได้ไม่แม่นต้องของลองดูก่อนค่อยกล้าตอบ

แต่ไม่แน่ ท่านอื่นๆ อาจจะตอบให้ก่อนผมก็ได้
หรือ
ลองค้นดูในกระทู้ต่างๆ จากเว็บบอร์ดเก่าของ อ.สุภาพ ไชยา หรือยังครับ ผมคุ้นๆ ว่าเคยเห็นตัวอย่างคำสั่งนะครับ

- รายงานชื่อ rpMovement
- รายงานได้เปิดอยู่ ก่อนที่จะรันโค้ดนี้
- ปริ๊นท์เตอร์ชื่อ CutePDF Writer
- ต้องการปริ๊นท์เฉพาะหน้าแรกหน้าเดียว
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("rpMovement")
myRpt.Printer = prtSet

' สั่งปริ๊นท์หน้าแรกหน้าเดียว
DoCmd.PrintOut , 1, 1, acMedium, 1

' ปริ๊นท์เตอร์ CutePDF Writer จะถามว่าต้องการเซฟชื่อไฟล์PDF ว่าอะไร
' ให้เราระบุทั้งชื่อและ พาธให้มันได้เลย
Dim PdfFileName As String
PdfFileName = "c:\documents and settings\all users\desktop\" & myRpt.Name & Format(Now(), "ddmmyyyyhhmmss")

SendKeys PdfFileName
SendKeys "{ENTER}"
' ล้างหน่วยความจำ
set myRpt=nothing
set prtSet=nothing

-รายงานชื่อ rpMovement
-ปริ๊นท์เตอร์ชื่อ CutePDF Writer
-รายงานยังไม่ได้เปิดยังไม่ได้ถูกเรียกใช้มาก่อน
-ต้องการปริ๊นท์เป็น PDF ไฟล์ บันทึกด้วยชื่อรายงานตามด้วยวันเวลา เอาไว้ที่หน้า Desktop
-ต้องการปริ๊นท์ทั้งหมด ไม่ระบุเลขหน้า จำนวนหน้า
-ไม่ต้องการดูหน้าจอ ทั้งก่อนและหลังการพิมพ์
' ระบุชื่อรายงาน
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