สร้างปุ่มปริ๊นท์ VBA

[construction]

เรียนสอบถาม
ผมสร้างปุ่มปริ๊นท์ที่ VBA ต้องการให้ปริ๊นท์ทันที ที่ Excel ชีตใดๆ เมื่อกดปุ่ม

ไฟล์รูป

2016-10-30_17-45-33.jpg (56.95 KiB) Viewed 164 times

Code: Select all

Private Sub CommandButton1_Click()
  StartUpForm.Hide
  Sheet1.Activate
End Sub

[snasui]

Code สำหรับการ Print ครับ

ActiveSheet.PrintOut

[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 ได้ครับ

ขอบคุณครับ

[snasui]

ช่วยอธิบายมาว่ากดปุ่มใดบ้างครับ

ครั้งแรกคือปุ่มใด ครั้งถัดมาคือปุ่มใด

[construction]

แบบนี้ครับ sheet 1, sheet2, sheet....... โดยไม่ต้องให้ sheet แสดง ครับ

[snasui]

ไม่เข้าใจครับ

อธิบายมาใหม่ว่าต้องการจะทำอะไร ปัญหาคืออะไร

การที่บอกว่า Print แล้วต้องกดสองปุ่มคือปุ่มใด ปุ่มที่ว่านั้นกดเพราะอะไร

หากต้องการจะกดปุ่มแล้ว Print ทุกชีตก็ให้แจ้งมาว่าต้องการ Print ทุกชีตโดยกดเพียงปุ่มเดียว เช่นนี้เป็นต้นครับ

[construction]

ต้องการให้กดปุ่ม 1 ปริ๊นท์เฉพาะ sheet 1
ต้องการให้กดปุ่ม 2 ปริ๊นท์เฉพาะ sheet 2
** ไม่ต้องการกดปุ่มเดียวปริ๊นท์ทุก sheet ครับ
***โดยไม่ต้องให้ sheet แสดง ครับ

[snasui]

ตัวอย่างการกดปุ่มแล้วให้ Print ข้อมูลใน Sheet1 ครับ

Worksheets("Sheet1").PrintOut

[construction]

ขอบคุณครับผม