Giúp code Print bằng nút bấm (1 người xem)

[congnguyen88]

Mình có hai máy in A, B mính muốn khi in chỉ cần Click vào nút bấm
- nếu click vào nút bấm có tên "in máy A " thì máy in A sẽ in từ trang 1 đến trang 1 copy =1
- nếu click vào nút bấm có tên "in máy B "thì máy in B sẽ in 1 từ trang 1đến trang 1 copy =1

Mình đang dùng đoạn code này nhưng nó chỉ in với 1 máy in mặc định

Sub inragiay()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

ai biết giúp mình với. Xin cảm ơn !

 

[mafia2003]

Mình có hai máy in A, B mính muốn khi in chỉ cần Click vào nút bấm
- nếu click vào nút bấm có tên "in máy A " thì máy in A sẽ in từ trang 1 đến trang 1 copy =1
- nếu click vào nút bấm có tên "in máy B "thì máy in B sẽ in 1 từ trang 1đến trang 1 copy =1

Mình đang dùng đoạn code này nhưng nó chỉ in với 1 máy in mặc định

Sub inragiay()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

ai biết giúp mình với. Xin cảm ơn !

Bạn sử dụng lệnh sau để set tên máy in

[COLOR=#333333]Application.ActivePrinter = "Ten_may_in"[/COLOR]