Page 1 of 1
สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 5:52 pm
by construction
เรียนสอบถาม
ผมสร้างปุ่มปริ๊นท์ที่ VBA ต้องการให้ปริ๊นท์ทันที ที่ Excel ชีตใดๆ เมื่อกดปุ่ม
- ไฟล์รูป
- 2016-10-30_17-45-33.jpg (56.95 KiB) Viewed 175 times
Code: Select all
Private Sub CommandButton1_Click()
StartUpForm.Hide
Sheet1.Activate
End Sub
Re: สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 7:30 pm
by snasui
Code สำหรับการ Print ครับ
ActiveSheet.PrintOut
Re: สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 7:37 pm
by construction
เพิ่มเติมนะครับอาจารย์ ผมลองใส่ code นี้ แต่มันต้องกดปุ่ม 2 ครั้ง ถึงจะปริ๊นท์ได้ครับ ทำไงให้กดแค่ครั้งเดียว
Code: Select all
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("build").Select
End Sub
และต้องการสั่งปริ๊นท์ชื่อ sheet ได้ครับ
ขอบคุณครับ
Re: สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 7:42 pm
by snasui
ช่วยอธิบายมาว่ากดปุ่มใดบ้างครับ
ครั้งแรกคือปุ่มใด ครั้งถัดมาคือปุ่มใด
Re: สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 7:46 pm
by construction
แบบนี้ครับ sheet 1, sheet2, sheet....... โดยไม่ต้องให้ sheet แสดง ครับ
Re: สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 7:50 pm
by snasui
ไม่เข้าใจครับ
อธิบายมาใหม่ว่าต้องการจะทำอะไร ปัญหาคืออะไร
การที่บอกว่า Print แล้วต้องกดสองปุ่มคือปุ่มใด ปุ่มที่ว่านั้นกดเพราะอะไร
หากต้องการจะกดปุ่มแล้ว Print ทุกชีตก็ให้แจ้งมาว่าต้องการ Print ทุกชีตโดยกดเพียงปุ่มเดียว เช่นนี้เป็นต้นครับ
Re: สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 7:53 pm
by construction
ต้องการให้กดปุ่ม 1 ปริ๊นท์เฉพาะ sheet 1
ต้องการให้กดปุ่ม 2 ปริ๊นท์เฉพาะ sheet 2
** ไม่ต้องการกดปุ่มเดียวปริ๊นท์ทุก sheet ครับ
***โดยไม่ต้องให้ sheet แสดง ครับ
Re: สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 8:09 pm
by snasui
ตัวอย่างการกดปุ่มแล้วให้ Print ข้อมูลใน Sheet1 ครับ
Worksheets("Sheet1").PrintOut
Re: สร้างปุ่มปริ๊นท์ VBA
Posted: Sun Oct 30, 2016 8:41 pm
by construction
ขอบคุณครับผม