การเขียนโปรแกรม
Visual Basic for Applications (VBA) เป็นภาษาการเขียนโปรแกรมที่ใช้กับ Microsoft Office เพื่อให้แอปพลิเคชันทำงานแบบไดนามิก ซึ่งหนึ่งในนั้นคือการเปิดและพิมพ์ไฟล์ PDF ในการดำเนินการนี้ คุณต้องมีความเข้าใจพื้นฐานเกี่ยวกับภาษา VBA และตัวแก้ไข VBA ที่มาพร้อมกับโปรแกรม Microsoft Office ทุกรุ่น รหัสนี้สามารถใช้กับแอปพลิเคชัน Microsoft Office ใดก็ได้
ขั้นตอนที่ 1
เปิดตัวแก้ไข VBA ในแอปพลิเคชัน Microsoft Office ที่คุณต้องการให้ป้อนรหัส คลิก "ไฟล์" > "เครื่องมือ" > "มาโคร" > "Visual Basic Editor" ในแอปพลิเคชันของ Microsoft Office 2003 หรือเวอร์ชันก่อนหน้า คลิกที่ "แท็บนักพัฒนา" > "Visual Basic" ใน Microsoft Office รุ่น 2007
วิดีโอประจำวันนี้
ขั้นตอนที่ 2
คลิกที่ใดก็ได้ในหน้าต่างโค้ดที่คุณต้องการแทรกโค้ด
ขั้นตอนที่ 3
เพิ่มรหัสเพื่อเปิดไฟล์ PDF รหัสของคุณควรมีลักษณะดังนี้:
Sub OpenPDF() Dim strPDFFileName As String 'Edit to add the full filename to the PDF file that you want to open strPDFFileName = "C:\examplefile.pdf" 'ต่อไปนี้ ฟังก์ชันจะตรวจสอบเพื่อดูว่าไฟล์นั้นไม่ได้เปิดอยู่หรือไม่ ถ้าไม่ใช่ FileLocked (strPDFFileName) จากนั้น 'หากคืนค่าเป็น False ให้เปิดไฟล์ PDF เอกสารต่อไป เปิด strPDFFileName) สิ้นสุดหากสิ้นสุด Sub
คัดลอกและวางรหัสนี้ลงในหน้าต่างรหัสของคุณ โค้ดส่วนเดียวที่คุณต้องเปลี่ยนคือพาธแบบเต็มไปยังไฟล์ PDF ที่คุณต้องการเปิด ดังนั้น ให้แทนที่ "C:\examplefile.pdf" ด้วยเส้นทางและชื่อไฟล์ของคุณเอง
ขั้นตอนที่ 4
เพิ่มรหัสเพื่อพิมพ์ไฟล์ PDF รหัสการพิมพ์คือ:
Sub PrintPDF (strPDFFileName เป็นสตริง) Dim sAdobeReader เป็นสตริง 'นี่คือเส้นทางแบบเต็มไปยังแอปพลิเคชัน Adobe Reader หรือ Acrobat บนคอมพิวเตอร์ของคุณ sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = เชลล์ (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) จบซับ
ส่วนเดียวของรหัสนี้ที่ต้องเปลี่ยนคือเส้นทางแบบเต็มไปยัง Adobe Reader, Acrobat หรือโปรแกรมอ่าน PDF บนคอมพิวเตอร์ของคุณ
ขั้นตอนที่ 5
ใช้ทริกเกอร์เพื่อเรียกใช้ฟังก์ชัน นี่คือวิธีที่โค้ดจะรู้ว่าต้องดำเนินการเมื่อใด ใช้ทริกเกอร์ใดก็ได้ที่คุณต้องการ แบบฟอร์ม ปุ่ม ช่องทำเครื่องหมาย หรือรายการแบบฟอร์มอื่นๆ ตัวอย่างเช่น ใช้การประกาศ "คลิก" ของปุ่ม เมื่อคลิกปุ่ม เอกสาร PDF จะเปิดขึ้นแล้วพิมพ์ รหัสมีลักษณะดังนี้:
Sub CommandButton_Click() 'เรียกใช้ฟังก์ชันเปิดก่อนเพื่อให้ PDF เปิดก่อนพิมพ์ Call OpenPDF 'ตอนนี้เรียกฟังก์ชันการพิมพ์เพื่อให้สามารถพิมพ์ PDF ได้ Call PrintPDF End Sub
เพียงคัดลอกส่วนตรงกลางของโค้ดด้านบน (ระหว่าง Sub และ End Sub) ลงในไอเท็มแบบฟอร์มและทริกเกอร์ที่คุณตัดสินใจใช้
สิ่งที่คุณต้องการ
แอปพลิเคชัน Microsoft Office
แอปพลิเคชั่นอ่าน PDF
เคล็ดลับ
หากคุณใช้เวอร์ชัน 2007 และไม่เห็นแท็บ "Developer" ให้คลิกที่ปุ่ม "Office" แล้วคลิกปุ่ม "Options" ที่ด้านล่างของเมนู คลิกที่ "แสดงแท็บนักพัฒนาซอฟต์แวร์บนริบบิ้น" แล้วคลิก "ตกลง"
