Snasui Excel Forum

Sub Macro1()
Dim Ans
'Ans = MsgBox("ต้องการพิมพ์ออกทางเครื่องพิมพ์ ? " & Application.ActivePrinter, vbYesNo + vbDefaultButton1)
'Ans = MsgBox("ต้องการพิมพ์ออกทางเครื่องพิมพ์ ? ", vbYesNo + vbDefaultButton1)
'If Ans = vbYes Then
'==================================================
'Run "CountPageToprint"
Dim Page, N
On Error Resume Next
Sheets("Sheet1").Select
Application.Dialogs(xlDialogPrinterSetup).Show
Page = Val(InputBox("ระบุจำนวนที่ต้องการพิมพ์" _
+ vbLf + " " _
+ vbLf + "Printer => " & Application.ActivePrinter, " Expire Report", 1))
If Page >= 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=Page, Collate:=True
'Sheets("Menu").Select
End If
Sheets("Menu").Select

End Sub


อยากไห้สั่งแล้วสามารถปริ้น Sheet2 ออกมาด้วยครับ โดยสั่งปริ้นแค่ครั้งเดียว ออกทั้ง Sheet1 และ Sheet2

กรุณาแนบไฟล์ตัวอย่างพร้อม Code มาด้วยจะได้สะดวกในการตอบของอเพื่อนสมาชิกครับ

การโพสต์ Code ควรทำให้เป็นรูปแบบตัวอักษรแบบ Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ