สั่งปริ้นด้วย VBA อยากไห้เลือกเครื่องปริ้นกับจำรวนชุดได้

[babyminds]

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("P1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("P2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("FX").Select
    Range("F12").Select
End Sub

อยากเพิ่ม Popup ไห้เลือกเครื่องปริ้น กับใส่จำนวนชุดครับ โดย 1 ชุด จะมี 2 ชีท

Test.xlsb

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Application.Dialogs(xlDialogPrinterSetup).Show
    Sheets("P1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=InputBox("Enter copies"), Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("P2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=InputBox("Enter copies"), Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("FX").Select
    Range("F12").Select
End Sub