Tìm và quản lý máy in (1 người xem)

[xkun2001]

2 all,
Mình không rành VBA lắm, nhờ các bạn viết giúp mình đoạn mã:
- tìm kiếm danh sách các máy in đã cài trong máy và cả mạng LAN
- thể hiện trạng thái từng máy (online, offline)
- set default cho 1 máy.

Cám ơn các bạn!

 

[Nhím xù lông F1]

2 all,
Mình không rành VBA lắm, nhờ các bạn viết giúp mình đoạn mã:
- tìm kiếm danh sách các máy in đã cài trong máy và cả mạng LAN
- thể hiện trạng thái từng máy (online, offline)
- set default cho 1 máy.

Cám ơn các bạn!

Sao phải phức tạp như vậy, trong máy tính của bạn đã tích hợp sẵn chức năng đó rồi mà.

 

[xkun2001]

Sao phải phức tạp như vậy, trong máy tính của bạn đã tích hợp sẵn chức năng đó rồi mà.

Vì mình đang viết 1 đoạn lệnh in nhanh nên cần đoạn mã này. Các bạn giúp mình với!

 

[hosibien]

Bạn có thể đưa code bạn viết lên cho mọi người cùng thảo luận và giúp bạn

 

[vodoi2x]

Vì mình đang viết 1 đoạn lệnh in nhanh nên cần đoạn mã này. Các bạn giúp mình với!

bạn nên đơn giản hóa đí, in nhanh theo máy in mặc định,
Hoặc hiện hộp thoại IN cho người dùng tự chọn các thiết lập máy in

 

[buocduongcung]

Ctrl+P đã liệt kê hết tất cả máy in trong mạng rồi đó bạn

 

[xkun2001]

Là vì mình hay gặp phải tình huống như thế này:
- Bình thường mình in Đen Trắng qua mạng Lan, máy in được share ở một máy tính khác - tạm gọi là máy M1 (máy in này đặt default).
- Thỉnh thoảng mình in màu, cũng qua mạng LAN, máy in được share ở máy tính M2.
- Đôi khi máy M1 chưa bật hoặc bị hỏng; lúc này muốn in mình phải kéo dây cáp máy in từ máy M1 cắm vào máy mình để in. ->> Lúc này nếu phát lệnh in nhanh với máy in mặc định sẽ không in được >> Mình muốn đoạn mã tự check máy in là vì vậy. Cụ thể trường hợp này đoạn mã sẽ chọn in từ máy in nối với máy tính của mình chứ không phải máy in share qua mạng LAN nữa.

Hì, mình dốt văn nên viết lủng củng wa' hi vọng các bạn hiểu và giúp được mình!

Thank all.

 

[xkun2001]

Ctrl+P đã liệt kê hết tất cả máy in trong mạng rồi đó bạn

Mình muốn đoạn mã tự chọn máy in để 1 click là ăn luôn bạn a`

 

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

Là vì mình hay gặp phải tình huống như thế này:
- Bình thường mình in Đen Trắng qua mạng Lan, máy in được share ở một máy tính khác - tạm gọi là máy M1 (máy in này đặt default).
- Thỉnh thoảng mình in màu, cũng qua mạng LAN, máy in được share ở máy tính M2.
- Đôi khi máy M1 chưa bật hoặc bị hỏng; lúc này muốn in mình phải kéo dây cáp máy in từ máy M1 cắm vào máy mình để in. ->> Lúc này nếu phát lệnh in nhanh với máy in mặc định sẽ không in được >> Mình muốn đoạn mã tự check máy in là vì vậy. Cụ thể trường hợp này đoạn mã sẽ chọn in từ máy in nối với máy tính của mình chứ không phải máy in share qua mạng LAN nữa.

Hì, mình dốt văn nên viết lủng củng wa' hi vọng các bạn hiểu và giúp được mình!

Thank all.

Set máy in lại khi bắt đầu in:

Application.Dialogs(xlDialogPrinterSetup).Show

 

[xkun2001]

Set máy in lại khi bắt đầu in:

Application.Dialogs(xlDialogPrinterSetup).Show

Dùng lệnh của bạn sẽ xuất hiện danh sách các máy in đã cài, nhưng không biết được trạng thái của mỗi máy in - online hay ofline. Bạn có cách nào khác không?

 

[xkun2001]

Mình thấy trang "print" của office 2010 làm việc này rất tốt:

không biết VBA trong excel 2003 có làm được như thế không nhỉ?

 

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

Bạn vào trang sau xem thử nhé
http://www.mrexcel.com/forum/showthread.php?362766-VBA-sub-to-list-printers-and-their-status

 

[xkun2001]

Bạn vào trang sau xem thử nhé
http://www.mrexcel.com/forum/showthread.php?362766-VBA-sub-to-list-printers-and-their-status

Mình vào đọc nhưng thú thực ko hiểu lắm vì chỉ một chút kiến thứcvề VB8 thôi. Về API mình mù tịt ((
Bác nào rảnh phóng tay giúp mình vài dòng code với, xin cám ơn nhiều !