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

[snoopy1150]

สวัสดิ์ครับทุกท่าน

คือผมมีเรื่องรบกวนคือผมลองทำ macro สั่ง Print ผ่านวงแลน ที่เครื่องของผมเองทำได้ครับ แต่พอเอางานไป print เครื่องเพื่อน กลับ print ไม่ได้ เพราะเนื่องจาก Printer ที่ผมทำไว้ใน macro ไม่ตรงกันครับ

เพราะฉนั้นมีวิธีที่ทำให้เครื่องอื่นที่เราเอาเอกสารไป print ๆ ผ่านเครื่องที่เรากำหนดไว้ได้หรือไม่ครับ

ตัวอย่าง เครื่อง Print ใน macro

เครื่องผม >>\\172.30.53.61\OKI MICROLINE 791 บน Ne06:
เครื่องเพื่อน >>\\172.30.53.61\OKI MICROLINE 791 บน Ne13:

[snasui]

ลองเปลี่ยนไปให้เลือก Printer เข้ามาแทนการ Loop หา Port หรือกำหนด Port ตามตัวอย่างด้านล่างครับ

Code: Select all

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

[snoopy1150]

ขอบคุณมาก ๆ ครับ