Set máy in bằng VBA

[ly_hieu_thuan]

Chào cộng đồng bảng tính!
Có ai đó giúp mình code để cài set mặc định máy in như thế này:
Mình có 2 máy in: HP LaserJet 1020 và EPSON LQ 300+II
mình muốn khi in hóa đơn thì máy 2 hoạt động, khi in phiếu xuất kho thì máy 1 hoạt động.
Xin cảm ơn trước ạ!

 

[DOSNET]

Bạn thử thực hiện lệnh in và ghi lại Macro sau đó gán vào một nút in tương ứng. Chẳng hạn

Sub Print1()
    Application.ActivePrinter = "HP LaserJet 1020"
   End Sub

 

[Hai Lúa Miền Tây]

Chào cộng đồng bảng tính!
Có ai đó giúp mình code để cài set mặc định máy in như thế này:
Mình có 2 máy in: HP LaserJet 1020 và EPSON LQ 300+II
mình muốn khi in hóa đơn thì máy 2 hoạt động, khi in phiếu xuất kho thì máy 1 hoạt động.
Xin cảm ơn trước ạ!

Cho mình hỏi thêm là bạn in trên máy in được cài trên máy khác thông qua mạng nội bộ hay là trực tiếp trên máy của bạn vậy?

Bạn có thể dùng code này:

Sub Printer()
If Sheet1.Range("A1") = "HOADON" Then
Application.ActivePrinter = Sheet1.Range("B1")
ActiveSheet.PrintOut
End If
If Sheet1.Range("A1") = "PHIEUXUAT" Then
Application.ActivePrinter = Sheet1.Range("C1")
ActiveSheet.PrintOut
End If
End Sub

Bạn tham khảo thêm file nhé.
Lưu ý là in trên máy khác thì phải sửa lại cho đúng

 

[ly_hieu_thuan]

Cảm ơn hai bạn rất nhiều, mình đã làm thành công rồi!

 

[anhbatt]

Cho mình hỏi thêm là bạn in trên máy in được cài trên máy khác thông qua mạng nội bộ hay là trực tiếp trên máy của bạn vậy?

Bạn có thể dùng code này:

Sub Printer()
If Sheet1.Range("A1") = "HOADON" Then
Application.ActivePrinter = Sheet1.Range("B1")
ActiveSheet.PrintOut
End If
If Sheet1.Range("A1") = "PHIEUXUAT" Then
Application.ActivePrinter = Sheet1.Range("C1")
ActiveSheet.PrintOut
End If
End Sub

Bạn tham khảo thêm file nhé.
Lưu ý là in trên máy khác thì phải sửa lại cho đúng

Chào!
Tôi đã tải về và khi nhấn vào nút in thì nó báo lỗi ở cửa sổ VBA: "can't excute code in break mode".

 

[Hai Lúa Miền Tây]

Chào!
Tôi đã tải về và khi nhấn vào nút in thì nó báo lỗi ở cửa sổ VBA: "can't excute code in break mode".

Cho mình hỏi thêm là bạn đang sử dụng máy in nào ? Nó được cài trực tiếp trên máy hay là ở máy khác vậy bạn ?

 

[sealand]

Lệnh của Domfootwear là in trên máy Defaul (Mặc định) còn in theo chỉ định bạn tham khảo bài của mình ở đây có thể được.

Lỗi của bạn là lỗi đang Breack 1 code( Chưa dùng hẳn code) Bạn vào VBA nhấn nút hình vuông (Stop) xong hãy thử tiếp.

 

[trinhnguyen1991]

Hi Anh
Em có file như file đính kèm,em muốn kích vào nút in thì file in sẽ mặc định máy in luôn,vì 1 file in máy in lớn và 1 file in máy sticker nhỏ nên em muốn mặc định máy in luôn để sau này khi in không im nhầm máy in.
Mọi người hỗ trợ dùm em với.