Snasui Excel Forum

Posted: **Wed Jan 18, 2012 11:13 am**

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

คือผมมีเรื่องรบกวนคือผมลองทำ 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:

Posted: **Wed Jan 18, 2012 7:26 pm**

ลองเปลี่ยนไปให้เลือก 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

Posted: **Thu Jan 19, 2012 8:21 am**

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

Snasui Excel Forum

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

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

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

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