Page 1 of 1
สั่งปริ้นชีทแรก เฉพาะแผ่น2-3 แต่ผลออกมาปริ้นหมดทั้งชีทครับ
Posted: Mon Jun 02, 2014 3:15 am
by djnotza
Code: Select all
Sub Button14_Click()
Application.ScreenUpdating = False
Sheets("program").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("program").Range("J1:W32").Select
Application.ScreenUpdating = True
End Sub
ผมใช้โค๊ดนี้แล้วมันปริ้นหมดทุกแผ่นเลยครับ ต้องเขียนอะไรเพิ่มเติมหรือแก้ตรงไหนครับ
Re: สั่งปริ้นชีทแรก เฉพาะแผ่น2-3 แต่ผลออกมาปริ้นหมดทั้งชีทคร
Posted: Mon Jun 02, 2014 1:11 pm
by snasui
ลองปรับ Code
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True เป็น
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=3, Copies:=1, Collate:=True ครับ
Re: สั่งปริ้นชีทแรก เฉพาะแผ่น2-3 แต่ผลออกมาปริ้นหมดทั้งชีทคร
Posted: Mon Jun 02, 2014 8:18 pm
by djnotza
ขอบคุณครับ อาจารย์