Code สั่ง Print ผ่านวงแลน

ปัญหาใช้ Macro สั่ง Print ผ่านวงแลน เมื่อนำไฟล์งานไป print เครื่องอื่น กลับ print ไม่ได้ เนื่องจาก Printer ที่กำหนดค่าไว้ Macro เป็นอีก Port แต่เครื่องที่นำไฟล์ไปใช้เป็นอีก Port ซึ่ง Port ของ Printer ไม่ตรงกัน

📑 ตัวอย่างเครื่อง Print ที่กำหนดไว้ใน Macro

เครื่องแรก >>\172.30.53.61\OKI MICROLINE 791

บน Ne06:
เครื่องที่สอง >>\172.30.53.61\OKI MICROLINE 791 บน Ne13:

ทางเลือกหนึ่งสำหรับการแก้ปัญหา เราสามารถใช้ Code กำหนดให้ผู้ใช้เลือก Printer เองแทนการ Loop หา Port หรือกำหนด Port ตามตัวอย่างด้านล่างครับ

Sub PrintOutput()
    Dim Apt As String
    If Application.Dialogs(xlDialogPrinterSetup).Show Then
        Apt = Application.ActivePrinter
    End If
    Application.ActivePrinter = Apt
    Range("A1:F35").PrintOut
End Sub

Excel Forum • แสดงกระทู้ – Code สั่ง print ผ่านวงแลน

Revised: January 29, 2017 at 06:30