ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Sub Prword
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Program Files\DumP\DATA\doc\คำขอไถ่ถอน.doc")
wdApp.Activate
Set wdApp = Nothing
End sub
Bafnet wrote: อาจารย์ครับแล้วถ้าสั่งพิมพ์ไฟล์ Pdf เขียนคำสั่งอย่างไรครับ และการตั้งค่า References ต้องเลือกตัวไหนครับ
ผมเข้าไปดู เห็นมีอยู่ 4-5 ตัว
อ่านแล้วยังไม่เคลียร์ครับ สั่งพิมพ์จาก Word Version ไหนครับเห็นไฟล์เป็นนามสกุล .doc สำหรับการสั่งพิมพ์เป็น PDF นั้นสามารถทำได้ 3 แบบเป็นอย่างน้อย
งานที่กำลังทำอยู่ มีเมนูสำหรับจัดทำสัญญาเงินกู้ ซึ่งเมื่อก่อนผมต้องนั่งสร้างเอกสารใหม่ใน Excell ทั้งเอกสารsnasui wrote:จากที่เล่ามาเมื่อให้ผู้ใช้เลือกพิมพ์เองแล้วไม่ทราบว่าต้องการเขียน Code ให้พิมพ์เองจังหวะไหน หรือว่าเป็นคนละคำถามแยกจากกัน
Code: Select all
Set wdDoc = wdApp.Documents.Open("C:\Program Files\DumP\DATA\doc\คำขอไถ่ถอน.doc")
wdApp.PrintPreviewแก้ไขตำแหน่ง"C:\Program Files\DumP\DATA\doc\Test.pdf"Bafnet wrote:เช่นมี Test.pdf ที่ตำแน่ง("C:\Program Files\DumP\DATA\doc\คำขอไถ่ถอน.doc")
ลืมชี้แจงครับขออภัยsnasui wrote:สั่งพิมพ์จาก Word Version ไหนครับเห็นไฟล์เป็นนามสกุล .doc
Bafnet wrote:หากระบุหน้าที่จะพิมพ์ได้ หรืออย่างน้อยก็โชว์หน้าPrintPreview ก็คงดี
Bafnet wrote:ส่วนเรื่อง Pdf ผมคงอธิบายผิดไป ความต้องการคือลักษณะเดียวกันกับการสั่งพิมพ์ Word ครับ
เช่นมี Test.pdf ที่ตำแน่ง("C:\Program Files\DumP\DATA\doc\คำขอไถ่ถอน.doc")
แล้วต้องการสั่งพิมพ์
(ไม่ใช่สั่งพิมพ์ excell เป็นPdf ครับ)
ที่ต้องการคำสั่งนี้เพราะปัจจุบันธนาคารเริ่มจัดทำและจัดเก็บเอกสารในรูปแบบสกุล.pdf
ตัวอย่าง Code ด้านล่างเป็นการสั่งให้พิมพ์เฉพาะหน้าที่ต้องการครับ ลองประยุกต์ใช้ดูครับBafnet wrote:แต่ติดปัญหาที่ว่า เอกสาร Word มีหน้าที่ไม่ต้องการอยู่ ซึ่งผมพยายามลบเนื้อหาจนเป็นหน้าว่างเปล่า
แต่จำนวนหน้าเอกสารก็ไม่ลดลง พอPrintPreview หน้าว่างก็ยังคงปรากฎซึ่งผมก็ไม่เข้าใจ Word
จะกำหนดพื้นที่พิมพ์เหมือนในเอ็กเซลก็หาไม่เจอ ครั้นจะสั่งPrintOut ก็จะได้หน้าที่ไม่ต้องการมาด้วย
Code: Select all
Sub OpenWordPrintAndClose()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("D:\Test.doc")
wdApp.PrintOut Filename:="", Range:=wdPrintRangeOfPages, Copies:=1, Pages:="1,3-6,9-11"
wdApp.Quit
Set wdApp = Nothing
End Sub